กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
217 1
URL.หัวข้อ /
URL
การพิมพ์ข้อมูลปัจจุบีนในฟอร์ม ขอความช่วยเหลือ อ.สุภาพ และท่านผู้รู้ช่วยด้วยค่ะ
อ.สุภาพเคยให้ตัวอย่าง code ไว้แล้วเมื่อเดือน เม.ย. มีเพื่อน ๆ ถามมาแต่ไม่สามารถนำไปใส่ได้เพราขาดความเข้าใจและยังไม่ชำนาญในการเขียน code เลยต้องขอความช่วยเหลือจาก อ.สุภาพ และท่านผู้รู้ และได้ส่ง file มาให้ช่วยดูด้วย ขอบตุณล่วงหน้าค่ะ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.0441s
Private Sub Command16_Click()
Dim strDocName As String
Dim strWhere As String
strDocName = "ChqR"
strWhere = "[PAYID]='" & Me!PAYID & "'"
DoCmd.OpenReport strDocName, acViewPreview, , strWhere
Exit_Command16_Click:
Exit Sub
Err_Command16_Click:
MsgBox Err.Description
Resume Exit_Command16_Click
End Sub