55
ห้อง MS Access / > tabale พวกนี้มันคืออะไรอะครับ?
« เมื่อ: 13 ก.พ. 61 , 17:26:45 »
เป็นของระบบติ๊กออกเพื่อไม่ให้แสดงครับ
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Private Sub Cmd_View_Click()
On Error GoTo Err_Cmd_View_Click
Dim stDocName As String
stDocName = "R_Bill"
DoCmd.OpenReport stDocName, acPreview
Exit_Cmd_View_Click:
Exit Sub
Err_Cmd_View_Click:
MsgBox Err.Description
Resume Exit_Cmd_View_Click
End Sub
Private Sub A_AfterUpdate()
Me.C.Value = Me.A.Value * Me.B.Value / 100
End Sub
Private Sub B_AfterUpdate()
Me.C.Value = Me.A.Value * Me.B.Value / 100
End Sub
=[CurrentRecord]
ลองดูครับ
Private Sub Print_Click()
On Error GoTo Err_Print_Click
Dim stDocName As String
stDocName = "R_Bill" 'ชื่อรีพอร์ต
DoCmd.OpenReport stDocName, acNormal
Exit_Print_Click:
Exit Sub
Err_Print_Click:
MsgBox Err.Description
Resume Exit_Print_Click
End Sub