Discussion :

[macakou99]

Bonjour,

J'ai étudié les supers exemples d'agendas de Denis Hulo (user) et j'ai beaucoup appris :
http://www.developpez.net/forums/d15...mples-dagenda/
Je bute toutefois sur l'adaptation du code.
3 listes et un contrôle "image" me posent problème.
1ère liste :
Elle affiche les chemins des différents spécialités consultées par le patient.
2ème liste :
Lorsque l'utilisateur clique sur une spécialité de la 1ère liste, la seconde liste affiche le lien du compte-rendu correspondant et la troisième liste affiche le lien des images correspondantes.
Le composant "image" affiche les images.
4 boutons permettent d'en rajouter, modifier, etc...

Mon souci est que je ne peux ajouter des images que si il y a déjà quelque chose dans la première liste.
J'ajouterai que les éléments de cette première liste découlent directement des rendez-vous pris précédemment avec les spécialistes.
Je souhaiterais pouvoir ajouter des images et stocker leurs chemins sans la contrainte de prise de rendez-vous préalable.

Auriez-vous des pistes ?
Cordialement.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub CmdAjoutRadio_Click()
' Bouton d'ajout de Radio
Dim Boite As FileDialog
Dim strLink As String
Dim Recl As DAO.Recordset
 
If (Me.Liste_RDV.ListIndex <> -1) Then
 
' récupération du chemin physique de la Radio
'  par la boite de dialogue
 
    Set Boite = Application.FileDialog(msoFileDialogOpen)
    With Boite
        .Title = "Recherche d'une radio du patient"
        .InitialView = msoFileDialogViewDetails
        .Filters.Clear
        .Filters.Add "Images", "*.jpg; *.jpeg; *.bmp; *.gif"
        .ButtonName = "Sélectionner"
        .AllowMultiSelect = False
        .Show
    End With
    If Boite.SelectedItems.Count > 0 Then
        strLink = Boite.SelectedItems(1)
    End If
 
' si la boite renvoie une adresse non nulle
If Len(strLink) > 0 Then
    ' tentative d'affichage de la Radio
    Me.imgRadio.Picture = strLink
 
      Set Recl = CurrentDb.OpenRecordset("Radio", dbOpenDynaset)
 
      Recl.AddNew
      'Recl!NumE = Me.Liste_RDV.Value
      Recl!Radio = strLink
      Recl.Update
 
      Recl.Close
 
      Me.Liste_Radios.Requery
      Me.Liste_Radios = Me.Liste_Radios.ItemData(Me.Liste_Radios.ListCount - 1)
 
End If
 
DisplayRadio
 
Else
 
MsgBox ("vous devez creer un rendez-vous avec l'agenda avant d'ajouter une radio !")
 
End If
 
End Sub

[User]

Bonjour,

2 choses à faire :

1)
Pour que la liste des radios ne dépende que du patient, il faut changer la propriété contenu de cette liste "Liste_Radios", comme ceci:

Code sql :

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

SELECT NumR AS N°Radio, Radio FROM Radio WHERE NumE=Forms!Frm_Signaletique!NumE;

Notez que ici Forms!Frm_Signaletique!NumE désigne cette fois l'identifiant du patient sur le formulaire.

2)
Votre code pour ajouter une radio devient maintenant en supprimant la contrainte du rdv (j'ai mis en commentaire la partie supprimée):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Private Sub CmdAjoutRadio_Click()
' Bouton d'ajout de Radio
Dim Boite As FileDialog
Dim strLink As String
Dim Recl As DAO.Recordset
 
'If (Me.Liste_RDV.ListIndex <> -1) Then
 
' récupération du chemin physique de la Radio
'  par la boite de dialogue
 
    Set Boite = Application.FileDialog(msoFileDialogOpen)
    With Boite
        .Title = "Recherche d'une radio du patient"
        .InitialView = msoFileDialogViewDetails
        .Filters.Clear
        .Filters.Add "Images", "*.jpg; *.jpeg; *.bmp; *.gif"
        .ButtonName = "Sélectionner"
        .AllowMultiSelect = False
        .Show
    End With
    If Boite.SelectedItems.Count > 0 Then
        strLink = Boite.SelectedItems(1)
    End If
 
 
' si la boite renvoie une adresse non nulle
If Len(strLink) > 0 Then
    ' tentative d'affichage de la Radio
    Me.imgRadio.Picture = strLink
 
      Set Recl = CurrentDb.OpenRecordset("Radio", dbOpenDynaset)
 
      Recl.AddNew
      Recl!NumE = Me.NumE
      Recl!Radio = strLink
      Recl.Update
 
      Recl.Close
 
      Me.Liste_Radios.Requery
      Me.Liste_Radios = Me.Liste_Radios.ItemData(Me.Liste_Radios.ListCount - 1)
 
End If
 
DisplayRadio
 
'Else
'MsgBox ("vous devez creer un rendez-vous avec l'agenda avant d'ajouter une radio !")
 
'End If
 
 
End Sub

Salutations,

Denis

[macakou99]

Je vous remercie Monsieur Hulo du temps que vous m'avez consacré.
Cela marche parfaitement.
J'ai pris le temps de bien comprendre votre code pour apprendre.
Encore merci très sincèrement.