สวัสดีครับ เราสามารถใช้ Function Dlookup เพื่อค้นหาข้อมูลจากตารางเป้าหมายได้ครับ
ผมยกตัวอย่าง
Me.textbox2 = DLookup("ProductName", "Product", "ProductCode='" & Forms!Form1!textbox1 & "'")
ส่วนใน Function กำหนดดังนี้ DLookup("
Fieldที่ต้องการแสดงผลลัพท์", "
ตารางที่เราต้องการ", "
เงือนไขคือ Field ProductCode ในตาราง = ='" &
Forms!Form1!textbox1 & "'")
Forms!Form1!textbox1 คือการกำหนดไปที่ textbox1 ที่เราจะกรอกค้นห้าข้อมูล
ในคำสั่งนี้คือ ถ้าเรากำหนด รหัสของสินค้า และสั่งค้นหา ถ้ารหัสที่เราระบุใน textbox1 ตรงกับ Field ProductCode ในตาราง Product
ก็จะแสดงชื่อของ ProductName ออกมา
สมมุติข้อมูลในตาราง Product เป็นแบบนี้นะครับเมื่อเราต้องการค้นหา รหัสเลข 3 เราก็กรอกเลข 3 ใน textbox1 แล้วกดค้นหาจะได้ ProductName ดังรูปแต่ถ้ากรณีรหัสที่เรากรอกลงไปยังไม่มีการลงทะเบียนไว้นั้นจะมีแจ้งเตือนให้เราทราบเพื่อจะได้ลงทะเบียนใหม่ดังรูปและเมื่อลงทะเบียนใหม่เสร็จแล้วคำสั่งที่จะ Add new รหัสและชื่อใหม่ ในตาราง Product ใส่คำสั่งที่ปุ่ม บันทึก ดังนี้
Sub AddNewToProductTable()
On Error GoTo Err_Err
Dim DB As Database
Dim rs As Recordset
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("Product", dbOpenDynaset)
rs.AddNew
rs![ProductCode] = Me.textbox1
rs![ProductName] = Me.textbox2
rs.Update
Exit_err:
Exit Sub
Err_Err:
MsgBox Error$
MsgBox "Error, ( Add NewProduct)!", vbExclamation, "แจ้ง"
Resume Exit_err
End Sub
ที่ปุ่ม Save Event onclick
ใส่ไปว่า Call AddNewToProductTable()
ผมได้เพิ่มส่วนที่ดักจับข้อผิดพลาดไว้ด้วยนะครับลองศึกษาจากโปรแกรมตัวอย่างดูนะครับสงสัยตรงไหนสอบถามได้ตัวอย่างด้านล่างนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Tae Songvut