[AC-2007] Validation selon la valeur d'un champ de sous formulaire [Résolu]

[Jojovanadium]

Bonjours, je souhaiterais créer une macro me permettant d'afficher des messages d'alerte (MsgBox) en fonction des résultats trouvés dans un sous-formulaire.
Je m'explique, j'ai un formulaire principal de dispensation de médicament contenant les champs "médicament" et "Patient".
En fonction de ce que remplit l'utilisateur, apparait dans le sous-formulaire (Si il existe), le dernier numéro d'autorisation pour ce patient et ce médicament ainsi que la date de péremption de cette autorisation.
Je souhaiterais donc afficher deux messages d'alertes sur l'évènement "Après MAJ" du champs médicament du formulaire principal (Le dernier à être remplit):
- Vous ne pouvez pas délivrer ce médicament (si le N° n'existe pas)
- Vous ne pouvez pas délivrer ce médicament (Si la date de péremption est dépassée)

Merci d'avance pour votre aide

[argyronet]

Bonjour,

Il n'est pas recommandé d'user du AfterUpdate dans ce cas mais plutôt du BeforeUpdate() avec l'usage du Cancel si nécessaire. L'évenement Exit est intéressant aussi dans le même esprit.

Bon voici un exemple de base :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub txtMedoc_BeforeUpdate(Cancel As Integer)
Dim strMedicamentNum                                   As String
Dim vntVerif                                           As Variant
 
    strMedicamentNum = Me.txtMedoc.Value
    vntVerif = DLookup("[MedicamentNum]", "TableMidicaments", "MedicamentNum='" & strMedicamentNum & "'")
    If IsNull(vntVerif) Then
        MsgBox "Ouh ouh, y a pas de médoc comme ça dans la table !", vbExclamation
        Cancel = True
    Else
        vntVerif = DLookup("[DatePeremption]", "TableMidicaments", "MedicamentNum='" & strMedicamentNum & "'")
        If IsDate(vntVerif) Then
            If CLng(vntVerif) < CLng(Now) Then
                MsgBox "Ouh ouh, faudrait voir à pas délivrer des truc périmés, humm !!", vbExclamation
                Cancel = True
            End If
        End If
    End If
End Sub

Mais sache qu'à la longue, les msgbox, ça saoule...

Une liste déroulante filtrée et dont la date est supérieure à Now t'éviterait tous ces tracas... A cette liste tu uses de l'évenement NotInList et le tour est joué.

Argy

[Jojovanadium]

Merci de votre aide, j'ai écris le code dans le "Before Update" comme vous me l'avez conseillé, mais cela ne fonctionne pas (Je précise que le Numéro d'autorisation se trouve dans une table différente de celle des médicaments). Pour un peu plus de précisions sur la structure de ma base:
Pour simplifier, pour ce qui m'intéresse ici, il y a 3 tables (Médicaments, patients, Numéros d'autorisation). La table numéros d'autorisation est reliée aux deux autres tables puisqu'un numéro correspond à un couple (patient, médicament)
Pour mon formulaire principal de dispensation des médicaments (qui remplit une 4e table: dispensation); je vais rechercher un médicament dans la table médicament, un patient dans la table patient et ensuite s'affiche dans le sous formulaire le dernier numéro d'autorisation (pas forcément valide, il peut être périmé).
[Le sous formulaire étant basé sur une requête qui va chercher le dernier numéro dans la table "numéros d'autorisation"]

Donc pour faire référence à mes champs dans le code VB, je dois juste écrire leur nom ou ecrire le chemin complet qui s'y rapporte? (en supposant que mon problème vienne d'une erreur de nomenclature)
du style:

Code :

Forms![NomFormulaire]![NomSousFormulaire1].Form![NomSousFormulaire2].Form![MonControle].Value

???
Merci d'avance

[Jojovanadium]

Voici votre code que j'ai adapté à ma base; est-il toujours correct?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Quantite_delivree_retro_AfterUpdate()
 
Dim strMedicamentNum As String
Dim vntVerif As Variant
 
    strMedicamentNum = Me.Specialite_ATU.Value
    vntVerif = DLookup("[DernierDeNo_ATU]", "No_ATU", "No_ATU='" & strMedicamentNum & "'")
    If IsNull(vntVerif) Then
        MsgBox "ATTENTION, Vous ne pouvez pas dispenser ce médicament à ce patient car il ne possède pas de N° d'ATU. Veuillez contacter le pharmacien responsable des ATU pour effectuer une demande initiale d'ATU auprès du médecin en charge de ce patient!", vbExclamation
        Cancel = True
    Else
        vntVerif = DLookup("[MaxDePeremption_ATU]", "No_ATU", "No_ATU='" & strMedicamentNum & "'")
        If IsDate(vntVerif) Then
            If CLng(vntVerif) < CLng(Now) Then
                MsgBox "ATTENTION, Vous ne pouvez pas dispenser ce médicament à ce patient car le N° d'ATU pour ce médicament est périmé. Veuillez contacter le pharmacien responsable des ATU pour effectuer un renouvellement d'ATU auprès du médecin en charge de ce patient!", vbExclamation
                Cancel = True
            End If
        End If
    End If
 
End Sub

Que faut-il mettre après le "=" dans l'expression suivante?

Code :

strMedicamentNum = Me.Specialite_ATU.Value

Un autre petit problème: la fonction "dlookup" attend un nom de table comme deuxième critère mais la valeur de mon sous-formulaire est obtenue à partir d'une requete, est-ce important?

Merci d'avance

[argyronet]

Comme dit précédemment, il faut éviter l'événement AfterUpdate() dans votre cas car comme son nom l'indique, vous n'empêcherez rien...

La variable "strMedicamentNum" doit être alimentée comme suit :

Code :

strMedicamentNum = Me!Specialite_ATU

Vous pouvez utiliser une requête dans un DLookup à condition que ce soit une requête SELECT qui ne soit pas une requête action et qui ne requiert aucun paramètre.