Sub getir()
Me.Ad = Me.Metin0.Column(2)
Me.soyad = Me.Metin0.Column(3)
Me.dtar = Me.Metin0.Column(4)
Me.dyer = Me.Metin0.Column(5)
If Me.Metin0 <> "" Then
Me.ozellik = Dlookup ("[ozellikleri]", "[kisiler]", "[kayitid]=" & Me.Metin0)
Else
Me.ozellik = ""
End If
End Sub
Adı Soyadı:
Ce.... Ya....
Konum:
Ankara
Ofis Versiyonu:
Ofis 2010 32 Bit
Son Oturumu:
Bugün,18:01
Cevapla