Access: condition If pour ouvrir form

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

1 réponse

BlueMind Messages postés 583 Statut Membre 159
 
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 Statut Membre
 
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 Statut Membre
 
Est-ce que quelque'un pourrait m'aider please???
0