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
Kodunuzu aşağıdaki gibi düzeltiniz.
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.