Access: condition If pour ouvrir form
aur82
Messages postés
29
Statut
Membre
-
aur82 Messages postés 29 Statut Membre -
aur82 Messages postés 29 Statut Membre -
Bonjour,
Je suis toujours sur mon grand formulaire... Et voici mon problème:
Je souhaite ouvrir un formulaire différent selon que le répondant est une femme ou un homme. J'ai le code pour ouvrir le formulaire, mais je bogue avec les If:
Il faut aller chercher l'info dans la table_1, voici ce que j'ai pour l'instant :
Private Sub Ouvrir_Form6_Click()
On Error GoTo Err_Ouvrir_Form6_Click
Dim stDocName As String
Dim stLinkCriteria As String
If acTable "Table_1"!SEX = 2 Then
stDocName = "Formulaire6_Femmes"
Else
stDocName = "Formulaire7_Résultats"
End If
stLinkCriteria = "[CPNBR]=" & "'" & Me![CPNBR] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "Formulaire5_Habitudes", acSaveYes
Exit_Ouvrir_Form6_Click:
Exit Sub
Err_Ouvrir_Form6_Click:
MsgBox Err.Description
Resume Exit_Ouvrir_Form6_Click
End Sub
Merci de votre aide,
Aur82
Je suis toujours sur mon grand formulaire... Et voici mon problème:
Je souhaite ouvrir un formulaire différent selon que le répondant est une femme ou un homme. J'ai le code pour ouvrir le formulaire, mais je bogue avec les If:
Il faut aller chercher l'info dans la table_1, voici ce que j'ai pour l'instant :
Private Sub Ouvrir_Form6_Click()
On Error GoTo Err_Ouvrir_Form6_Click
Dim stDocName As String
Dim stLinkCriteria As String
If acTable "Table_1"!SEX = 2 Then
stDocName = "Formulaire6_Femmes"
Else
stDocName = "Formulaire7_Résultats"
End If
stLinkCriteria = "[CPNBR]=" & "'" & Me![CPNBR] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "Formulaire5_Habitudes", acSaveYes
Exit_Ouvrir_Form6_Click:
Exit Sub
Err_Ouvrir_Form6_Click:
MsgBox Err.Description
Resume Exit_Ouvrir_Form6_Click
End Sub
Merci de votre aide,
Aur82
A voir également:
- Access: condition If pour ouvrir form
- Access appdata - Guide
- Acer quick access - Forum logiciel systeme
- Désinstaller ACER QUICK ACCESS - Forum Logiciels
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
- [Access] creer base données client-produits - Forum Programmation
Je pense que je précise pas bien de quel objet il s'agit après le If