IsNull และ TextBox
กระทู้เก่าบอร์ด อ.Yeadram

 1,697   4
URL.หัวข้อ / URL IsNull และ TextBox

ปัญหาของผมก็คือ ในหน้า Form ต้องการให้มีการตรวจสอบ Textbox แต่ละอันว่ามีการกรอกข้อมูล เช่น ชื่อ นามสกุล ที่อยู่ ฯลฯ ครบทุกช่องหรือไม่ ถ้าเกิดไม่มีก็ให้มี MsgBox ขึ้นมาเตือนให้กรอกข้อมูลให้ครบก่อนการบันทึกข้อมูล

แต่ถ้ามีข้อมูลครบแล้ว ก็ผ่าน


ยังไงก็รบกวนอาจารย์ด้วยนะคับ
โดย: นาย เมื่อ: 2 ก.ย. 2552 , 09:26

4 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R03175
คับ ขอบคุณมากคับ รบกวน ขอ Code ด้วยเลยจะสะดวกไหมคับ
โดย: นาย เมื่อ: 2 ก.ย. 2552 , 10:41
2 @R03177
ลองใช้ Code นี้ดูครับ
Private sub Save_click
On Err Goto Save_Click

If IsNull([ชื่อ]) Or IsNull([นามสกุล]) Or IsNull([ที่อยู่]) Or IsNull([ที่ติดต่อ]) Then
        MsgBox "โปรดป้อนข้อมูล ชื่อ นามสกุล ที่อยู่ ที่ติดต่อให้ครบก่อนครับ!"
        DoCmd.GoToControl "ชื่อ"
    End If
End sub
โดย: Mon เมื่อ: 2 ก.ย. 2552 , 10:59
3 @R03181
ยัง Error
คับ
โดย: นาย เมื่อ: 2 ก.ย. 2552 , 12:18
4 @R03244
ขออนุญาตเสริมความคิดเห็นนะครับ
สมมติ text box
fname คือชื่อ
lname คือ นามสกุล
addr คือ ที่อยู่
จากนั้นสมมติว่าให้ไปเปิดฟอร์มใหม่.....แล้วกัน
ทำได้ดังนี้ สร้างปุมคำสั่งแล้วคัดลอกคำสั่งไปวาง

If fname = "" Or IsNull([fname]) Then
fname.SetFocus
MsgBox "กรุณาบันทึกชือ", vbOKOnly, "เตือน"
ElseIf lname = "" Or IsNull([lname]) Then
lname.SetFocus
MsgBox "กรุณาบันทึกนามสกุล", vbOKOnly, "เตือน"
ElseIf addr = "" Or IsNull([addr]) Then
addr.SetFocus
MsgBox "กรุณาบันทึกที่อยู่", vbOKOnly, "เตือน"
Else
DoCmd.OpenForm "ชื่อฟอร์มใหม่", acNormal
End If
โดย: sorn เมื่อ: 4 ก.ย. 2552 , 18:32
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3545s