Recordset a l'éxécution d'un formulaire

Question

Salut,

Je doit cr&#233;er un programme qui affiche des informations des clients
d'une base de donn&#233;e en fonction de la r&#233;f&#233;rence que l'utilisateur aura
entr&#233;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&#232;me fonction correspond a l'ouverture du formulaire, et la
premi&#232;re s'ex&#233;cute lorsque l'utilisateur a entrer une valeur et appyuer
sur le bouton "rechercher"



J'obtient cette erreur

http://www.imageshack.us





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&#233;l&#233;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

cs_Jack · Answer

Salut
Commence par utiliser des noms de variable qui ne soient pas des mots r&#233;serv&#233;s comme RecordSet ou Connection : il se peut que VB ait du mal &#224; s'y retrouver. Ajoute simplement une lettre devant, &#231;a suffit.
D'autre part, une fois que tu as charg&#233; ton RecordSet (rst) dans Form_Open (encore un drole de nom), tu le vides avant de sortir, donc, dans la recherche, si tu veux t'en resservir, il faut le re-cr&#233;er.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

loic911 · Answer

Les noms de variable sont ceux utilis&#233; par les profs.

Form_Open est g&#233;n&#233;rer automatiquement par access lorsqu'on d&#233;sire lancer une fonction a l'ouverture d'un formulaire.

J'ai essayer en supprimant les lignes qui vidait le recordset mais ca ne marche pas

loic911 · Answer

J'ai supprimer la fonction form_open et je l'ai recr&#233;er et ca a march&#233;

bizarre...

Recordset a l'éxécution d'un formulaire

3 réponses

Discussions similaires