AccessTr.neT

Sayın Mehmet Demiral Hocam,
Affınıza sığınarak bir şey daha sormak istiyorum:
Sizin hazırlamış olduğunuz örnekte,

Sub getir()

Me.Ad = Me.Metin0.Column(1)

Me.soyad = Me.Metin0.Column(2)

Me.dyer = Me.Metin0.Column(3)

Me.dtar = Me.Metin0.Column(4)



Me.ozellik = Dlookup ("[ozellikleri]", "[kisiler]", "[kayitid]=" & Me.Metin0)



End Sub

Dlookup ile veri çekmeye çalıştım, veriler geldi ama maalesef yeni kayıta gittiğimde hata verdi.
Bunu nasıl düzeltebilirim?
Şimdiden çok teşekkür ederim.

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

Teşekkürler Celoyce, ben birkaç gündür bakamadım konularıma. Bu arada bu örneği hazırlamaktaki amacım size verilerin nasıl sayısal değerlerle depolanıp gerektiğinde asıl bilgilerin görüntülenebileceğini göstermekti. Siz bunun dışında bu örneği kayıt yapmak, aramak, silmek gibi işlemlerde kullanacaksanız, üzerinde biraz çalışmanız gerekecektir.

Sayın C*e*l*o*y*c*e ve Mehmet Demiral Hocalarım,
İkinize de çok teşekkür ederim...