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