Bonjour,
J'ai 2 formulaires:
Un qui me permet d'enregistrer du personnel, composé d'une liste déroulante des noms et d'onglets regroupant les caractéristiques du personnel. J'ai un bouton qui me permet d'imprimer les caractéristique du personnel sélectionné.
Le deuxième formulaire m'indique les personnels dans les services. Liste déroulante des services et sous-formulaire indiquant les personnels.
Lorsque je double-clic sur un nom le 1er formulaire s'ouvre sur le nom sélectionné. Mais lorsque je veux imprimer la fiche de ce personnel jai un message d'erreur . . .Erreur d'exécution '3075' )en trop dans l'expression '[Code_Pers]= )'. Mais si j'imprime la fiche sans passer par le formulaire des services, l'impression se fait sans problème.
Je vais indiquer mes codes :
Dans le bouton imprimer
ChoixPers est le nom de ma liste déroulante.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub Bt_ImprPers_Click() DoCmd.OpenReport "E_Fiche Personnelle", acPreview, , "[Code_Pers]= " & Me.ChoixPers End Sub
Sur la liste des personnels du service, en cliquant sur le nom :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Private Sub Nom_Pers_DblClick(Cancel As Integer) DoCmd.OpenForm "F_GestionPersonnel", acNormal, , "[Code_Pers]=" & Me.Code_Pers End Sub
Partager