|
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 & "
|
