Envoi d donné dun formulaire à un autr(ACCESS
lenium
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
-
lenium Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
lenium Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
voilà j'ai une souci, je souhaite afficher sur un formulaire les informations en provenance d'un autre.
En fait je faire un truc tel que lorsque je demarre mon appli, je renseigne le formulaire de connexion, nom et mot de passe. Et ensuite, le nom, l'ID et le prenom de l'utilisateur s'affiche en dur dans le formulaire pointage auquel il a access après s'être connecté.
Auriez-vous un idée de la marche à suivre? J'ai éssayer de mettre du code dans la partie "sur chargement" du formulaire, j'ai éssayé partout mais rien.
'Private Sub Form_OnConnect()
'Dim lngIDCat As String
'Dim sql As String
'lngIDCat = Forms![Boîte connexion]!prestataire
'sql = "SELECT Id_ressource, Nom, Prénom, Initiales FROM Ressources_Humaines WHERE Initiales = " & lngIDCat & " ORDER BY Id_ressource"
'Id_ressource.RowSource = sql
Aidez-moi SVP
voilà j'ai une souci, je souhaite afficher sur un formulaire les informations en provenance d'un autre.
En fait je faire un truc tel que lorsque je demarre mon appli, je renseigne le formulaire de connexion, nom et mot de passe. Et ensuite, le nom, l'ID et le prenom de l'utilisateur s'affiche en dur dans le formulaire pointage auquel il a access après s'être connecté.
Auriez-vous un idée de la marche à suivre? J'ai éssayer de mettre du code dans la partie "sur chargement" du formulaire, j'ai éssayé partout mais rien.
'Private Sub Form_OnConnect()
'Dim lngIDCat As String
'Dim sql As String
'lngIDCat = Forms![Boîte connexion]!prestataire
'sql = "SELECT Id_ressource, Nom, Prénom, Initiales FROM Ressources_Humaines WHERE Initiales = " & lngIDCat & " ORDER BY Id_ressource"
'Id_ressource.RowSource = sql
Aidez-moi SVP
Configuration: Windows XP Internet Explorer 7.0
1 réponse
-
Bonjour,
Voici un élément de réponse à votre demande. Il vous appartient d'adapter cette syntaxe à votre contexte, dans un évènement "Après mise à jour".
On Error GoTo Err_Màj_Click
Dim StDocName As String
Dim StLinkCriteriA As String
StDocName = "<Formulaire à ouvrir>"
StLinkCriteriA = "[<Index clef_1>]=" & Me![<index clef_2>]
DoCmd.OpenForm StDocName, , , StLinkCriteriA
Exit Sub
Err_Màj_Click:
MsgBox Error$
Exit Sub
_
Cordialement
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.
