|
Votre demande d'accès sera plus facile à utiliser si vous automatiquement renseignés champs dans une table lorsque vous savez que les données qui se passe en eux. Cela peut être accompli en utilisant Visual Basic pour Applications. Vous pouvez utiliser l'objet Recordset pour ouvrir la table de base de données et remplir les champs de la table. La méthode AddNew est utilisé pour créer un nouvel enregistrement dans l'objet Recordset et la méthode Update enregistre toutes les modifications apportées à l'enregistrement . Instructions
1 Cliquez sur " Database Tools " et cliquez sur " Visual Basic " pour ouvrir l'éditeur Visual Basic de Microsoft . Cliquez sur le menu "Insertion " et cliquez sur "Module" pour ajouter un nouveau module de code. Créer un nouveau sous-procédure en ajoutant le code suivant :
Private Sub populateField ()
2 Créer les variables que vous allez utiliser pour créer une nouvelle table et remplir un champ :
Dim dbs As Database
rst As Recordset
rowCntr As Integer
fnames Dim ( 10) As String
Set dbs = CurrentDb
3 remplir le tableau de la chaîne de données : Trouvez fnames (0) = "John"
fnames ( 1) = " Kitzia " < br > fnames ( 2) = " Adaly "
fnames (3) = "Oscar"
fnames (4) = " Emilio "
fnames (5) = " Carlos"
fnames (6) = " Sylvia "
fnames (7) = " Sebastian "
fnames (8) = " Luis"
< p> fnames (9) = "Joe"
4 exécuter une instruction SQL pour créer une nouvelle table dans la base de données avec un champ de texte:
sqlstr = " CREATE TABLE MyNewTable ( TEXTE Prénom (50) ) ; "
DoCmd.RunSQL ( sqlstr )
5 Ouvrez votre nouvelle table à l'aide d'un jeu d'enregistrements :
Set rst = dbs.OpenRecordset ( " MyNewTable " )
6 Créer une boucle pour remplir le champ " Prénom " de votre tableau :
rowCntr = 0 à 9
TVD. AddNew
rst.Fields (0) . Value = fnames ( rowCntr )
rst.Update
Suivant rowCntr
7 Fermer le jeu d'enregistrements et mettre fin à votre subprocédure :
rst.Close
End Sub
8 Appuyez sur " F5 " pour exécuter votre procédure. Revenez à Microsoft Access et double -cliquez sur " MyNewTable " pour afficher le champ peuplée.
|
