กระทู้เก่าบอร์ด อ.Yeadram
964 1
URL.หัวข้อ /
URL
สอบถามผู้รู้ เรื่อง If Dlookup หน่อยครับ
คือว่าผมต้องการเขียน VBA โค๊ด
Textbox ที่ 1 ผมจะคีย์ เลขที่กำกับ 1,2,3 ฯลฯ
Textbox ที่ 2 ผมจะคีย์ วัน/เดือน/ปี
อยากจะเช็คตอนผมคีย์ที่ Textbox ที่ 1 ว่า
- เช็คว่า เลขนี้มีในระบบหรือยัง ถ้ายังไม่มีก็สามารถคีย์ได้
- เช็คต่อว่า ถ้าเลขนี้มีในระบบแล้ว และเป็นเลขใบกำกับซ้ำเลขในระบบของปี 59 จะไม่สามารถคีย์เลขซ้ำได้และไม่สามารถทำรายการอื่นได้ มีข้อความเตือน แต่ถ้าข้อมูลเป็นปี 60 จะสามารถคีย์รายการอื่นต่อได้
Textbox ที่ 1 ผมจะคีย์ เลขที่กำกับ 1,2,3 ฯลฯ
Textbox ที่ 2 ผมจะคีย์ วัน/เดือน/ปี
อยากจะเช็คตอนผมคีย์ที่ Textbox ที่ 1 ว่า
- เช็คว่า เลขนี้มีในระบบหรือยัง ถ้ายังไม่มีก็สามารถคีย์ได้
- เช็คต่อว่า ถ้าเลขนี้มีในระบบแล้ว และเป็นเลขใบกำกับซ้ำเลขในระบบของปี 59 จะไม่สามารถคีย์เลขซ้ำได้และไม่สามารถทำรายการอื่นได้ มีข้อความเตือน แต่ถ้าข้อมูลเป็นปี 60 จะสามารถคีย์รายการอื่นต่อได้
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.3104s
Private Sub Number_BeforeUpdate(Cancel As Integer)
Cancel = DCount("Number", "Table1", "Number=" & Me.Textbox1) > 0
End Sub
หากข้อมูลซ้ำกับฐานข้อมูลเป้าหมาย เคอร์เซอร์ก็จะไม่ยอมไปไหน อะไรประมาณนี้ครับ
ส่วนก็สร้างเงื่อนไขก็ต้องปรับตามฐานข้อมูลคุณดูว่าต้องการอะไร ศึกษาและปรับใช้ดูครับ