"[musteri_unvani]='" & Me.musteri_goster & "'"

Yukarıdaki gibi yerine alttaki gibi değiştirdim.

"[unvani]='" & Me.musteri_goster.Column(1) & "'"

Private Sub musteri_goster_AfterUpdate()



If Not IsNull(DLookup("[musteri_unvani]", "[t_musteri]", "[musteri_unvani]='" & Me.musteri_goster & "'")) Then



Me.vd_goster = Dlookup ("[vd]", "[t_musteri]", "[unvani]='" & Me.musteri_goster.Column(1) & "'")

Me.vn_goster = Dlookup ("[vn]", "[t_musteri]", "[unvani]='" & Me.musteri_goster.Column(1) & "'")

Me.adres_goster = Dlookup ("[adres]", "[t_musteri]", "[unvani]='" & Me.musteri_goster.Column(1) & "'")

Me.musteri_goster.SetFocus



Else

DoCmd.OpenForm "frm_musteri"

Me.musteri_goster.SetFocus

Me.vn_goster = ""

Me.vd_goster = ""

Me.adres_goster = ""



End If

End Sub