Öncelikle, Tespit formundaki
Private Sub Sayfa_Goster(Sayfa_No As Integer)
......
......
End Sub
kodunu aşağıdaki ile değiştir.
Private Sub Sayfa_Goster(Sayfa_No As Integer)
On Error Resume Next
Dim Sira_No, i
rs.AbsolutePage = Sayfa_No
Sira_No = 0
Do Until rs.EOF Or Sira_No = Sayfadaki_Resim_Sayisi
Sira_No = Sira_No + 1
If FileExists(CurrentProject.Path & "\ımages\" & rs!TC & ".jpg") = True Then
Me("[Resim" & Sira_No & "]").Picture = CurrentProject.Path & "\ımages\" & rs!TC & ".jpg"
Else
Me("[Resim" & Sira_No & "]").Picture = ""
End If
Me("[Label_Resim" & Sira_No & "]").Caption = rs!TC
rs.MoveNext
Loop
If Sira_No < 9 Then
For i = Sira_No + 1 To 18
Me("[Resim" & i & "]").Picture = ""
Me("[Label_Resim" & i & "]").Caption = " "
Next
End If
End Sub
Aşağıdaki kodları Modül1'e ekle, modülü kaydet.
Public Function VeriAktarimi(GNesneAdi As Control) As String
Dim GAdi, GSoyadi, GTCKimlik As String
GTCKimlik = Forms!Tespit!("[Label_" & GNesneAdi.Name & "]").Caption
GAdi = Dlookup ("[Adı]", "Arsiv", "[TC_Numarası]= '" & GTCKimlik & "'")
GSoyadi = Dlookup ("[Soyadı]", "Arsiv", "[TC_Numarası]= '" & GTCKimlik & "'")
If MsgBox(GTCKimlik & " Kimlik Numaralı " & GAdi & " " & GSoyadi & " isimli kişinin bilgileri aktarılsın mı?", vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Tespit ( TC, Ad, Soyad, Baba, Anne, Cinsi, Resmi ) SELECT Rapor.TC, Rapor.Ad, Rapor.Soyad, Rapor.Baba, Rapor.Anne, Rapor.Cinsi, Rapor.Resmi FROM Rapor WHERE (((Rapor.TC)='" & GTCKimlik & "'));"
DoCmd.SetWarnings True
MsgBox ("Veri Aktarıldı")
End If
End Function
Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean
Dim lngAttributes As Long
lngAttributes = (vbReadOnly Or vbHidden Or vbSystem)
If bFindFolders Then
lngAttributes = (lngAttributes Or vbDirectory) 'Include folders as well.
Else
Do While Right$(strFile, 1) = "\"
strFile = Left$(strFile, Len(strFile) - 1)
Loop
End If
On Error Resume Next
FileExists = (Len(Dir(strFile, lngAttributes)) > 0)
End Function
Tespit isimli formdaki
Resim1 isimli Resim denetiminin tıklandığında özelliğine
=VeriAktarimi([Resim1])
Resim2 isimli Resim denetiminin tıklandığında özelliğine
=VeriAktarimi([Resim2])
şeklinde kod ekle, Tüm Resim denetimlerinde Resim18'e kadar bu kod eklenecek
Resim18'in tıklandığında özelliğine eklenecek kod
=VeriAktarimi([Resim18])
Formda bulunan Etiketlerin tıklandığında özelliğine de aynı kod eklenecek
Label_Resim1 isimli etiketin tıklandığında özelliğine
=VeriAktarimi([Resim1])
kodu ekle,
Bu işlemleri uyguladıktan sonra olumlu/olumsuz bildirimde bulununuz.
Ayrıca
Yapılmaması Gereken Ölümcül Hatalar konusunu incelemenizi şiddetle tavsiye ederim.