Çoklu Resim Gösterme

1 2
23/02/2017, 13:10

ensar236

Merhaba arkadaşlar, Seruz hocanın yaptığı örnekten alıntı yapılarak hazırladığım çalışmada form içerisinde aradım ancak bulamadım. Ekte gönderdiğim örnekte Arsiv formunda ekle bütonuna bastığım zaman şahıs tespit tablosuna ekleniyor. Aynı işlemi Tespit formu üzerinde de yapabilirmiyiz? Teşekkürler.
24/02/2017, 09:45

ensar236

(23/02/2017, 13:10)ensar236 yazdı: Merhaba arkadaşlar, Seruz hocanın yaptığı örnekten alıntı yapılarak hazırladığım çalışmada form içerisinde aradım ancak bulamadım. Ekte gönderdiğim örnekte Arsiv formunda ekle bütonuna bastığım zaman şahıs tespit tablosuna ekleniyor. Aynı işlemi Tespit formu üzerinde de yapabilirmiyiz? Teşekkürler.
25/02/2017, 09:52

ensar236

(24/02/2017, 09:45)ensar236 yazdı:
(23/02/2017, 13:10)ensar236 yazdı: Merhaba arkadaşlar, Seruz hocanın yaptığı örnekten alıntı yapılarak hazırladığım çalışmada form içerisinde aradım ancak bulamadım. Ekte gönderdiğim örnekte Arsiv formunda ekle bütonuna bastığım zaman şahıs tespit tablosuna ekleniyor. Aynı işlemi Tespit formu üzerinde de yapabilirmiyiz? Teşekkürler.

Arkadaşlar Tespit formunda Resmin altındaki etiket üzerine tıklanıldığı zaman o şahsa ait bilgiler eklenebilir mi? Teşekkürler
25/02/2017, 11:14

ozanakkaya

(23/02/2017, 13:10)ensar236 yazdı: Arsiv formunda ekle bütonuna bastığım zaman şahıs tespit tablosuna ekleniyor. Aynı işlemi Tespit formu üzerinde de yapabilirmiyiz? Teşekkürler.

Merhaba, ekle butonu olarak belirttiğiniz buton arsiv formundaki Tespit Ekle isimli buton ise, bu butonun tıklandığında olayı boş, tespit isimli buton ise Rapor isimli tabloya veri ekliyor.

Arsiv formundaki mevzuyu anlamadığım için tespit formu için de birşey diyemiyorum. Siz ne yapılmasını istediğinizi açık belirtirseniz tekrar incelenip fikir yürütülebilir.
26/02/2017, 14:48

ensar236

İlginize teşekkürler. Hocam benim yapmak istediğim tespit formunda seçilen resmin veya resmin altındaki etikete tıklandığı zaman, tıklanılan resmin ve etiket bilgilerinin tespit tablosuna eklenmesi. Teşekkürler
26/02/2017, 17:39

ozanakkaya

Ö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.
1 2