ใช้คำสั่ง dlookup ครับ

ใช้ยังไง =dlookup("ส่วนนี้คืออะไรคับ","ส่วนนี้คืออะไรคับ","ส่วนนี้คืออะไรคับ")

กลุ่ม Function ดึงข้อมูล
ใช้ในการเปิดฐานข้อมูล แล้วดึงค่าตามที่กำหนด เรียกอีกอย่างว่า Domain Aggregate Function กลุ่มFunction นี้ จะคล้ายกับการใช้ Query แต่ทำเป็น Function เพื่อใช้ในการดึงค่า และ Return ค่า แบบเป็น Function เช่นการดึงชื่อลูกค้าจากฐานข้อมูล โดยค้นหารหัสเป็นต้น การใช้ Function นี้ อาจจะดูยุ่งยาก และต้องเข้าใจการต่อ String เป็นอย่างดี
โดยปกติ Function นี้ จะประกอบด้วย 3 ส่วน คือ
1.        ส่วนแรก ( Field / Expression ) เป็นค่าที่ต้องการอ่านซึ่งอาจเป็นชื่อ Field หรือ Expression ที่เราเคยทำใน Query
2.        ส่วนที่ 2 ( Domain- Table / Query ) เป็นชื่อ Table หรือ Query ที่ต้องการเปิดข้อมูล
3.        ส่วนที่ 3 ( Criteria ) เป็น Option ใช้ระบุ Criteria ที่ต้องการค้นหา การระบุในส่วนนี้ จะบอกเป็นเงื่อนไข เหมือนที่เรากำหนด IF
วิธีกำหนดค่า
การกำหนดค่าลงในทั้ง 3 ส่วน จะต้องระบุเป็น String ตัวอย่างเช่นการอ่านชื่อสินค้า ( ProductName ) จาก Table Products จากรหัสของสินค้า ( ProductID )

Dim tmpStr as String
TmpStr = Dlookup(“ProductName”,”Products”,”ProductID = 19”)
Msgbox(TmpStr)

จะเห็นว่าทั้ง 3 Input จะต้องมีเครื่องหมาย “ คลุม เพื่อให้ VBA ทราบว่าส่วนที่อยู่ระหว่าง “ เป็นค่าที่ต้องการส่งผ่าน ถ้าค่าที่ต้องการส่งมาจากตัวแปร จะเป็นตาม ตย นี้

Dim tmpStr As String
Dim strScope As String
Dim strField As String
Dim strWhere As String
Dim X
X = 19
strScope = "ProductName"
strField = "Products"
strWhere = "ProductID =" & X

tmpStr = DLookup(strScope, strField, strWhere)
MsgBox (tmpStr)

เครดิต คุณอุทัย

ขอบคุณคับ

ปํญหาเหมือนของผมเลย   ผมทไม่ได้เรื่องพิมพ์รหัสแล้วให้ชื่อขึ้น อาจารย์ ธัชชัย สอนว่า

สร้างฟอร์ม

ใส่ Text Box 2 ชิ้นชื่อ txtID กับ txtName

ที่ txtName ให้กำหนด Control Source:
=DLookUp("[Name]","tblBirthDate","[txtID] = [ID]")

ที่ txtID ให้กำหนด After Update เป็น SendKeys {F9}


มันก็ยังไม่ได้อยู่ดี

ตอนไปแล้วด้านบนครับ

ลืมใส่ " "

ทำแล้วครับอาจาย์ แต่มันก็ยังขึ้น Error อยู่ดีครับ เดียวผมลองพยายามใหม่ครับ

ของหนูก้คล้ายๆ แบบนี้แหละคะอาจารย์
แต่มันอยู่คนละ table
มี table ประเภทสินค้า กับ table สินค้า

ต้องการให้เลือกรหัสประเภทสินค้า แล้วโชรายชื่อสินค้าต่างๆ ของแต่ละประเภท

อาจารช่วยบอกโค้ดหน่อยได้มั้ยคะ

ผมทำไฟล์ให้ดาวน์โหลดไปศึกษาแล้วนะครับ

https://www.dropbox.com/sh/ig2emrh118hr92m/AAA2Avx1QFG_yhe7aTJJYcasa/Dlookup.accdb

เป็น listbox กับ listbox ก้ทำแบบนี้ได้ใช่มั้ยคะ

น่าจะได้นะครับ (ไม่เคยลอง) เพราะมันเป็นพี่น้องกัน List Box กับ Combo Box น่ะ

ลองทำดู ได้-ไม่ได้ แจ้งด้วยครับ เป็นความรู้

ลองทำแล้วคะ แต่ก้ยังไม่ได้100%
เลือกรหัสประเภทสินค้าได้ แต่พอไปดูตรงชื่อสินค้า
มันขึ้นค้างอันแรกที่แสดง

อยากทราบว่า mrcF9 มีไว้ทำอะไรคะ

ใช้สั่งกดปุ่ม F9 เพื่อให้ชื่อสินค้ามันเปลี่ยนตามที่ควรจะเป็นครับ