Bağımsız yoluyla bir kayıt alanları girme
Orada bir kayıt girmeniz için çeşitli yollar vardır ve en yaygın bir tabloyla ilişkili bir form üzerinden elde etmektir. Bunu yapmanın bir başka yolu masaya bağımsız olmayan alanları içeren bir form kullanılarak yani, ilgisiz alanları geçer. Için
aşağıdaki gibi bu örneğin durumunda bir kod tarafından yani 'recordset', kullanan veri girişi:
Veritabanı Dim db
Recordset Dim rsMsgBox ("yazmak ister misiniz?" VbYesNoCancel, "Seçenekler") = Sonra vbYes ise
"Basarak kodun sonuna kadar devam ediyor eğer öyleyse, kayıt kaydetmek ya da değil mi isteniyor
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Veri", dbOpenTable)
'Veri kayıt eklemek için tabloyu açınrs.AddNew
rs ("isim") = Me! INome
rs ("adres") = Me! Imorada
rs ("yaş") = Me! Iidade
rs.Update 'tablosu veri gönderir
rs.Close 'Clear veri ve kayıt kapatır
Rs = Nothing Set
Db = Nothing SetMe.INome = Boş 'şeklinde alanları temizlenir
Me.Imorada = null
Me.Iidade = null
MsgBox "kaydedilen Record", vbInformation, 'Ekran onay mesajı "Bitti"
Me.INome.SetFocus 'ilk alana götür
Else: Exit Sub
End If
Download: Bağımsız Yeri
Yorum yok.