Toegang Voorbeelden

Er zijn verschillende manieren om een ​​record in te voeren, en de meest voorkomende is om door middel van een formulier gebonden aan een tafel. Een andere manier om dit te doen is via niet-verbonden velden, dat wil zeggen met behulp van een formulier met velden onafhankelijke los van de tafel. Naar
u de gegevens we het recordset, bijvoorbeeld door een code die in het geval van dit voorbeeld is als volgt:

Dim db als database
Dim de goede kant als recordset

Als MsgBox ("Wil je schrijven?" VbYesNoCancel, "Options") = vbYes Dan
"Door het indrukken wordt gevraagd of u de record op te slaan of niet, zo ja de code blijft tot eind
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Data", dbOpenTable)
'Open de tabel in te voegen van de gegevens te registreren

rs.AddNew
rs ("naam") = Me! INome
rs ("adres") = Me! Imorada
rs ("leeftijd") = Me! Iidade
rs.Update 'stuurt de gegevens naar de tabel
rs.Close 'Wis de gegevens en sluit de recordset
Set rs = Nothing
Set db = Nothing

Me.INome = Null 'wist de velden van het formulier
Me.Imorada = Null
Me.Iidade = Null
MsgBox "gered Record", vbInformation, "Klaar" 'Display bevestigingsbericht
Me.INome.SetFocus 'Verplaats de cursor naar het eerste veld
Else: Exit Sub
End If

Download: Plaats Independent