Envoi d donné dun formulaire à un autr(ACCESS
lenium
Messages postés
27
Statut
Membre
-
lenium Messages postés 27 Statut Membre -
lenium Messages postés 27 Statut Membre -
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
A voir également:
- Envoi d donné dun formulaire à un autr(ACCESS
- Whatsapp formulaire opposition - Guide
- Formulaire de réclamation facebook compte désactivé - Guide
- Formulaire de reclamation instagram - Guide
- Votre envoi est en cours de transport vers son site de livraison. ✓ - Forum Consommation & Internet
- Acer quick access ✓ - Forum PC portable
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.
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.
lenium
Messages postés
27
Statut
Membre
Merci, je vais m'y atteler..
