Exemples d'accès

Il ya plusieurs façons d'entrer un enregistrement, et la plus courante consiste à passer à travers une forme liée à une table. Une autre façon de faire est à travers les champs indépendants, c.-à-l'aide d'un formulaire avec des champs indépendants indépendante à la table. À
entrer les données que nous utilisons le «jeu d'enregistrements», c'est à dire par un code, qui dans le cas de cet exemple est comme suit:

Db As Database
Dim rs Comme Recordset

If MsgBox ("Voulez-vous écrire?" VbYesNoCancel, "Options") = vbYes Puis
"En appuyant sur est demandé si vous souhaitez sauvegarder l'enregistrement ou non, si c'est le cas le code continue jusqu'à la fin
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Données", dbOpenTable)
«Ouvrez la table pour insérer les données vous inscrire

rs.addNew
rs ("nom") = Me! INome
rs ("adresse") = Me! Imorada
rs ("age") = Me! Iidade
rs.Update 'envoie les données à la table
rs.Close 'Effacer les données et ferme le jeu d'enregistrements
Set rs = Nothing
Set db = Nothing

Me.INome = Null 'efface les champs du formulaire
Me.Imorada = Null
Me.Iidade = Null
MsgBox "Record sauvé", vbInformation, "Done" 'message de confirmation d'affichage
Me.INome.SetFocus 'Déplacez le curseur sur le premier champ
Exit Sub: Else
End If

Téléchargement: Placez indépendant