กระทู้เก่าบอร์ด อ.Yeadram
817 3
URL.หัวข้อ /
URL
ต้องการให้โชว์ข้อความว่าไม่เจอสินค้าในฐานข้อมูลครั
เรียน ท่านอาจารย์
ตอนนี้ผมเขียนโค้ดโปรแกรมขายสินค้า โดยการคีย์บาร์โค้ดในช่องสแกนบาร์โค้ด(Barcode) แต่ติดตรงที่ว่าถ้าบาร์โค้ดนี้ไม่มีสินค้ามันจะขึ้นRun-time error ซึ่งจะมีปัญหาหากผู้ใช้ใช้งานไม่เป็น ผมเลยต้องการให้มีข้อความแสดงว่า ไม่เจอสินค้าในฐานข้อมูล และเมื่อคลิกตกลง เคอเซอร์จะกลับมาที่ช่องสแกนบาร์โค้ดอัตโนมัติ ซึ่งโค้ดที่ใช้มีดังนี้ ต้องแก้ตรงไหนบ้างครับ
Private Sub Command98_Enter()
Forms("โปรแกรมขายหน้าร้าน").ฟอร์มย่อย_Query1.Form.Item = Me.Barcode
Me.ฟอร์มย่อย_Query1.SetFocus
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "Barcode"
Barcode.SetFocus
Me.Barcode = Null
End Sub
ตอนนี้ผมเขียนโค้ดโปรแกรมขายสินค้า โดยการคีย์บาร์โค้ดในช่องสแกนบาร์โค้ด(Barcode) แต่ติดตรงที่ว่าถ้าบาร์โค้ดนี้ไม่มีสินค้ามันจะขึ้นRun-time error ซึ่งจะมีปัญหาหากผู้ใช้ใช้งานไม่เป็น ผมเลยต้องการให้มีข้อความแสดงว่า ไม่เจอสินค้าในฐานข้อมูล และเมื่อคลิกตกลง เคอเซอร์จะกลับมาที่ช่องสแกนบาร์โค้ดอัตโนมัติ ซึ่งโค้ดที่ใช้มีดังนี้ ต้องแก้ตรงไหนบ้างครับ
Private Sub Command98_Enter()
Forms("โปรแกรมขายหน้าร้าน").ฟอร์มย่อย_Query1.Form.Item = Me.Barcode
Me.ฟอร์มย่อย_Query1.SetFocus
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "Barcode"
Barcode.SetFocus
Me.Barcode = Null
End Sub
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R22774
ลองใช้ code นี้ดูครับ
events---->>Before_update
IF Dcount("*","ชื่อตารางที่เก็บรหัส barcode","[ชื่อ field barcode]=Forms!ชื่่อฟอร์ม!ชื่อ Barcode Textbox")>0 then
---->ให้ทำอะไรต่อ...
else
msgbox("ไม่พบรหัสในฐานข้อมูล")
cancel=true
end if
events---->>Before_update
IF Dcount("*","ชื่อตารางที่เก็บรหัส barcode","[ชื่อ field barcode]=Forms!ชื่่อฟอร์ม!ชื่อ Barcode Textbox")>0 then
---->ให้ทำอะไรต่อ...
else
msgbox("ไม่พบรหัสในฐานข้อมูล")
cancel=true
end if
3 @R22775
ขอบคุณคุณchai มากๆนะครับที่แนะนำ ตอนนี้ผมทำได้แล้วครับ
Private Sub Barcode_BeforeUpdate(Cancel As Integer)
If DCount("*", "Item", "[Item-no]=Forms!โปรแกรมขายหน้าร้าน!Barcode") > 0 Then
Else
MsgBox ("ไม่พบสินค้าในฐานข้อมูล")
Cancel = True
End If
End Sub
Private Sub Barcode_BeforeUpdate(Cancel As Integer)
If DCount("*", "Item", "[Item-no]=Forms!โปรแกรมขายหน้าร้าน!Barcode") > 0 Then
Else
MsgBox ("ไม่พบสินค้าในฐานข้อมูล")
Cancel = True
End If
End Sub
Time: 0.3171s
มาช่วยผู้เดือดร้อนเร้ว...