Discussion :

[gio286]

bonsoir,



Si ça ne vient pas de la requête, ça vient de la liste déroulante. Tu as regardé dans les propriétés de la liste déroulante ?


Bonnes vacances Richard

bonsoir f-leb,
Les propriétés de la liste déroulante sont:
propriétés:
Source contrôle: Numero Patient
Contenu:

Code SQL :

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

1
2
3
SELECT DISTINCTROW Tbl_Patient.[Numero Patient], [Nom Patient] & " " & [Prenom Patient] & " à " & [tbl_Localite].[Ville] AS Expr1
FROM Tbl_Patient INNER JOIN tbl_Localite ON Tbl_Patient.LocaliteID = tbl_Localite.LocaliteID
ORDER BY [Nom Patient] & " " & [Prenom Patient] & " à " & [tbl_Localite].[Ville];

Origine source Table/Requête

Je vient de voir une erreur ????

Code :

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

1
2
3
4
5
6
Private Sub frm_Dossier_Patient_Sous_Formulaire_Enter()
    If IsNull(Me.[Numero Patient]) Then
        MsgBox "Veuillez sélectionner un patient !", , "Dossier Patient"
        Me.lst_Numero_Patient.SetFocus   
End If
End Sub

Me.lst_Numero_Patient.SetFocus est souligné en jaune
Merci pour ton aide

[gio286]

Ouf, la solution de ma liste déroulante à était trouvé,
merci pour ton aide Oscar.
Voici la solution, il y avait un code de la liste déroulante qui empêché l’affichage et on l’a supprimé
en ajoutent REM devant le code

Code :

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

1
2
3
4
Private Sub lst_Numero_Patient_GotFocus()
 'enregistre un nouveau numéro de saisie si l'utilisateur modifie le numéro de patient
REM    DoCmd.GoToRecord , , acNewRec
End Sub

On a crée un nouveau bouton pour afficher un nouveau Patient dans la liste déroulante

Merci à vous tous, Merci à Oscar, Merci à developpez.com

[f-leb]

Merci à Oscar

Pas de quoi, et bonnes vacances également à Oscar (le lascar)