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 ( )
< p > 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>