Bonjour à tous
Question de faisabilité
J'ai une table SaisieActe contenant entre autre 1 champ "ActeChirurgical "
avec une liste dans contenu : EX / exérèse; obturation, scellement etc...; un
2ème champ "Cotation" en numérique et 3ème champ "N°Dent " avec 1 liste de 11
à 18 et de 51 à 55
J'ai créé un Formulaire SaisieActe contenant :
une liste déroulante avec concénation du nom; prénom et date naissance du
patient
un champ Acte
Un champ N° Dent
Un champ Cotation
Je voulais qu'en choisissant un acte, la cotation soit automatique dans
champ Cotation. J'ai écrit dans champ Acte dans Après MAJ Select case Acte
Case "Scellement"
Me.Cotation = 9
End Select End Sub
Cela fonctionne. Mais plus compliqué...
Est-il possible de n'autoriser qu'un ou plusieurs N°Dent pour un type d'acte
Ex : Scellement uniquement pour 16, 17 et si je choisis un autre N° ex 11
j'ai un message d'erreur ?
Merci d'avance
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
pgz
Bonjour,
Voici une suggestion : tu crées une procédure appelée par les évènements après mise à jour de Acte et après mise à jour de N° Dent. '************************************ Private sub subVérifCohérenceDentActe() if isnull(Me.Acte) or isnull(Me.[N° Dent]) then exit sub ' vérifier chaque cas d'incompatibilité If Me.Acte = "Scellement" And Me.[N° Dent] <>16 And Me.[N° Dent] <> 17 then GoTo Incompatibilité 'autres incompatibilités ...
exit sub
Incompatibilité : MsgBox "Incompatibilité. L'acte """ & Me.Acte & """ ne peut concerner la dent n° " & Me.[N° Dent] & "."
End sub '*************************
En gros, pour l'idée.
Bon courage, -- pgz _____________________________
Bonjour à tous Question de faisabilité J'ai une table SaisieActe contenant entre autre 1 champ "ActeChirurgical " avec une liste dans contenu : EX / exérèse; obturation, scellement etc...; un 2ème champ "Cotation" en numérique et 3ème champ "N°Dent " avec 1 liste de 11 à 18 et de 51 à 55 J'ai créé un Formulaire SaisieActe contenant : une liste déroulante avec concénation du nom; prénom et date naissance du patient un champ Acte Un champ N° Dent Un champ Cotation Je voulais qu'en choisissant un acte, la cotation soit automatique dans champ Cotation. J'ai écrit dans champ Acte dans Après MAJ Select case Acte Case "Scellement" Me.Cotation = 9 End Select End Sub Cela fonctionne. Mais plus compliqué... Est-il possible de n'autoriser qu'un ou plusieurs N°Dent pour un type d'acte Ex : Scellement uniquement pour 16, 17 et si je choisis un autre N° ex 11 j'ai un message d'erreur ? Merci d'avance
Bonjour,
Voici une suggestion : tu crées une procédure appelée par les évènements
après mise à jour de Acte et après mise à jour de N° Dent.
'************************************
Private sub subVérifCohérenceDentActe()
if isnull(Me.Acte) or isnull(Me.[N° Dent]) then exit sub
' vérifier chaque cas d'incompatibilité
If Me.Acte = "Scellement" And Me.[N° Dent] <>16 And Me.[N° Dent] <> 17 then
GoTo Incompatibilité
'autres incompatibilités
...
exit sub
Incompatibilité :
MsgBox "Incompatibilité. L'acte """ & Me.Acte & """ ne peut concerner la
dent n° " & Me.[N° Dent] & "."
Bonjour à tous
Question de faisabilité
J'ai une table SaisieActe contenant entre autre 1 champ "ActeChirurgical "
avec une liste dans contenu : EX / exérèse; obturation, scellement etc...; un
2ème champ "Cotation" en numérique et 3ème champ "N°Dent " avec 1 liste de 11
à 18 et de 51 à 55
J'ai créé un Formulaire SaisieActe contenant :
une liste déroulante avec concénation du nom; prénom et date naissance du
patient
un champ Acte
Un champ N° Dent
Un champ Cotation
Je voulais qu'en choisissant un acte, la cotation soit automatique dans
champ Cotation. J'ai écrit dans champ Acte dans Après MAJ Select case Acte
Case "Scellement"
Me.Cotation = 9
End Select End Sub
Cela fonctionne. Mais plus compliqué...
Est-il possible de n'autoriser qu'un ou plusieurs N°Dent pour un type d'acte
Ex : Scellement uniquement pour 16, 17 et si je choisis un autre N° ex 11
j'ai un message d'erreur ?
Merci d'avance
Voici une suggestion : tu crées une procédure appelée par les évènements après mise à jour de Acte et après mise à jour de N° Dent. '************************************ Private sub subVérifCohérenceDentActe() if isnull(Me.Acte) or isnull(Me.[N° Dent]) then exit sub ' vérifier chaque cas d'incompatibilité If Me.Acte = "Scellement" And Me.[N° Dent] <>16 And Me.[N° Dent] <> 17 then GoTo Incompatibilité 'autres incompatibilités ...
exit sub
Incompatibilité : MsgBox "Incompatibilité. L'acte """ & Me.Acte & """ ne peut concerner la dent n° " & Me.[N° Dent] & "."
End sub '*************************
En gros, pour l'idée.
Bon courage, -- pgz _____________________________
Bonjour à tous Question de faisabilité J'ai une table SaisieActe contenant entre autre 1 champ "ActeChirurgical " avec une liste dans contenu : EX / exérèse; obturation, scellement etc...; un 2ème champ "Cotation" en numérique et 3ème champ "N°Dent " avec 1 liste de 11 à 18 et de 51 à 55 J'ai créé un Formulaire SaisieActe contenant : une liste déroulante avec concénation du nom; prénom et date naissance du patient un champ Acte Un champ N° Dent Un champ Cotation Je voulais qu'en choisissant un acte, la cotation soit automatique dans champ Cotation. J'ai écrit dans champ Acte dans Après MAJ Select case Acte Case "Scellement" Me.Cotation = 9 End Select End Sub Cela fonctionne. Mais plus compliqué... Est-il possible de n'autoriser qu'un ou plusieurs N°Dent pour un type d'acte Ex : Scellement uniquement pour 16, 17 et si je choisis un autre N° ex 11 j'ai un message d'erreur ? Merci d'avance
