Apprendre à programmer dans Microsoft Office Access peut vous donner l'avantage à exploiter pleinement les avantages de l'accès . Visual Basic pour Applications ( VBA) est un langage de programmation informatique utilisé pour automatiser des tâches telles que la création , l'édition et la mise à jour des tables . Vous pouvez créer des interfaces utilisateur ( UI) et les fonctions du programme pour donner à l'utilisateur un moyen convivial pour manipuler les informations de base de données . En utilisant la programmation sous Access gagner du temps en automatisant les processus de routine. Instructions
1

Lancement d'accès , cliquez sur " Nouvelle base de données " et cliquez sur le bouton "Créer" pour créer une nouvelle base de données. Cliquez sur l'onglet "Outils de base de données " et cliquez sur " Visual Basic " pour ouvrir la fenêtre de Microsoft Visual Basic . Cliquez sur le menu "Insertion " et cliquez sur "Module" pour insérer un nouveau module de code
2

Tapez la suivante pour créer une nouvelle procédure stockée : .

ProgramInAccess Private Sub ()

Appuyez sur " Entrée".
3

Tapez la commande suivante pour créer vos variables :

strSQL Dim As String

dataString As chaîne

myRst As Recordset

myDbs As Database

rowcnt As Integer

Set myDbs = CurrentDB
4

Tapez la commande suivante pour créer une nouvelle table dans la base de données :

strSQL = " CREATE tABLE tableWithData (TEXT à la clientèle (25), le texte des produits (25) ); "

DoCmd.SetWarnings False Photos

DoCmd.RunSQL ( strSQL )
5

Tapez la commande suivante pour ajouter une nouvelle ligne de données à l'aide de l'objet " DoCmd ":

sqlstr = "INSERT INTO tableWithData ( [Client] , [Produit] ) "

sqlstr = sqlstr &" VALUES ( 'Jean' , 'Bureau '); "

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( sqlstr )
6

Tapez la commande suivante pour ajouter une deuxième ligne de données à la table à l'aide d'un objet d'enregistrements:

Set myRst = myDbs.OpenRecordset ( " tableWithData »)

myRst.AddNew

myRst.Fields ( " Client ") . Value = " Susan "

myRst.Fields ( « Produit ») . Value = " Laptop "

myRst.Update

myRst.Close
7

Tapez la requête suivante , le nouveau tableau :

strSQL =" . SELECT * tableWithData d' tableWithData ; "
8

Tapez la commande suivante pour ouvrir la requête en utilisant un objet Recordset et boucle à travers le contenu de la table :

Set myRst = myDbs.OpenRecordset ( strSQL )

myRst.MoveFirst

rowcnt = 0 To myRst.RecordCount

dataString = "Client : " . & myRst.Fields (0) Value & "