กระทู้เก่าบอร์ด อ.Yeadram
1,050 3
URL.หัวข้อ /
URL
ช่วยตรวจสอบ If..Then..Else
Private Sub Command16_Click()
If txtTextBox1 = "A" Then
DoCmd.OpenForm "Form1"
Else
DoCmd.Quit
End If
End Sub
ขออธิบาย
1. ข้อมูลใน txtTextBox1 มีค่า A มีค่าเท่ากับ A ใน Codeข้างบน
แต่กลับกระทำกับคำสั่ง DoCmd.Quit
2.ข้อมูลใน txtTextBox1 มีค่า B มีค่าไม่เท่ากับ A ใน Codeข้างบน
แต่กลับกระทำกับคำสั่ง DoCmd.Quit เหมือนกับข้อ1
คำถาม
1.Code ผิดหรือเปล่า ถ้าผิด ผิดตรงใหนคะ
2.หรือมีความผิดหลาดเรื่องอื่นๆถ้ามี ช่วยอธิบายหน่อยค่ะ
ขอบคุฯมากต่ะ
If txtTextBox1 = "A" Then
DoCmd.OpenForm "Form1"
Else
DoCmd.Quit
End If
End Sub
ขออธิบาย
1. ข้อมูลใน txtTextBox1 มีค่า A มีค่าเท่ากับ A ใน Codeข้างบน
แต่กลับกระทำกับคำสั่ง DoCmd.Quit
2.ข้อมูลใน txtTextBox1 มีค่า B มีค่าไม่เท่ากับ A ใน Codeข้างบน
แต่กลับกระทำกับคำสั่ง DoCmd.Quit เหมือนกับข้อ1
คำถาม
1.Code ผิดหรือเปล่า ถ้าผิด ผิดตรงใหนคะ
2.หรือมีความผิดหลาดเรื่องอื่นๆถ้ามี ช่วยอธิบายหน่อยค่ะ
ขอบคุฯมากต่ะ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R17016
ผมดูแล้วก็ไม่เห็นมีอะไรผิดเลยนี่ครับ ลองก็อปปี้ code ของคุณมาลองดูมันก็ให้ผลถูกต้องทุกประการเลยครับ งงเหมือนกันนะครับ ลอง กระชับและซ่อมแซมดู หรือตรวจเช็คตัว access ดูว่าสมบูรณ์ดีอยู่หรือเปล่าด้วยก็ดีนะครับ และลองดูท่านอื่นที่มีความรู้มากกว่าผมตอบให้อีกทีนะครับ
2 @R17017
คุณน้ำค้าง ผมจะส่ง file ที่ผมลองทำโดยใช้ code ของคุณทั้งหมดแล้วใช้ได้ไปให้ดู มีอีเมลไหมครับ ถ้านำไปใช้แล้วเปิดไม่ได้อีก ก็ต้องหาเหตุอื่นล่ะครับ
3 @R17020
ขอบคุณ คุณlek มากค่ะ
nan20130@hotmail.com
nan20130@hotmail.com
Time: 0.3424s