Recordset seulement a l'ouverture du formulaire

Recordset seulement a l'ouverture du formulaire - VB/VBA/VBS - Programmation

Marsh Posté le 16-04-2005 à 15:41:44    

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
http://img150.echo.cx/img150/1725/erreur2sa.jpg
 
 

Code :
  1. Option Compare Database
  2. Option Explicit
  3. Dim RecordSet As New ADODB.RecordSet
  4. Dim Connection As New ADODB.Connection
  5. Dim Requete As String
  7. Private Sub Cmd_recherche_Click()
  8.    
  9.  
  10.     RecordSet.Filter = "[NumPro] = " & Me.txt_num
  12.     Me.txt_num = RecordSet("NumPro" ).Value
  13.     Me.Txt_Nom = RecordSet("Nom" ).Value
  14.     Me.Txt_Prenom = RecordSet("Prenom" ).Value
  15.     Me.Txt_Adresse = RecordSet("Rue" ).Value
  16.     Me.Txt_Ville = RecordSet("Ville" ).Value
  17.     Me.Txt_CodePostal = RecordSet("CodePostal" ).Value
  18.     Me.txt_téléphone = RecordSet("Tel" ).Value
  19.     Me.txt_NumCpte = RecordSet("NumCpte" ).Value
  22. End Sub
  25. Private Sub Form_Open(Cancel As Integer)
  27.     Set Connection = CurrentProject.Connection
  28.     Call RecordSet.Open("SELECT NumPro,Nom,Prenom,Rue,Ville,CodePostal,Tel,NumCpte FROM PROPRIETAIRES", Connection, adOpenDynamic, adLockOptimistic)
  29.     Connection.Close
  30.     Set RecordSet = Nothing
  31.     Set Connection = Nothing
  32.     Exit Sub
  33.     On Error GoTo errorDB
  34.    
  35. errorDB:
  36.     MsgBox Err.Description
  37.     Set RecordSet = Nothing
  38.     Set Connection = Nothing
  43. End Sub

Reply

Marsh Posté le 16-04-2005 à 15:41:44   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed