กระทู้เก่าบอร์ด อ.Yeadram
1,257 5
URL.หัวข้อ /
URL
ถามเรื่องการรับค่าของ txtbox
รบกวนถามเรื่องการรับค่าของ txtbox ครับ เรื่องมีอยู่ว่า ผมทำtxtbox 2 ตัวเพื่อรับค่า username และ password ในการlogin เมื่อผมกรอกข้อมูลที่ txt1 หลังจากนั้นenter ข้อมูล txt1จะรับค่าไปเก็บไว้ แต่เมื่อผมกรอกข้อมูลที่ txt2แล้วenterแล้วใช้เม้าส์คลิกที่ปุ่ม OKใช้งานได้ปกติ แต่ถ้าไม่enterใช้เม้าส์คลิกที่ปุ่ม OKเลย ข้อมูลtxt2จะยังไม update,มีวิธีการใดที่จะแก้ปัญหานี้ได้ครับ
Private Sub Label_ok_Click()
If DCount("userid", "user", "user=forms!user![usrname]And password = forms!user![pass]") = 0 Then
msgbox "ชื่อผู้ใช้หรือรหัสไม่ถูกต้อง กรุณาตรวจสอบอีกครั้ง", vbCritical
Else
DoCmd.RunMacro "user.check"
End If
Exit Sub
End Sub
่
Private Sub Label_ok_Click()
If DCount("userid", "user", "user=forms!user![usrname]And password = forms!user![pass]") = 0 Then
msgbox "ชื่อผู้ใช้หรือรหัสไม่ถูกต้อง กรุณาตรวจสอบอีกครั้ง", vbCritical
Else
DoCmd.RunMacro "user.check"
End If
Exit Sub
End Sub
่
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R01948
ลอง disable ปุ่ม OK ใว้ซิครับ เมื่อ user ใส่ ค่า ค่อย enable โดยใช้ Event Change
2 @R01952
ขอบคุณคับ จะลองดู
3 @R01965
ยังมะได้ครับ ยังงัยต้องenter ก่อนถึงจะมีevent อื่น ต่อไปได้ เพราะเคอเซอร์ยังกระพริบที่txtbox ที่ว่าอยู่ครับ
4 @R01966
ผมทดสอบผ่านนะครับ Ms Access 2003
Option Compare Database
Option Explicit
Private Sub cmd_Login_Click()
If Me.txt_user = "aaa" And Me.txt_Pasword = "123" Then
MsgBox "okay", vbOKOnly
Else
MsgBox "Invalid user or password", vbOKOnly
End If
End Sub
Option Compare Database
Option Explicit
Private Sub cmd_Login_Click()
If Me.txt_user = "aaa" And Me.txt_Pasword = "123" Then
MsgBox "okay", vbOKOnly
Else
MsgBox "Invalid user or password", vbOKOnly
End If
End Sub
5 @R02046
ขอบคุณครับ พอดีผมไม่ใช้ตัว ปุ่มcmd ผมใช้label สำหรับคลิ๊กแทนก็เลยเกิดปัญหาดังกล่าวขึ้น....ที่ใช้labelเพราะทำเอฟเฟ็คให้ปุ่มได้ง่าย ทำแผลงๆเลยเกิดปัญหา ...ตอนนี้กลับมาใช้ปุ่มcmdแล้ว ใช้งานได้ปกติแล้วครับ
Time: 0.2699s
