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.
formdan tabloya veri girme
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
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.
Sayın Yandemir; teşekkür ederim
Konuyu Okuyanlar: 1 Ziyaretçi