Condition si sur zone de texte & case à cocher
Le
squeepy
Bonjour
Dans un formulaire, j'ai de nombreuses zones de texte indépendant de la suite.
J'ai aussi un groupe d'option avec 2 cases à cocher et sur chaque case à
cocher, il y a 2 zones de textes qui vont avec. C'est à dire, si je coche la
case à cocher 1, alors je peux saisir des info correspondant à la case à
cocher1.
Si je coche la 2e case, je peux saisir des info correspondant à la case à
cocher 2
Sur un bouton valider, j'ai fait une procédure qui me dit que si une zone de
texte(indépendante de celles dans le groupe d'option) est nulle alors ca me
renvoit une erreur (Ca c'est bon)
Comment faire en plus, pour dire : si je coche la case 1 et si les 2 zones
de textes correspondantes à cette case sont nulles alors message, sinon si je
coche la case 2 et les 2 zones de texte correspondant a cette case sont
nulles alors message.
j'ai fait ça mais ca marche pas :
If IsNull(Txt_nom) Or IsNull(Txt_prenom) Then
MsgBox ("Vous n'avez pas tout rempli 1er Test")
ElseIf Me.CAdre_TypesActions.Value = 1 And IsNull(Txt_produit1) Or
IsNull(Txt_produit2) Then
MsgBox ("Vous n'avez pas tout rempli 2e Test")
ElseIf Me.CAdre_TypesActions.Value = 3 And IsNull(Txt_produit3) Or
IsNull(Txt_produit4) Then
MsgBox ("Vous n'avez pas tout rempli 3e Test")
Else
DoCmd.GoToRecord , , acNewRec
end if
--
Merci de votre aide
Dans un formulaire, j'ai de nombreuses zones de texte indépendant de la suite.
J'ai aussi un groupe d'option avec 2 cases à cocher et sur chaque case à
cocher, il y a 2 zones de textes qui vont avec. C'est à dire, si je coche la
case à cocher 1, alors je peux saisir des info correspondant à la case à
cocher1.
Si je coche la 2e case, je peux saisir des info correspondant à la case à
cocher 2
Sur un bouton valider, j'ai fait une procédure qui me dit que si une zone de
texte(indépendante de celles dans le groupe d'option) est nulle alors ca me
renvoit une erreur (Ca c'est bon)
Comment faire en plus, pour dire : si je coche la case 1 et si les 2 zones
de textes correspondantes à cette case sont nulles alors message, sinon si je
coche la case 2 et les 2 zones de texte correspondant a cette case sont
nulles alors message.
j'ai fait ça mais ca marche pas :
If IsNull(Txt_nom) Or IsNull(Txt_prenom) Then
MsgBox ("Vous n'avez pas tout rempli 1er Test")
ElseIf Me.CAdre_TypesActions.Value = 1 And IsNull(Txt_produit1) Or
IsNull(Txt_produit2) Then
MsgBox ("Vous n'avez pas tout rempli 2e Test")
ElseIf Me.CAdre_TypesActions.Value = 3 And IsNull(Txt_produit3) Or
IsNull(Txt_produit4) Then
MsgBox ("Vous n'avez pas tout rempli 3e Test")
Else
DoCmd.GoToRecord , , acNewRec
end if
--
Merci de votre aide
Poser une question
"squeepy"
| Dans un formulaire, j'ai de nombreuses zones de texte indépendant de la suite.
| J'ai aussi un groupe d'option avec 2 cases à cocher et sur chaque case à
| cocher, il y a 2 zones de textes qui vont avec. C'est à dire, si je coche la
| case à cocher 1, alors je peux saisir des info correspondant à la case à
| cocher1.
| Si je coche la 2e case, je peux saisir des info correspondant à la case à
| cocher 2
|
| Sur un bouton valider, j'ai fait une procédure qui me dit que si une zone de
| texte(indépendante de celles dans le groupe d'option) est nulle alors ca me
| renvoit une erreur (Ca c'est bon)
| Comment faire en plus, pour dire : si je coche la case 1 et si les 2 zones
| de textes correspondantes à cette case sont nulles alors message, sinon si je
| coche la case 2 et les 2 zones de texte correspondant a cette case sont
| nulles alors message.
| j'ai fait ça mais ca marche pas :
| If IsNull(Txt_nom) Or IsNull(Txt_prenom) Then
| MsgBox ("Vous n'avez pas tout rempli 1er Test")
| ElseIf Me.CAdre_TypesActions.Value = 1 And IsNull(Txt_produit1) Or
| IsNull(Txt_produit2) Then
| MsgBox ("Vous n'avez pas tout rempli 2e Test")
| ElseIf Me.CAdre_TypesActions.Value = 3 And IsNull(Txt_produit3) Or
| IsNull(Txt_produit4) Then
| MsgBox ("Vous n'avez pas tout rempli 3e Test")
| Else
| DoCmd.GoToRecord , , acNewRec
| end if
Hmm... quelque chose comme :
Select Case Me.Cadre_TypesActions
Case 1
if isnull(me.zdt1) or isnull(me.zdt2) then
msgbox "remplir test 1"
end if
case 3
if isnull(me.zdt3) or isnull(me.zdt4) then
msgbox "remplir test 2"
end if
case else
DoCmd.gotorecord, , acnewrecord
end select
sous réserve d'avoir compris ;-)
Parce que, faire un gotorecord acRecordNew avec des zones de texte indépendant...
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Private Sub Cmd_Valider_Click()
If IsNull(Me.CAdre_TypesActions.Value = 1) Or
IsNull(Me.CAdre_TypesActions.Value = 2) Or IsNull(Me.CAdre_TypesActions.Value
= 3) Then
MsgBox ("pas de cases cochés")
Select Case Me.CAdre_TypesActions
Case 1
If IsNull(Me.zdt1) Or IsNull(Me.zdt2) Then
MsgBox ("remplir test 1")
End If
Case 3
If IsNull(Me.zdt3) Or IsNull(Me.zdt4) Then
MsgBox ("remplir test 2")
End If
Case Else
End Select
ElseIf IsNull(Txt_Service) Or IsNull(Txt_Redacteur) then
MsgBox ("Des informations n'ont pas été remplies")
End If
Else
DoCmd.GoToRecord , , acNewRec
DoCmd.OpenForm ("Choix")
End If
End Sub
--
Merci de votre aide
"squeepy"
| qu'est ce qui ne vas pas :
Private Sub Cmd_Valider_Click()
If IsNull(Me.CAdre_TypesActions.Value = 1) Or
IsNull(Me.CAdre_TypesActions.Value = 2) Or
IsNull(Me.CAdre_TypesActions.Value = 3) Then
MsgBox ("pas de cases cochés")
l'expression....
un groupe d'option n'est pas Null (en principe)
il possède une valeur par défaut ( 0 - zéro)
le test deviendra(it)
if Me.Cadre_TypesActions = 0 then
msgbox "pas de choix..."
exit sub
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
résolus. Je n'ai pas plus qu'a résoudre(le mot est faible) le probléme de
revenifr sur un un autre formulaire
Ca va pas etre de la tarte
--
Merci de votre aide