ขอสอบถามเกี่ยวกับ Report ใน Access ตรวจสอบไฟล์รูปภาพว่ามีหรือไม่มีใน Drive

[mtaccess]

ขอสอบถามเกี่ยวกับ Report ใน Access ตรวจสอบข้อมูลพนักงานว่ามีไฟล์รูปถ่ายใน Drive ที่เก็บไว้จริงหรือไม่ ถ้ามีรูปให้แสดงข้อความว่า 'มี' ถ้าไม่พบรูปใน Drive ที่เก็บรูปให้แสดงว่า 'ไม่มี' รบกวนแนะนำด้วยค่ะ พร้อมกันนี้ได้แนบไฟล์ตัวอย่างที่ทำไว้มาด้วยค่ะ

ไฟล์รูปพนักงานจะทำการบันทึกเป็นชื่อรหัสพนักงานตามตัวอย่างไฟล์ที่แนบมาค่ะ

[สันติสุข]

- อย่างแรก ในเทเบิลต้องมีฟิลด์ที่เก็บว่าไฟล์รูปของเรคอร์ดนั้นอยู่ที่ไหน สมมุติชื่อฟิลด์ว่า FilePath
- ใส่นิพจน์ไว้ใน Control Source property ของเท็กซ์บ็อกซ์ [มี/ไม่มีรูปถ่าย] เป็น

= IIf(Dir(Me.[FilePath]) = "", "ไม่มี", "มี")  <=== เครื่องหมายเท่ากับที่ด้านหน้า ต้องมีใส่ไว้ด้วย

หมายเหตุ เพื่อลดปัญหาที่อาจเกิดขึ้นได้ เราไม่ควรสร้างชื่อของอะไรก็ตาม เป็นภาษาอื่นนอกจากภาษาอังกฤษ และไม่ควรมีช่องว่างหรืออักขระพิเศษต่างๆในชื่อเช่นกัน

[mtaccess]

- อย่างแรก ในเทเบิลต้องมีฟิลด์ที่เก็บว่าไฟล์รูปของเรคอร์ดนั้นอยู่ที่ไหน สมมุติชื่อฟิลด์ว่า FilePath
- ใส่นิพจน์ไว้ใน Control Source property ของเท็กซ์บ็อกซ์ [มี/ไม่มีรูปถ่าย] เป็น

= IIf(Dir(Me.[FilePath]) = "", "ไม่มี", "มี")  <=== เครื่องหมายเท่ากับที่ด้านหน้า ต้องมีใส่ไว้ด้วย

หมายเหตุ เพื่อลดปัญหาที่อาจเกิดขึ้นได้ เราไม่ควรสร้างชื่อของอะไรก็ตาม เป็นภาษาอื่นนอกจากภาษาอังกฤษ และไม่ควรมีช่องว่างหรืออักขระพิเศษต่างๆในชื่อเช่นกัน

ลองทำตามวิธีแล้วติดให้ใส่ Dir กับ Me ค่ะ ตามไฟล์ที่แนบมา รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

[สันติสุข]

เอาใหม่ ผมบอกผิดไป

- อย่างแรก ในเทเบิลต้องมีฟิลด์ที่เก็บว่าไฟล์รูปของเรคอร์ดนั้นอยู่ที่ไหน สมมุติชื่อฟิลด์ว่า FilePath
- วางฟิลด์ FilePath ลงใน Detail section และกำหนด Visible property เป็น No
- Control Source ของ [มี/ไม่มีรูปถ่าย] ให้เว้นว่างไว้
- ใส่โค้ดข้างล่างนี้ไว้ใน Format event ของ Detail section

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
        Me.[มี/ไม่มีรูปถ่าย] = IIf(Dir(Me.[FilePath]) = "", "ไม่มี", "มี")
End Sub

[mtaccess]

เอาใหม่ ผมบอกผิดไป

- อย่างแรก ในเทเบิลต้องมีฟิลด์ที่เก็บว่าไฟล์รูปของเรคอร์ดนั้นอยู่ที่ไหน สมมุติชื่อฟิลด์ว่า FilePath
- วางฟิลด์ FilePath ลงใน Detail section และกำหนด Visible property เป็น No
- Control Source ของ [มี/ไม่มีรูปถ่าย] ให้เว้นว่างไว้
- ใส่โค้ดข้างล่างนี้ไว้ใน Format event ของ Detail section

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
        Me.[มี/ไม่มีรูปถ่าย] = IIf(Dir(Me.[FilePath]) = "", "ไม่มี", "มี")
End Sub

ยังไม่ได้เหมือนเดิมค่ะ รบกวนอีกครั้งนะคะ

[สันติสุข]

โค้ดของคุณคือ

Me.Text23.Text = IIf(Dir(Me.[FilePath]) = "", "ไม่มี", "มี")

ปัญหาคือ
1. คุณใส่ .Text   ตรงนี้ต้องให้เอาออกครับ
2. FilePath มีบางเรคอร์ดที่ไม่มีค่าอะไรเลย 
อย่างนั้นก็ต้องแก้โค้ดเป็น

If Nz(Me.[FilePath], "") = "" Then
   Me.Text23 = "ไม่มี"
ElseIf Dir(Me.[FilePath]) = "" Then
   Me.Text23 = "ไม่มี"
Else
   Me.Text23 = "มี"
End If

[mtaccess]

โค้ดของคุณคือ

Me.Text23.Text = IIf(Dir(Me.[FilePath]) = "", "ไม่มี", "มี")

ปัญหาคือ
1. คุณใส่ .Text   ตรงนี้ต้องให้เอาออกครับ
2. FilePath มีบางเรคอร์ดที่ไม่มีค่าอะไรเลย 
อย่างนั้นก็ต้องแก้โค้ดเป็น

If Nz(Me.[FilePath], "") = "" Then
   Me.Text23 = "ไม่มี"
ElseIf Dir(Me.[FilePath]) = "" Then
   Me.Text23 = "ไม่มี"
Else
   Me.Text23 = "มี"
End If

ยังไม่ได้เหมือนเดิมค่ะ ไม่รู้ว่าผิดตรงไหน ลองแก้ไขตามที่แนะนำมาแล้ว ก็ยังไม่ได้เหมือนเดิมค่ะ รบกวนด้วยนะคะ

[สันติสุข]

ผมลองแล้วดูได้ คุณเปิดดูใน Print Preview หรือเปล่า

[mtaccess]

ผมลองแล้วดูได้ คุณเปิดดูใน Print Preview หรือเปล่า

ดูใน print preview ข้อมูลแสดงค่ะ แต่ถ้าส่งออกไฟล์เป็น Excel ข้อมูลจะแสดงว่ามีหรือไม่มีไหมคะ

[สันติสุข]

ถึงแม้ทำได้ แต่ Report ไม่ได้มีจุดประสงค์เอาไว้เพื่อออก Excel ครับ   ข้อมูลไปครบหรือไม่ รูปแบบยังคงเอาไว้ได้หรือไม่ ต้องลองเองแล้วครับ

[mtaccess]

ถึงแม้ทำได้ แต่ Report ไม่ได้มีจุดประสงค์เอาไว้เพื่อออก Excel ครับ   ข้อมูลไปครบหรือไม่ รูปแบบยังคงเอาไว้ได้หรือไม่ ต้องลองเองแล้วครับ

ขอบคุณมากๆนะคะ ทำได้แล้วค่ะ