Discussion :

[shmider]

Re-Bonjour tout le monde,

Je cherche à afficher un MsgBox si le formulaire "Commande" n'a pas été renseigné.
Alors j'ai commencé ma boucle if comme suite:
N.B: je fais la vérification par rapport à la clés primaire "ID_Commande"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If ID_Commande = Null
Then MsgBox "Veuillez remplir le formulaire commande"
Else: DoCmd.RunCommand acCmdSaveRecord

Sauf que j'ai une erreur avec selection du "Then":
Erreur de compilation attendu: numéro de ligne, ou d'étiquette, ou d'instruction ....

Qu'en pensez vous ? Où est l'erreur?

Je vous remercie pour votre temps.
@+

[Kloun]

Bonjour, un If n'est pas une boucle et sa syntaxe est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if ... then
Else
End if

[shmider]

Bonjour Kloun,
Merci beaucoup pour ton temps.

Rappel du problème:
Afficher le sous formulaire "Detail_Commande" si est seulement si le champ "ID_Commande" est plein.

Après avoir réctifié ma commande If, j'ai constaté que access (lors du clique sur le bouton qui appel la macro) ne prend pas en compte la condition If !

En fait, il affche toujours mon sous formulaire et quelque soit la valeur du champ "ID_Commande" vide ou plein !

Merci à toi.
@+

[shmider]

Hourraa !!
J'ai résolu le problème !

Voici la solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If IsNull(ID_Contrat) Then MsgBox "Vous devez renseigner le contrat d'abord", vbInformation _
    Else: Me!Detail_Contrat_ss.Visible = True
 
    DoCmd.RunCommand acCmdSaveRecord

@+