Skip to main content

AccessTr.neT


Type mismatch hatası

Type mismatch hatası

Çözüldü #1
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


emlak_hata.rar

Ahmet Yenginoğlu
Son Düzenleme: 25/03/2012, 02:37, Düzenleyen: yenginoglu.
Cevapla
Çözüldü #2
Ben denedim normal çalışıyor. Hatanın fotoğrafını paylaşırmısınız?
Cevapla
Çözüldü #3
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ü?
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #4
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
Cevapla
Çözüldü #5
evet hocam 2003
Ahmet Yenginoğlu
Cevapla
Çözüldü #6
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
Ahmet Yenginoğlu
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da