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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

29 ม.ค. 61 , 15:04:14
อ่าน 861 ครั้ง

prajak

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

 

30 ม.ค. 61 , 14:48:00
ตอบกลับ #1

prajak

> สอบถามเรื่องการดึงข้อมูลรูปภาพ
« ตอบกลับ #1 เมื่อ: 30 ม.ค. 61 , 14:48:00 »
รบกวนอาจารย์ด้วยนะครับ

 

30 ม.ค. 61 , 19:26:12
ตอบกลับ #2

pizza_p

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

Dim mypict As String

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

 
โพสต์นี้ได้รับคำขอบคุณจาก: prajak

31 ม.ค. 61 , 09:19:21
ตอบกลับ #3

prajak

> > สอบถามเรื่องการดึงข้อมูลรูปภาพ
« ตอบกลับ #3 เมื่อ: 31 ม.ค. 61 , 09:19:21 »
--ก็จะมีฟิวด์ที่ชื่อ 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." คือยังไงครับ

 

31 ม.ค. 61 , 15:17:58
ตอบกลับ #4

pizza_p

> สอบถามเรื่องการดึงข้อมูลรูปภาพ
« ตอบกลับ #4 เมื่อ: 31 ม.ค. 61 , 15:17:58 »
เอาไปวางตรง control Style No. ใน AfterUpdate event

 

31 ม.ค. 61 , 16:24:55
ตอบกลับ #5

prajak

> สอบถามเรื่องการดึงข้อมูลรูปภาพ
« ตอบกลับ #5 เมื่อ: 31 ม.ค. 61 , 16:24:55 »
ตรงส่วนของเงื่อนไข (อาร์กิวร์เมนต์ที่ 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

 

31 ม.ค. 61 , 18:38:26
ตอบกลับ #6

pizza_p

> สอบถามเรื่องการดึงข้อมูลรูปภาพ
« ตอบกลับ #6 เมื่อ: 31 ม.ค. 61 , 18:38:26 »
mypict = Nz(DLookup("pict", "Production", "[ฟิลด์ที่เก็บ Style no.]='" & Me.[Style No] & "'"))

 

01 ก.พ. 61 , 08:14:28
ตอบกลับ #7

prajak

> สอบถามเรื่องการดึงข้อมูลรูปภาพ
« ตอบกลับ #7 เมื่อ: 01 ก.พ. 61 , 08:14:28 »
ได้แล้วครับ ขอบคุณมากเลยนะครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย