+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: formdan tabloya veri girme (/konu-formdan-tabloya-veri-girme--10504.html)
formdan tabloya veri girme - idrisy - 27/02/2011
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.
Cvp: formdan tabloya veri girme - Yandemir - 27/02/2011
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
Cvp: formdan tabloya veri girme - idrisy - 27/02/2011
Sayın Yandemir; teşekkür ederim