[déplacé VB/NET - VBA] Même bouton pointant sur plusieurs formulaires

Question

Bonjour,

Je suis sur ACCESS et rencontre quelques difficultés à réaliser un bouton répondant à mes besoins.
Je souhaite que ce bouton pointe sur différents formulaires.
Ce bouton point sur tel ou tel formulaire en fonction de la valeur d'un champ list.

J'ai fait ça :

Private Sub Form_Risque_Change_Click()
On Error GoTo Err_Form_Risque_Change_Click

'Déclaration des variables
    Dim stDocName As String
    Dim stDocName1 As String
    Dim stLinkCriteria As String
'Valeurs variables
    stDocName = "Formulaire_Risque_Change"
    stDocName = "Formulaire_Risque_Pays"
'Condition ouverture formulaire
If [Libelle].Seltext = "Change" then
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End if
If [Libelle].Seltext = "Pays" then
    DoCmd.OpenForm stDocName1, , , stLinkCriteria
End if

Exit_Form_Risque_Change_Click:
    Exit Sub

Err_Form_Risque_Change_Click:
    MsgBox Err.Description
    Resume Exit_Form_Risque_Change_Click
    
End Sub


ça fait ça :
"Impossible de faire référence à une propriété (...) si ce dernier n'est pas actif"

J'avoue, je sèche 

Merci pour votre aide

Bière qui roule bière qui mousse

pile_poil · Answer

l'erreur ne serait elle pas ici ?
'Valeurs variables
    stDocName = "Formulaire_Risque_Change"
    stDocName = "Formulaire_Risque_Pays"

j'aurais bien vu:
'Valeurs variables
    stDocName = "Formulaire_Risque_Change"
    stDocName1 = "Formulaire_Risque_Pays"



si c'est la solution,						 penser : REPONSE ACCEPTEE

idieordeco · Answer

Pardon,
C'est une erreur de frappe

Private Sub Form_Risque_Change_Click()
On Error GoTo Err_Form_Risque_Change_Click

'Déclaration des variables
    Dim stDocName As String
    Dim stDocName1 As String
    Dim stLinkCriteria As String
'Valeurs variables
    stDocName = "Formulaire_Risque_Change"
    stDocName1 = "Formulaire_Risque_Pays"
'Condition ouverture formulaire
If [Libelle].Seltext = "Change" then
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End if
If [Libelle].Seltext = "Pays" then
    DoCmd.OpenForm stDocName1, , , stLinkCriteria
End if

Exit_Form_Risque_Change_Click:
    Exit Sub

Err_Form_Risque_Change_Click:
    MsgBox Err.Description
    Resume Exit_Form_Risque_Change_Click
    
End Sub

Je pense que la fonction .Seltext qui ne passe pas.
En mettant .Value, je n'ai plus le message d'erreur
Par contre, le bouton ne fait rien 

Bière qui roule bière qui mousse

[déplacé VB/NET -> VBA] Même bouton pointant sur plusieurs formulaires

2 réponses

Votre réponse

Discussions similaires