Resim denetimlerinin isimlerini RESİM0, RESİM1, RESİM2,.......RESİM7 şeklinde değiştir.

Raporda, ayrıntının biçimlendiğinde olayına aşağıdaki kodu ekle

Dim ResimSayisi, a, b As Integer



ResimSayisi = RESİM0.AttachmentCount



For a = 1 To ResimSayisi



    Controls("RESİM" & a - 1).Visible = True

    

    For b = 0 To a - 1

        Controls("RESİM" & a).Forward

    Next b



If a = 8 Then

    Exit Sub

End If



Next

Ayrıca, formun kayıt kaynağı hatalı, kayıt kaynağı TBL_KONUT olmalı ve denetim isimleri Türkçe karakter içermemeli, RESİM adında alan ve denetim adı olmamalı, RESIM olmalı. Denetim kaynağı RESIM ise, denetimin ismi rsm_RESIM. mtn_RESIM şeklinde olmalı.