Dans un formulaire (Form1), j'ai une liste déroulante (Liste1) pour laquelle
je traite l'évènement NotInList avec
le code suivant
strTmp = NewData
intReturn = MsgBox("La prestation : '" & strTmp & "' n'est pas dans la
liste. Voulez-vous l'ajouter?", vbQuestion + vbYesNo, Titre_Db)
If intReturn = vbYes Then
DoCmd.OpenForm FormName Form2, DataMode:=acAdd,
windowmode:=acDialog, OpenArgs:=strTmp
If IsNull(DLookup("RefPrestation", "Tbl_Prestations", "[Prestation]
= '" & strTmp & "'")) Then
Response = acDataErrContinue
Else
Response = acDataErrAdded
End If
Exit Sub
End If
Response = acDataErrContinue
Dans le formulaire qui s'ouvre, je crée un nouvel enregistrement avec la
valeur passée en OpenArgs.
Cet enregistrement a un autre champ qui utilise aussi une liste déroulante
(Liste2) dont l'évènement NotInList est traité comme ci-dessus (avec
ouverture d'un formulaire Form3).
Si je ne passe que dans l'évènement NotInList de la liste Liste1, elle est
bien actualisée avec la nouvelle valeur.
Si je passe dans les 2 évènements NotInList, la liste Liste2 est bien
actualisée avec la nouvelle valeur, mais pas la liste Liste1.
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,
"Gilbert" | Mon problème est le suivant | | Dans un formulaire (Form1), j'ai une liste déroulante (Liste1) pour laquelle | je traite l'évènement NotInList avec | le code suivant | | strTmp = NewData | intReturn = MsgBox("La prestation : '" & strTmp & "' n'est pas dans la | liste. Voulez-vous l'ajouter?", vbQuestion + vbYesNo, Titre_Db) | If intReturn = vbYes Then | DoCmd.OpenForm FormName Form2, DataMode:¬Add, | windowmode:¬Dialog, OpenArgs:=strTmp | If IsNull(DLookup("RefPrestation", "Tbl_Prestations", "[Prestation] | = '" & strTmp & "'")) Then | Response = acDataErrContinue | Else | Response = acDataErrAdded | End If | Exit Sub | End If | Response = acDataErrContinue
Je ne comprends pas bien ta méthode...
Sur déclenchement du "NotInList" tu fait un Dlookup() ? Pourquoi ?? Le notinlist se déclenche justement lorsque la valeur n'existe pas !
Pour le reste... si les deux listes reponsent sur la même table il suffit de traiter la première liste. Si elles reponsent sur deux tables différentes le traitement sera(it) indépendant aussi...
"Gilbert"
| Mon problème est le suivant
|
| Dans un formulaire (Form1), j'ai une liste déroulante (Liste1) pour laquelle
| je traite l'évènement NotInList avec
| le code suivant
|
| strTmp = NewData
| intReturn = MsgBox("La prestation : '" & strTmp & "' n'est pas dans la
| liste. Voulez-vous l'ajouter?", vbQuestion + vbYesNo, Titre_Db)
| If intReturn = vbYes Then
| DoCmd.OpenForm FormName Form2, DataMode:¬Add,
| windowmode:¬Dialog, OpenArgs:=strTmp
| If IsNull(DLookup("RefPrestation", "Tbl_Prestations", "[Prestation]
| = '" & strTmp & "'")) Then
| Response = acDataErrContinue
| Else
| Response = acDataErrAdded
| End If
| Exit Sub
| End If
| Response = acDataErrContinue
Je ne comprends pas bien ta méthode...
Sur déclenchement du "NotInList" tu fait un Dlookup() ?
Pourquoi ??
Le notinlist se déclenche justement lorsque la valeur n'existe pas !
Pour le reste... si les deux listes reponsent sur la même table
il suffit de traiter la première liste. Si elles reponsent sur deux
tables différentes le traitement sera(it) indépendant aussi...
"Gilbert" | Mon problème est le suivant | | Dans un formulaire (Form1), j'ai une liste déroulante (Liste1) pour laquelle | je traite l'évènement NotInList avec | le code suivant | | strTmp = NewData | intReturn = MsgBox("La prestation : '" & strTmp & "' n'est pas dans la | liste. Voulez-vous l'ajouter?", vbQuestion + vbYesNo, Titre_Db) | If intReturn = vbYes Then | DoCmd.OpenForm FormName Form2, DataMode:¬Add, | windowmode:¬Dialog, OpenArgs:=strTmp | If IsNull(DLookup("RefPrestation", "Tbl_Prestations", "[Prestation] | = '" & strTmp & "'")) Then | Response = acDataErrContinue | Else | Response = acDataErrAdded | End If | Exit Sub | End If | Response = acDataErrContinue
Je ne comprends pas bien ta méthode...
Sur déclenchement du "NotInList" tu fait un Dlookup() ? Pourquoi ?? Le notinlist se déclenche justement lorsque la valeur n'existe pas !
Pour le reste... si les deux listes reponsent sur la même table il suffit de traiter la première liste. Si elles reponsent sur deux tables différentes le traitement sera(it) indépendant aussi...
J'ouvre le formulaire en mode modal pour ajouter la valeur saisie, et ensuite avec le Dlookup, je vérifie que la valeur a bien été ajoutée dans la table. Les 2 listes reposent sur des tables différentes.
"3stone" a écrit dans le message de news:O6Qa%
Salut,
"Gilbert" | Mon problème est le suivant | | Dans un formulaire (Form1), j'ai une liste déroulante (Liste1) pour laquelle
| je traite l'évènement NotInList avec | le code suivant | | strTmp = NewData | intReturn = MsgBox("La prestation : '" & strTmp & "' n'est pas dans la
| liste. Voulez-vous l'ajouter?", vbQuestion + vbYesNo, Titre_Db) | If intReturn = vbYes Then | DoCmd.OpenForm FormName Form2, DataMode:¬Add, | windowmode:¬Dialog, OpenArgs:=strTmp | If IsNull(DLookup("RefPrestation", "Tbl_Prestations", "[Prestation]
| = '" & strTmp & "'")) Then | Response = acDataErrContinue | Else | Response = acDataErrAdded | End If | Exit Sub | End If | Response = acDataErrContinue
Je ne comprends pas bien ta méthode...
Sur déclenchement du "NotInList" tu fait un Dlookup() ? Pourquoi ?? Le notinlist se déclenche justement lorsque la valeur n'existe pas !
Pour le reste... si les deux listes reponsent sur la même table il suffit de traiter la première liste. Si elles reponsent sur deux tables différentes le traitement sera(it) indépendant aussi...
J'ouvre le formulaire en mode modal pour ajouter la valeur saisie, et
ensuite avec le Dlookup, je vérifie que la valeur a bien été ajoutée dans la
table.
Les 2 listes reposent sur des tables différentes.
"3stone" <3stone_@_skynet_be> a écrit dans le message de
news:O6Qa%23wZKGHA.916@TK2MSFTNGP10.phx.gbl...
Salut,
"Gilbert"
| Mon problème est le suivant
|
| Dans un formulaire (Form1), j'ai une liste déroulante (Liste1) pour
laquelle
| je traite l'évènement NotInList avec
| le code suivant
|
| strTmp = NewData
| intReturn = MsgBox("La prestation : '" & strTmp & "' n'est pas dans
la
| liste. Voulez-vous l'ajouter?", vbQuestion + vbYesNo, Titre_Db)
| If intReturn = vbYes Then
| DoCmd.OpenForm FormName Form2, DataMode:¬Add,
| windowmode:¬Dialog, OpenArgs:=strTmp
| If IsNull(DLookup("RefPrestation", "Tbl_Prestations",
"[Prestation]
| = '" & strTmp & "'")) Then
| Response = acDataErrContinue
| Else
| Response = acDataErrAdded
| End If
| Exit Sub
| End If
| Response = acDataErrContinue
Je ne comprends pas bien ta méthode...
Sur déclenchement du "NotInList" tu fait un Dlookup() ?
Pourquoi ??
Le notinlist se déclenche justement lorsque la valeur n'existe pas !
Pour le reste... si les deux listes reponsent sur la même table
il suffit de traiter la première liste. Si elles reponsent sur deux
tables différentes le traitement sera(it) indépendant aussi...
J'ouvre le formulaire en mode modal pour ajouter la valeur saisie, et ensuite avec le Dlookup, je vérifie que la valeur a bien été ajoutée dans la table. Les 2 listes reposent sur des tables différentes.
"3stone" a écrit dans le message de news:O6Qa%
Salut,
"Gilbert" | Mon problème est le suivant | | Dans un formulaire (Form1), j'ai une liste déroulante (Liste1) pour laquelle
| je traite l'évènement NotInList avec | le code suivant | | strTmp = NewData | intReturn = MsgBox("La prestation : '" & strTmp & "' n'est pas dans la
| liste. Voulez-vous l'ajouter?", vbQuestion + vbYesNo, Titre_Db) | If intReturn = vbYes Then | DoCmd.OpenForm FormName Form2, DataMode:¬Add, | windowmode:¬Dialog, OpenArgs:=strTmp | If IsNull(DLookup("RefPrestation", "Tbl_Prestations", "[Prestation]
| = '" & strTmp & "'")) Then | Response = acDataErrContinue | Else | Response = acDataErrAdded | End If | Exit Sub | End If | Response = acDataErrContinue
Je ne comprends pas bien ta méthode...
Sur déclenchement du "NotInList" tu fait un Dlookup() ? Pourquoi ?? Le notinlist se déclenche justement lorsque la valeur n'existe pas !
Pour le reste... si les deux listes reponsent sur la même table il suffit de traiter la première liste. Si elles reponsent sur deux tables différentes le traitement sera(it) indépendant aussi...