Access: condition If pour ouvrir form

Fermé
aur82 Messages postés 29 Date d'inscription jeudi 26 juin 2008 Statut Membre Dernière intervention 1 juillet 2008 - 30 juin 2008 à 15:59
aur82 Messages postés 29 Date d'inscription jeudi 26 juin 2008 Statut Membre Dernière intervention 1 juillet 2008 - 30 juin 2008 à 17:08
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

1 réponse

BlueMind Messages postés 583 Date d'inscription vendredi 27 juin 2008 Statut Membre Dernière intervention 22 juillet 2008 159
30 juin 2008 à 16:15
Salut,

Tout ça me parait bien, où est le problème ? tu reçois un message d'erreur ou ???
0
aur82 Messages postés 29 Date d'inscription jeudi 26 juin 2008 Statut Membre Dernière intervention 1 juillet 2008
30 juin 2008 à 16:24
Je reçois "objet requis" comme message.

Je pense que je précise pas bien de quel objet il s'agit après le If
0
aur82 Messages postés 29 Date d'inscription jeudi 26 juin 2008 Statut Membre Dernière intervention 1 juillet 2008
30 juin 2008 à 17:08
Est-ce que quelque'un pourrait m'aider please???
0