Bonjour,
voila mon problème j'ai 'créé' un bouton recherche sous access car mon appli est sous access, mais lorsque je compile mon application j'ai une erreur, voici mon code vb

Private Sub BtrecherchePO_Click()

Dim req, req1 As QueryDef, rst, rst1 As Recordset <--------------------------- Erreur(s)
Dim test As Boolean
Dim reponse As String


'Initialisation du test
test = False

'Boucle si erreur de saisi on recommence
Do
'Saisir le code Matériel que le demandeur fourni
var = InputBox("Entrez le code matériel", "Recherche code")

'Test si le bouton annuler est cliquer ou rien n'a été rentrer dans var afin de quitter
If vbOK = -1 Or var = "" Then
test = False
'Sinon on effectue le traitement
Else

'Initialisation de la requete appelée
sSQL = "Recherche poste avec paramètre code"
'Ouverture du recordset
Set req = CurrentDb.QueryDefs(sSQL)
'Entre le paramètre de la requête
req![Entrez le code] = var
Set rst = req.OpenRecordset()

'Test si le recordset est vide
If (rst.EOF And rst.BOF) Then
test = True
MsgBox "Code Matériel erroné", vbOKOnly + vbCritical, "ERREUR"
'Si c bon alors on effectue le traitement
Else
'Affectation a des variables du contenu des colonnes
TEMP = rst![Code Poste]
temp2 = rst![Service]
temp3 = rst![poste.libellé]
'MsgBox temp, vbOKOnly

'Inscription dans la fenêtre texte box descrption fiche de l'information du PO
Description_Fiche.Value = Description_Fiche.Value & Chr(10) & "Poste : " & TEMP & " dans le service " & temp2 & " sur " & temp3 & Chr(13)


'Passage du test à faux car on a trouver un PO
test = False

'Demande si l'utilisateur veut ou non inscrire des informations sur le matériel incriminer dans la texte box
reponse = MsgBox("Le Problème est-il dû à un matériel?", vbYesNo + vbInformation, "Orientation")
'Si la reponse est possitive
If reponse = vbYes Then
'ouvre le formulaire Resultat
DoCmd.OpenForm ("Résultat")
End If
End If
' Fermeture du Recordset
rst.Close
End If

Loop Until test = False Or var = "0"
End Sub

alors si quelqu'un pourrait m'aider je vous en remercie

Configuration: Windows 2000
Firefox 2.0.0.14