Access Eksempler

Der er flere måder at komme til en rekord, og den mest almindelige er at få gennem en form bundet til et bord. En anden måde at gøre dette på er gennem uafhængige områder, nemlig ved hjælp af en formular med felter uafhængig uafhængige til bordet. Til
indtaste data, vi bruger "postsættet", dvs med en kode, som i tilfælde af dette eksempel er som følger:

Dim db som database
Dim rs Som Recordset

Hvis MsgBox ("Vil du skrive?" VbYesNoCancel, "Indstillinger") = vbYes Derefter
"Ved at trykke bliver bedt om at gemme posten eller ej, hvis så koden fortsætter indtil udgangen af
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Data", dbOpenTable)
"Åbn den tabel til at indsætte de data, der registrerer

rs.AddNew
rs ("navn") = Me! INome
rs ("adresse") = Me! Imorada
rs ("alder") = Me! Iidade
rs.Update 'sender data til bordet
rs.Close 'Ryd data og lukker postsættet
Set rs = Nothing
Set db = Nothing

Me.INome = Null 'rydder de felter i form
Me.Imorada = Null
Me.Iidade = Null
MsgBox "frelst Record", vbInformation "Udført" 'Vis bekræftelse
Me.INome.SetFocus 'Flyt markøren til det første felt
Else: Exit Sub
End If

Download: Placer Independent