Pristupne Primjeri

Postoji nekoliko načina za ulazak u evidenciju, a najčešći je da se kroz oblik vezan za stol. Još jedan način da to učinite je kroz nepovezanih područja, odnosno pomoću obrasca s poljima neovisno nepovezanih na stol. Na
unijeti podatke koristimo na 'Recordset', tj. kodom, koji u slučaju ovog primjera je kako slijedi:

Dim db kao baza podataka
Dim rs Kao Recordset

Ako MsgBox ("Želite li pisati?" VbYesNoCancel, "Opcije") = vbYes Tada
"Pritiskom se pitanje da li za spremanje rekord ili ne, ako je tako kod nastavlja se do kraja
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Data", dbOpenTable)
"Otvorite tablicu umetnuti podatke registrirajte

rs.AddNew
rs ("Ime") = Me! INome
rs ("adresa") = Me! Imorada
rs ("dob") = Me! Iidade
rs.Update 'šalje podatke u tablici
rs.Close "Clear podatke i zatvara Recordset
Set rs = Nothing
Set db = Nothing

Me.INome = Null 'čisti polja u formi
Me.Imorada = Null
Me.Iidade = Null
MsgBox "Zapis spašen", vbInformation, "Gotovo" "Display poruku s potvrdom
Me.INome.SetFocus 'Premjestite pokazivač na prvo polje
Drugo: Exit Sub
Kraj Ako je

Download: Mjesto Nezavisni