Pour ouvrir chaque formulaire et chaque =E9tat, j'ai installer un
crit=E8re : NumSalari=E9
Le probl=E8me c'est qu'il faut que je donne le NumSalari=E9 pour ouvrir
formulaires et =E9tats.
Existe t il une solution pour d=E9finir le NumSalari=E9 =E0 l'ouverture de
la base (par exemple dans la macro AUTOEXEC ) ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raphael
Précisions supplémentaires : Voici mon code pour ouvrir un Etat. Je souhaite que l'etat s'ouvre avec uniquement les enregistrements ayant comme [Matricule] = 1 Je n'arrive pas à écrire la ConditionWhere... Qui peux m'aider ?
Private Sub Commande3_Click() On Error GoTo Err_Commande3_Click Dim stDocName As String Dim stLinkCriteria As String
stDocName = "F_SynthèseDroitsAgent" DoCmd.OpenForm stDocName, , , !!!Par ici que ca se passe!!!!Exit_Commande3_Click: Exit Sub
Précisions supplémentaires :
Voici mon code pour ouvrir un Etat.
Je souhaite que l'etat s'ouvre avec uniquement les enregistrements
ayant comme [Matricule] = 1
Je n'arrive pas à écrire la ConditionWhere...
Qui peux m'aider ?
Private Sub Commande3_Click()
On Error GoTo Err_Commande3_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_SynthèseDroitsAgent"
DoCmd.OpenForm stDocName, , , !!!Par ici que ca se
passe!!!!Exit_Commande3_Click:
Exit Sub
Précisions supplémentaires : Voici mon code pour ouvrir un Etat. Je souhaite que l'etat s'ouvre avec uniquement les enregistrements ayant comme [Matricule] = 1 Je n'arrive pas à écrire la ConditionWhere... Qui peux m'aider ?
Private Sub Commande3_Click() On Error GoTo Err_Commande3_Click Dim stDocName As String Dim stLinkCriteria As String
stDocName = "F_SynthèseDroitsAgent" DoCmd.OpenForm stDocName, , , !!!Par ici que ca se passe!!!!Exit_Commande3_Click: Exit Sub
OpenForm c'est pour un formulaire. D'après le nom affecté à stDocName, j'ai l'impression que tu te mélanges les pinceaux entre formulaire et état ;-)
Matricule doit être un champ de ton état "F_SynthèseDroitsAgent"
Précisions supplémentaires : Voici mon code pour ouvrir un Etat. Je souhaite que l'etat s'ouvre avec uniquement les enregistrements ayant comme [Matricule] = 1 Je n'arrive pas à écrire la ConditionWhere... Qui peux m'aider ?
Private Sub Commande3_Click() On Error GoTo Err_Commande3_Click Dim stDocName As String Dim stLinkCriteria As String
stDocName = "F_SynthèseDroitsAgent" DoCmd.OpenForm stDocName, , , !!!Par ici que ca se passe!!!!Exit_Commande3_Click: Exit Sub
OpenForm c'est pour un formulaire. D'après le nom affecté à stDocName,
j'ai l'impression que tu te mélanges les pinceaux entre formulaire et
état ;-)
Matricule doit être un champ de ton état "F_SynthèseDroitsAgent"
Précisions supplémentaires :
Voici mon code pour ouvrir un Etat.
Je souhaite que l'etat s'ouvre avec uniquement les enregistrements
ayant comme [Matricule] = 1
Je n'arrive pas à écrire la ConditionWhere...
Qui peux m'aider ?
Private Sub Commande3_Click()
On Error GoTo Err_Commande3_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_SynthèseDroitsAgent"
DoCmd.OpenForm stDocName, , , !!!Par ici que ca se
passe!!!!Exit_Commande3_Click:
Exit Sub
OpenForm c'est pour un formulaire. D'après le nom affecté à stDocName, j'ai l'impression que tu te mélanges les pinceaux entre formulaire et état ;-)
Matricule doit être un champ de ton état "F_SynthèseDroitsAgent"
Précisions supplémentaires : Voici mon code pour ouvrir un Etat. Je souhaite que l'etat s'ouvre avec uniquement les enregistrements ayant comme [Matricule] = 1 Je n'arrive pas à écrire la ConditionWhere... Qui peux m'aider ?
Private Sub Commande3_Click() On Error GoTo Err_Commande3_Click Dim stDocName As String Dim stLinkCriteria As String
stDocName = "F_SynthèseDroitsAgent" DoCmd.OpenForm stDocName, , , !!!Par ici que ca se passe!!!!Exit_Commande3_Click: Exit Sub
En effet j'ai le cas pour des états et des formulaires !
Dans le cas ou je souhaite poser une question "Veuillez saisir un numéro de matricule",
j'écris :
DoCmd.OpenReport stDocName, , ,"[Matricule]="Veuillez saisir un numéro de matricule"" ???
Eric
Bonjour,
Tu peux faire dans ta procédure Click() : Private Sub Commande3_Click() On Error GoTo Err_Commande3_Click Dim stDocName As String Dim stLinkCriteria As String Dim reponse As String stDocName = "F_SynthèseDroitsAgent" reponse = InputBox("Veuillez donner un n° de matricule") If Len(reponse) = 0 Or Not IsNumeric(reponse) Then Exit Sub DoCmd.OpenReport stDocName, , , "[Matricule]=" & CLng(reponse) ... End Sub
Merci
En effet j'ai le cas pour des états et des formulaires !
Dans le cas ou je souhaite poser une question "Veuillez saisir un numéro de matricule",
j'écris :
DoCmd.OpenReport stDocName, , ,"[Matricule]="Veuillez saisir un numéro de matricule"" ???
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Tu peux faire dans ta procédure Click() :
Private Sub Commande3_Click()
On Error GoTo Err_Commande3_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim reponse As String
stDocName = "F_SynthèseDroitsAgent"
reponse = InputBox("Veuillez donner un n° de matricule")
If Len(reponse) = 0 Or Not IsNumeric(reponse) Then Exit Sub
DoCmd.OpenReport stDocName, , , "[Matricule]=" & CLng(reponse)
...
End Sub
Merci
En effet j'ai le cas pour des états et des formulaires !
Dans le cas ou je souhaite poser une question "Veuillez saisir un
numéro de matricule",
j'écris :
DoCmd.OpenReport stDocName, , ,"[Matricule]="Veuillez saisir un numéro
de matricule"" ???
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Tu peux faire dans ta procédure Click() : Private Sub Commande3_Click() On Error GoTo Err_Commande3_Click Dim stDocName As String Dim stLinkCriteria As String Dim reponse As String stDocName = "F_SynthèseDroitsAgent" reponse = InputBox("Veuillez donner un n° de matricule") If Len(reponse) = 0 Or Not IsNumeric(reponse) Then Exit Sub DoCmd.OpenReport stDocName, , , "[Matricule]=" & CLng(reponse) ... End Sub
Merci
En effet j'ai le cas pour des états et des formulaires !
Dans le cas ou je souhaite poser une question "Veuillez saisir un numéro de matricule",
j'écris :
DoCmd.OpenReport stDocName, , ,"[Matricule]="Veuillez saisir un numéro de matricule"" ???
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
