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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"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...
"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...
"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...
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") 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
Salut,
"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...
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")
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
Salut,
"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...
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") 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
Salut,
"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...
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)
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)
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)
Merci de t'être penché sur mes problémes. Il y a beaucoup de choses de 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
re,
"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)
Merci de t'être penché sur mes problémes. Il y a beaucoup de choses de
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
re,
"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)
Merci de t'être penché sur mes problémes. Il y a beaucoup de choses de 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
re,
"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)
