|
Savoir comment effectuer des recherches dans les enregistrements d'une table de base de données en utilisant une requête dans Microsoft Office Access ne peut vous faire gagner du temps lors de la recherche de texte spécifique dans une colonne. Visual Basic pour Applications, également connu sous VBA est un langage de programmation utilisé pour automatiser des tâches courantes dans d'autres applications MS Office et Microsoft Access . Access est un système de gestion de base de données relationnelle utilisée pour concevoir de petites bases de données. Une requête est utilisée pour récupérer des informations à partir d'une table de base de données. Instructions
1 Ouvrez la base de données Access Northwind Microsoft Office . La base de données Northwind est inclus dans la suite Microsoft Office.
2 Cliquez sur " Database Tools ", puis sélectionnez " Visual Basic " pour ouvrir la fenêtre de Microsoft Visual Basic . Cliquez sur le champ "Insérer" et sélectionner "Module ".
3 Tapez la commande suivante pour créer un nouveau sous-programme :
searchRecords Private Sub ( )
Appuyez sur " Entrée".
4 Tapez la commande suivante pour créer la variable "rst " , vous allez l'utiliser pour ouvrir une nouvelle enregistrements:
rst As Recordset
Tapez la commande suivante pour créer la variable " DBS " , vous allez l'utiliser pour identifier la base de données actuelle :
Dim dbs As Database
Tapez la commande suivante pour créer la variable " chaîneOrigine " , vous allez utiliser pour tenir caractères que vous rechercher dans la recherche d'enregistrement : Photos chaîneOrigine Dim As String
Tapez la commande suivante pour définir la base de données actuelle comme base de données à utiliser dans ce sous-programme : Photos Set dbs = CurrentDb
5 Tapez la commande suivante pour définir la chaîne que vous allez utiliser pour rechercher les enregistrements renvoyés par la requête , en utilisant le nom de " Daniel" à titre d'exemple : Photos chaîneOrigine = " Daniel"
6 Tapez la commande suivante pour ouvrir un nouveau jeu d'enregistrements et d'interrogation de la table " clients ":
Set rst = dbs.OpenRecordset ( " SELECT * FROM clients clients . " )
Modifier la ligne de code suivante pour interroger un autre tableau :
Set rst = dbs.OpenRecordset ("SELECT * FROM < . , le nom de table> " )
Tapez la commande suivante pour passer au premier enregistrement des résultats de la requête :
rst.MoveFirst
7 Type de ce qui suit à la boucle à travers le jeu d'enregistrements par incrémentation de la position d'enregistrements et de recherche pour "Daniel" dans le "Prénom" colonne :
Do While Not rst.EOF
Si rst.Fields ( "Prénom" ) . Value = chaîneOrigine Puis
MsgBox " trouvée" & chaîneOrigine & "dans le numéro de dossier :" & rst.AbsolutePosition
rst.MoveLast
Else
rst.MoveNext
End If
boucle
pour rechercher d'autres jeux de caractères dans une colonne différente , modifiez les lignes de code suivantes:
chaîneOrigine = "text "
Si rst.Fields ( " 8 Type de ce qui suit pour libérer variables de mémoire :
rst.Close
dbs.Close
Appuyez sur " F5 " pour exécuter votre routine
< . br>
|
