Ada tiga modifikasi yang saya lakukan:
*1. query:*
SELECT Data_karyawan.*,
GetFoto("A",[No ID]) AS FOTO1,
GetFoto("B",[No ID]) AS FOTO2,
GetFoto("C",[No ID]) AS FOTO3,
GetFoto("D",[No ID]) AS FOTO4,
GetFoto("E",[No ID]) AS FOTO5,
Data_karyawan.[NO Kartu]
FROM Data_karyawan
WHERE (((Data_karyawan.[NO Kartu]) Between 154 And 156));
*2. modul vba:*
Option Compare Database
Option Explicit
Public Function GetFoto(NoPhoto As String, ID As Double) As String
Dim result As String
result = CurrentProject.Path & "\foto\" & ID & NoPhoto & ".jpg"
If Dir(result) <> "" Then
GetFoto = result
Else
GetFoto = CurrentProject.Path & "\foto\kosong.jpg"
End If
End Function
*3. report vba:*
Option Compare Database
Option Explicit
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then
Me.gambar1.Picture = Me.FOTO1
Me.gambar2.Picture = Me.FOTO2
Me.gambar3.Picture = Me.FOTO3
Me.gambar4.Picture = Me.FOTO4
Me.gambar5.Picture = Me.FOTO5
End If
End Sub
aksan kurdin
yokananwahyono wrote:
Terima kasih untuk mas aksan dan belajar office yg telah berpartisipasi
Namun ada sedikit miss dari kode yg di berikan mas aksan
Pada dasarnya masalah sebenarnya adalah
Jika karyawan yg di maksut belum memiliki foto atau dia sangle
otomatis gambarnya akan menuju ke kosong
Berikut saya kirimkan filenya saja
Tolong di tarus di Folder D
THX
Yokanan wahyono
------------------------------------------------------------------------
