finch911 | Salut,
Je doit créer un programme qui affiche des informations des clients d'une base de donnée en fonction de la référence que l'utilisateur aura entrée.
Ca marche parfaitement, simplement il faut que je passe tous les enregistrement dans un recordset a l'ouverture du formulaire. Comme ca si l'utilisateur fait 10 recherches, le programme n'aura pas a se connecter 10 fois a la base...il reprendra simplement le recordset.
La deuxième fonction correspond a l'ouverture du formulaire, et la première s'exécute lorsque l'utilisateur a entrer une valeur et appyuer sur le bouton "rechercher"
J'obtient cette erreur
Code :
- Option Compare Database
- Option Explicit
- Dim RecordSet As New ADODB.RecordSet
- Dim Connection As New ADODB.Connection
- Dim Requete As String
- Private Sub Cmd_recherche_Click()
-
-
- RecordSet.Filter = "[NumPro] = " & Me.txt_num
- Me.txt_num = RecordSet("NumPro" ).Value
- Me.Txt_Nom = RecordSet("Nom" ).Value
- Me.Txt_Prenom = RecordSet("Prenom" ).Value
- Me.Txt_Adresse = RecordSet("Rue" ).Value
- Me.Txt_Ville = RecordSet("Ville" ).Value
- Me.Txt_CodePostal = RecordSet("CodePostal" ).Value
- Me.txt_téléphone = RecordSet("Tel" ).Value
- Me.txt_NumCpte = RecordSet("NumCpte" ).Value
- End Sub
- Private Sub Form_Open(Cancel As Integer)
- Set Connection = CurrentProject.Connection
- Call RecordSet.Open("SELECT NumPro,Nom,Prenom,Rue,Ville,CodePostal,Tel,NumCpte FROM PROPRIETAIRES", Connection, adOpenDynamic, adLockOptimistic)
- Connection.Close
- Set RecordSet = Nothing
- Set Connection = Nothing
- Exit Sub
- On Error GoTo errorDB
-
- errorDB:
- MsgBox Err.Description
- Set RecordSet = Nothing
- Set Connection = Nothing
- End Sub
|
|
