|
Savoir comment utiliser Visual Basic dans Access 2007 peut vous donner une grande flexibilité lors du développement d'applications de bases de données . Access 2007 vous donne la possibilité d' améliorer votre développement en vous donnant la possibilité d'écrire du code Visual Basic pour les formulaires et les contrôles que vous avez créées . Visual Basic est un langage de programmation créé par Microsoft et il est facile à utiliser. Vous pouvez facilement programmer en créant des rapports Visual Basic dans une base de données Access ou effectuer des tâches manuelles répétitives . Instructions
1 Cliquez sur l'onglet "Créer" dans Access et sélectionnez " Form Design ». Le programme créera une nouvelle forme . Sélectionnez la commande "Button" dans le cadre du volet «contrôle» et déplacez votre souris sur le nouveau formulaire. Clic gauche et créer le nouveau bouton . Ajoutez un contrôle " Zone de liste " à la forme de la même manière que vous avez ajouté le bouton.
2 Faites un clic droit sur la zone de liste et sélectionnez "Propriétés". Sur la " Feuille de propriétés ", cliquez sur l' onglet "Données " et sélectionnez le menu déroulant sur " Row Type de source " et sélectionner " Liste de valeurs ".
3 Faites un clic droit sur le nouveau bouton et sélectionnez "Propriétés". Sur la " Feuille de propriétés ", cliquez sur l'onglet "Evénement" et sélectionnez dans le menu déroulant sur " Cliquez sur " et sélectionnez " [Procédure événementielle ] . " . Cliquez sur les points de suspension (...) et une nouvelle fenêtre de Microsoft Visual Basic s'ouvre
4 Tapez la commande suivante :
Dim dbs As Database Dim
TVD Recordset
Dim X As Integer
strSQL Dim As String
LastFirst Dim As String
déclarer des variables que vous allez utiliser .
5 type:
Set dbs = CurrentDb
pour définir la base de données actuelle
type : .
strSQL = " CREATE TABLE Table1 ( TEXTE Prénom (25) , TEXT nOM (25) ) ; ».
DoCmd.RunSQL ( strSQL )
pour créer une nouvelle table dans la base de données nommée " Table1 "
6 type:
strSQL = "INSERT INTO Table1 ( [Prénom ] [ Nom] ) "
strSQL = strSQL & " VALUES ( 'Jean' , 'Smith' ) ; ».
DoCmd.SetWarnings Faux
DoCmd.RunSQL ( strSQL )
d'insérer la première rangée de données
7 type de : Photos strSQL = "INSERT INTO Table1 ( [Prénom ] [ Nom] ) "
strSQL = strSQL & " VALUES ( ' Jaime ', ' Avelar '); "
. DoCmd.SetWarnings Faux
DoCmd.RunSQL ( strSQL )
d'insérer une seconde ligne de données
8 Type de :
set rst = dbs.OpenRecordset ( "Table1 " )
pour définir le jeu d'enregistrements
type : .
rst.MoveFirst
Pour X = 0 pour rst.RecordCount - 1 x LastFirst = Trim ( . rst.Fields ( "Nom" ) Value) & "" & Trim ( rst.Fields (". Prénom " ) Value)
List1.AddItem LastFirst
rst.MoveNext
Suivant X
pour parcourir les enregistrements que vous venez de créer et de les afficher dans la zone de liste sur le formulaire .
Photos 9 Type de :
MsgBox "Vous avez fait preuve tous les records dans le tableau 1 pour la liste box avec succès" , vbInformation
pour afficher un message . Basculer entre les fenêtres vers Access 2007 et cliquez sur "View" pour exécuter le formulaire . Cliquez sur le bouton " Command0 " et vous verrez la liste de contrôle de la boîte affichant les noms.
|
