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