AccessTr.neT

Sevgili arkadaşlar
ekteki çalışmada frm_daireler formunda giriş yapıyorum ve çoklu resimleri girmek istiyorum çoklu resimde 9 adet resim var fakat resimleri kayıt ediyor ama çoklu resim gösteri tıklayınca type mismatch hatası veriyor ve sadece 1 resim görünüyor hata nerede acaba hocalarımdan nerede hata yaptığımı bulmalarını rica ediyorum.
saygılarımla
ahmet yenginoğlu

Ben denedim normal çalışıyor. Hatanın fotoğrafını paylaşırmısınız?

Bende de bir sorun yok. Gayet güzel çalışıyor. Yalnızca çoklu resim ekranında seçilen bir resme çift tıklandığında olayı eksik. Onu da yapaesanız çok güzel olacak.

Bu arada Ofis 2010 kullanıyorum. Sizinki 2003 mü?

bende Resim_ekle_goster formunu direkt açtığımda type mismatch hatası verdi. Hata olarak Type mismatch hatasını neden verdi anlam veremedim. Çünkü tblResimEkle tablosundaki resimler benim pcde olmadığı için hata veriyor.

Formun açıldığında olayına yazılı kodu sil, geçerli olduğunda olayındaki kodu aşağıdaki ile değiştir.

Private Sub Form_Current()

On Error Resume Next

    If Not Me!MKResim = "" Or Not IsNull(Me!MKResim) Then

        Me!ResimCercevesi.Picture = Me!MKResim

    ElseIf Not Me!MKResim2 = "" Or Not IsNull(Me!MKResim2) Then

        Me!ResimCercevesi2.Picture = Me!MKResim2

    ElseIf Not Me!MKResim3 = "" Or Not IsNull(Me!MKResim3) Then

        Me!ResimCercevesi3.Picture = Me!MKResim3

    ElseIf Not Me!MKResim4 = "" Or Not IsNull(Me!MKResim4) Then

        Me!ResimCercevesi4.Picture = Me!MKResim4

    ElseIf Not Me!MKResim5 = "" Or Not IsNull(Me!MKResim5) Then

        Me!ResimCercevesi5.Picture = Me!MKResim5

    ElseIf Not Me!MKResim6 = "" Or Not IsNull(Me!MKResim6) Then

        Me!ResimCercevesi6.Picture = Me!MKResim6

    ElseIf Not Me!MKResim7 = "" Or Not IsNull(Me!MKResim7) Then

        Me!ResimCercevesi7.Picture = Me!MKResim7

    ElseIf Not Me!MKResim8 = "" Or Not IsNull(Me!MKResim8) Then

        Me!ResimCercevesi8.Picture = Me!MKResim8

    ElseIf Not Me!MKResim9 = "" Or Not IsNull(Me!MKResim9) Then

        Me!ResimCercevesi9.Picture = Me!MKResim9

    Else

        Me!ResimCercevesi.Picture = ""

        Me!ResimCercevesi2.Picture = ""

        Me!ResimCercevesi3.Picture = ""

        Me!ResimCercevesi4.Picture = ""

        Me!ResimCercevesi5.Picture = ""

        Me!ResimCercevesi6.Picture = ""

        Me!ResimCercevesi7.Picture = ""

        Me!ResimCercevesi8.Picture = ""

        Me!ResimCercevesi9.Picture = ""

    End If

End Sub

evet hocam 2003

sayın hocalarım
resimleri kayıt ettiği halde tekrar açtığında ilk resim hariç diğerleri görünmüyorda
neden olabilir acaba.
saygılarımla