เรียนผู้รู้ทุกท่าน พอดีนั่งเขียน access แล้วติดปัญหาเรื่องการใช้ MessageBox อยากจะให้ขึ้นมาเพื่อถาม User ว่าจะดำเนินการต่อจริงๆ ใช่ไหม
Code ที่ใช้
VBA :
Private Sub w_update_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "MsgBox Demonstration"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
MyString = "Yes" .
DoCmd.OpenForm "warranty_(2)_show"
Else
MyString = "No"
End If
End Sub
แล้วติดตรงเงื่อนไข ที่จะให้ดำเนินการต่อ ด้วยการผูก ID ควรทำยังไงดีครับ
ขอบคุณสำหรับคำตอบของทุกท่านครับ
เขียน code VBA access การยืนยันให้ดำเนินการหน้าถัดไปแบบมีเงื่อนไข
Code ที่ใช้
VBA :
Private Sub w_update_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "MsgBox Demonstration"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
MyString = "Yes" .
DoCmd.OpenForm "warranty_(2)_show"
Else
MyString = "No"
End If
End Sub
แล้วติดตรงเงื่อนไข ที่จะให้ดำเนินการต่อ ด้วยการผูก ID ควรทำยังไงดีครับ
ขอบคุณสำหรับคำตอบของทุกท่านครับ