Problème lancement d'un Etat sous access/vb

Question

Bonjour, 



Voil&#224; mon probl&#232;me sous access: 



J'ai un Formulaire F contenant un sous-formulaire SF. Avec du code VB,
je remplit le SF.RecordSource avec les requ&#234;tes R1,R2 ou R3 en fonction
du contr&#244;le s&#233;lectionn&#233; 



           
           
       ( ex : Private Sub Controle1_Click()

           
           
             
        Form_SF.RecordSource = "R1"

           
           
           
          Me.Recalc

           
           
           
    End Sub)



J'ai cr&#233;&#233; un Etat E qui affiche le contenu de R1.



Dans F, il y a un bouton B qui permet d'ouvrir E selon le code suivant : 

        



            Private Sub Controle1_Click()

                    On Error GoTo Err_controle1_Click



                    Dim stDocName As String

                    Dim requ&#234;te As String

    

                    'D&#233;finition de la source de l'&#233;tat

                    requ&#234;te = Form_SF.RecordSource



                    stDocName = "E"

                   

            
        'Ouverture de l'&#233;tat avec la
source comme parametre

           
         DoCmd.OpenReport stDocName,
acPreview, requ&#234;te



            Exit_Controle_Click:

            Exit Sub



            Err_Controle_Click:

                     MsgBox Err.Description

            Resume Exit_ControleRAO_Click

    

            End Sub



Si j'ouvre E manuellement, les donn&#233;es s'affiche dans le rapport.

Si j'ouvre E avec le bouton, j'ai un message d'erreur " Le champ
sp&#233;cifi&#233; X peut &#234;tre d&#233;signer plusieurs tables list&#233;es dans la clause
Form de votre instruction SQL



Est ce que quelqu'un &#224; une id&#233;e ??

elpaulo · Answer

Alors tu ouvre le formulaire de mon Q et la table T puis tu clique C et tu te d&#233;merdes D.

omsylv · Answer

Inutile d'&#234;tre malpoli. J'avais remplac&#233; les vrais noms qui sont
imbuvables par des lettres toutes simples. Si &#231;a ne convient pas, il
faut demander gentiement.

omsylv · Answer

Au fait, je suis d&#233;sol&#233; mais je viens de m'appercevoir que j'ai fait
une petite erreur de copier-coller au niveau des noms, le code sur le
bouton c'est : 

    

Private Sub Bouton_Click()
                     On Error GoTo Err_Bouton_Click
 
                     Dim stDocName As String
                     Dim requ&#234;te As String
     
                     'D&#233;finition de la source de l'&#233;tat
                     requ&#234;te = Form_SF.RecordSource
 
                     stDocName = "E"
                    
                      'Ouverture de l'&#233;tat avec la source comme parametre

           
         DoCmd.OpenReport stDocName,
acPreview, requ&#234;te
 
             Exit_Bouton_Click:
             Exit Sub
 
             Err_Bouton_Click:
                      MsgBox Err.Description
             Resume Exit_Bouton_Click
     
             End Sub



Voil&#224;

Problème lancement d'un Etat sous access/vb

3 réponses

Discussions similaires