AccessTr.neT

Arkadaşlar EK teki dosyada hazırladığım formdan tabloya veri girmek istiyorum, ancak birtürlü başaramadım, hep hata veriyor. Nasıl düzeltebilirim, nerede yanlış yaptığımı bulamadım. Yardımlarınızı bekliyorum.

Kodunuzu aşağıdaki gibi düzeltiniz.

Function ekle()

Dim rst As DAO.Recordset



Set rst = db.OpenRecordset("SELECT * FROM dos;")

rst.AddNew

rst.Fields("ID") = IIf(Nz(DMax("ID", "dos") + 1, 0) = 0, 1, Nz(DMax("ID", "dos") + 1, 0))

rst.Fields("tcno") = Left(Me.tcno, 11)

rst.Fields("adı") = Me.adı

rst.Fields("soyadı") = Me.soyadı

rst.Fields("adısoyadı") = Me.adı & " " & Me.soyadı

rst.Fields("babaadı") = Me.babaadı

rst.Fields("dogumyılı") = Me.dogumyılı

rst.Fields("yıl") = Me.yıl

rst.Fields("dosyano") = Me.dosyano

rst.Update

rst.Close

db.Close

End Function

Sayın Yandemir; teşekkür ederim