|
Ne pas afficher les dernières informations dans votre application de base de données peut être un problème si les données affichées sont utilisés pour prendre des décisions cruciales . Vous pouvez utiliser un contrôle de zone de liste pour afficher des informations à partir d'une table de base de données par le biais d'une requête. Les « Requery " actualise la propriété de requête utilisé dans le contrôle zone de liste pour afficher les dernières informations . C'est une bonne pratique pour actualiser les données dans un contrôle par programmation au lieu de redémarrer l'application pour actualiser vos données. Choses que vous devez
Northwind base de données
Afficher plus Instructions
1 Ouvrez la base de données Northwind , cliquez sur le menu «Créer» et cliquez sur « Form Design » dans les « formes " volet . Cliquez sur l'onglet " Design" et sélectionnez " List Box" dans le volet " Commandes " . Cliquez sur le "Form" dans la zone "Détail" et faites glisser votre souris tout en maintenant le bouton de la souris enfoncé pour dessiner une nouvelle liste de contrôle de la boîte. Cliquez sur "Button" et utiliser la même technique pour dessiner un nouveau bouton sur le formulaire.
2 clic droit - votre nouveau contrôle zone de liste et cliquez sur «Propriétés». Cliquez sur l'onglet "Format" et entrez " 5" à côté de " Nombre de colonnes ".
3 Cliquez sur l'onglet "Data" , et copier et coller le code SQL ci-dessous à côté " . . . . Row Source ":
SELECT Customers.Company , les clients [nom] , clients [ Prénom ] , clients [E- mail] clients [titre du poste ] FROM Clients ;
Hôtels 4 clic droit - votre nouveau bouton sur le formulaire et cliquez sur «Propriétés». Cliquez sur l' onglet "Evénement " et choisissez " [Procédure événementielle ] " à côté de " Sur clic». Cliquez sur l' ellipse pour créer une nouvelle procédure " Button_Click " et ouvrez la fenêtre de Microsoft Visual Basic
5 Copier et coller le code ci-dessous dans la procédure de bouton pour créer deux variables: .
Dim dbs As Database
strSQL Dim As String
6 Copier et coller le code ci-dessous pour définir la base de données actuelle comme base de données à utiliser:
Set dbs = CurrentDb
7 Copiez et collez le code ci -dessous pour insérer un nouveau client dans la table "Clients ":
strSQL = "INSERT INTO clients ( Company, [nom de famille ], [ Prénom ], [ E -mail] , [Titre du poste ] ) "
strSQL = strSQL &" VALUES (' Compnay 1', 'Smith' , 'Jean' , ' johnsmith @ yahoo . com ' , ' Manager ' ) ; "
dbs.Execute ( strSQL )
8 Copiez et collez la ligne de code suivante pour actualiser la requête dans la liste de contrôle de la boîte et afficher le nouveau client ajouté:
List0.Requery
9 revenir à la fenêtre Microsoft Access et cliquez sur l'icône "Affichage" . Cliquez sur le bouton pour exécuter votre code. Faites défiler la liste , et vous verrez le nouveau client ajouté.
|
