Discussion :

[stagolee]

Bonjour, et très bonne année à tous !
Nous demandons aux professionnels de santé adhérents à notre assoc de réaliser tous les ans un bilan médical pour chaque patient. C'est nous qui devons envoyer cette demande au bon moment (date anniversaire du dernier bilan) aux médecins, pour qu'ils la remplissent et nous la renvoie.
J'ai fait un petit module access qui permet de gérer une liste de bilans qui auraient dû nous parvenir (si date du dernier bilan + 365 < date actuelle, une alerte apparait dans la liste). Cette liste indique également la date à laquelle nous avons relancé un médecin pour la dernière fois, et pour quel patient.

Une fonction permet de générer automatiquement un courrier de relance, et ajoute automatiquement une date de relance. Mais j'ai un bug : ce code va chercher dans une zone de liste (Me.Lst_Bilans_Medicaux)
- le numéro d'un patient ([NumeroPatient]),
- la date de son prochain bilan médical ([DateAttenteBilanMedical]),
- la date de la dernière relance pour ce bilan
et va copier ces infos dans une autre table : [T_Retour_Bilans_Medicaux_Demandes]
voici une partie du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim varitem As Variant
Dim nbselection As Long
 
   For Each varitem In Me.Lst_Bilans_Medicaux.ItemsSelected
 
    DoCmd.RunSQL "INSERT INTO T_Retour_Bilans_Medicaux_Demandes (NumeroPatient,DateAttenteBilanMedical,DateEnvoiBilanMedical) VALUES ( " & Me![Lst_Bilans_Medicaux].Column(0, varitem) & " , #" & Me![Lst_Bilans_Medicaux].Column(9, varitem) & "# , " & choixdate & " );"
    nbselection = nbselection + 1
 
    Next varitem
    End If

la variable choixdate est récupérée d'une msgbox.
Ce code marche bien, sauf si un patient n'a jamais eu de bilan médical (donc Me![Lst_Bilans_Medicaux].Column(9) est vide pour cette ligne). La boucle se bloque ("erreur de synthaxe dans l'expression '##'"). L'instruction SQL ne peut-elle pas insérer une valeur nulle pour une date dans une autre table?
ya-t-il un moyen d'éviter ça?
merci

[Jean-Philippe André]

bonjour,

pour ma part, je vois tois solutions,
- autoriser des valeurs vides dans les propriétés du champs de la table
- faire un test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

isnull(Me![Lst_Bilans_Medicaux].Column(9))

et ne pas éxécuter la requête si erreur potentielle soulevée.
- faire un test iif() dans la requête SQL : mettre une date par défaut si Me![Lst_Bilans_Medicaux].Column(9) est nul.

[stagolee]

merci, ça me donne une piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim LValue As Boolean
 
   For Each varitem In Me.Lst_Bilans_Medicaux.ItemsSelected
   LValue = IsNull(Me![Lst_Bilans_Medicaux].Column(9, varitem))
   If LValue = True Then
       DoCmd.RunSQL "INSERT INTO T_Retour_Bilans_Medicaux_Demandes (NumeroPatient,DateEnvoiBilanMedical) VALUES ( " & Me![Lst_Bilans_Medicaux].Column(0, varitem) & " , " & choixdate & " );"
          Else
 
    DoCmd.RunSQL "INSERT INTO T_Retour_Bilans_Medicaux_Demandes (NumeroPatient,DateAttenteBilanMedical,DateEnvoiBilanMedical) VALUES ( " & Me![Lst_Bilans_Medicaux].Column(0, varitem) & " , #" & Me![Lst_Bilans_Medicaux].Column(9, varitem) & "# , " & choixdate & " );"
    End If
    nbselection = nbselection + 1
 
    Next varitem

le problème c'est que isnull(Me![Lst_Bilans_Medicaux].Column(9, varitem)) retourne la valeur False même s'il n'y a pas de date....
En tous cas le champ [DateAttenteBilanMedical] autorise la valeur nulle dans sa propriété

[Jean-Philippe André]

on peut faire une bidouille avec un test sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Len(Me![Lst_Bilans_Medicaux].Column(9, varitem))

[stagolee]

hehe, ça marche bien en effet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
   For Each varitem In Me.Lst_Bilans_Medicaux.ItemsSelected
   LValue = Len(Me![Lst_Bilans_Medicaux].Column(9, varitem))
   If LValue = 0 Then
       DoCmd.RunSQL "INSERT INTO T_Retour_Bilans_Medicaux_Demandes (NumeroPatient,DateEnvoiBilanMedical) VALUES ( " & Me![Lst_Bilans_Medicaux].Column(0, varitem) & " , " & choixdate & " );"
          Else
    DoCmd.RunSQL "INSERT INTO T_Retour_Bilans_Medicaux_Demandes (NumeroPatient,DateAttenteBilanMedical,DateEnvoiBilanMedical) VALUES ( " & Me![Lst_Bilans_Medicaux].Column(0, varitem) & " , #" & Me![Lst_Bilans_Medicaux].Column(9, varitem) & "# , " & choixdate & " );"
    End If
    nbselection = nbselection + 1
    Next varitem

merci jpcheck!