สอบถามเรื่องการดึงข้อมูลรูปภาพ

[prajak]

รบกวนสอบถามครับ คือว่าผมต้องการให้เวลากด dropdown ชื่อ Style No. ให้ดึงรูปของ Style นั้นๆใน Table มาแสดงตรงกรอบสี่เหลี่ยม (Image)
โดยที่ style No ผมlookup มาจาก table ชื่อ Production แล้วใน Table production ก็จะมีฟิวด์ที่ชื่อ pict ไว้เก็บข้อมูลรูปของแต่ละ style อยู่แล้ว
ประเด็นคือฟอร์มนี้ไม่ได้ถูกสร้างมาจาก table production แค่ผมไป lookup เอาstyle No. ,Customer,และ OD# มาอย่างเดียวครับ

[prajak]

รบกวนอาจารย์ด้วยนะครับ

[pizza_p]

--ก็จะมีฟิวด์ที่ชื่อ pict ไว้เก็บข้อมูลรูปของแต่ละ style อยู่แล้ว
ถ้าอันนี้หมายถึงฟิลด์นั้นเก็บ path ของรูปไว้ เช่น D:\pict\abc.jpg คุณก็ให้แสดงรูปได้โดยกำหนดว่า

Dim mypict As String

mypict = Nz(DLookup("pict","Production","เงื่อนไขที่กำหนด style no."))
Me.ชื่อImageControl.Picture = mypict

[prajak]

--ก็จะมีฟิวด์ที่ชื่อ pict ไว้เก็บข้อมูลรูปของแต่ละ style อยู่แล้ว
ถ้าอันนี้หมายถึงฟิลด์นั้นเก็บ path ของรูปไว้ เช่น D:\pict\abc.jpg คุณก็ให้แสดงรูปได้โดยกำหนดว่า

Dim mypict As String

mypict = Nz(DLookup("pict","Production","เงื่อนไขที่กำหนด style no."))
Me.ชื่อImageControl.Picture = mypict

ต้องนำ code นี้ไปวางไว้ตรงไหนครับ และตรงที่ "เงื่อนไขที่กำหนด style no." คือยังไงครับ

[pizza_p]

เอาไปวางตรง control Style No. ใน AfterUpdate event

[prajak]

ตรงส่วนของเงื่อนไข (อาร์กิวร์เมนต์ที่ 3) ถ้าต้องการให้ถ้า style ใน table product = combo box ชื่อ style no ใน form CutHead ครับ
แต่กำหนดไม่เป็นว่ารูปแบบต้องเป็นยังไง
Private Sub Style_No_AfterUpdate()
Dim mypict As String

mypict = Nz(DLookup("pict", "Production", "ตรงนี้ต้องเป็นรูปแบบยังไงครับ)

Me.Image29.Picture = mypict
End Sub

[pizza_p]

mypict = Nz(DLookup("pict", "Production", "[ฟิลด์ที่เก็บ Style no.]='" & Me.[Style No] & "'"))

[prajak]

ได้แล้วครับ ขอบคุณมากเลยนะครับ