Non, a vrai dire je voudrais juste faire ca dans le code de mon bouton dans access meme cad en VB
J ai d ailleur trouver en cherchant dans des livre une solution mais il y a 1 probleme voir ***
Private Sub Commande11_Click()
Dim RS As Recordset
Dim DB As Database '**** type défini par < --ici l utilisateur non défini******
Dim Recherche As String
Dim trouv As Boolean 'stock la valeur trouvée
Set trouv = False
Set Recherche = "Ben" 'on recherchera l enregistrement Ben
Set DB = Application.CurrentDb 'utilise le bd actuelle
Set RS = DB.OpenRecordset("Pret", dbOpenTable, dbReadOnly) 'ini le pointeur
RS.MoveFirst 'place sur le premier record
Do
If (RS.Fields("Pret" ).Value = Recherche) Then 'si la valeur est Ben
trouv = True ' on a trouvé !
MsgBox RS.Fields("Pret" ).Value, vbOKOnly, "" 'Affiche donc Ben
End If
RS.MoveNext 'sinon on passe a l enreg suivant
Loop Until RS.BOF = True 'Fin de fichier
End Sub
ce que je trouve spécial c est que dans l aide d access ils utulise aussi ce Dim DB As Database alors pourquoi cela ne fonctionne t il pas faut il initialiser qq ch avant ???
D avance merci !