Access: lier des formulaires
Résolu
aur82
Messages postés
29
Date d'inscription
Statut
Membre
Dernière intervention
-
LatelyGeek Messages postés 1758 Date d'inscription Statut Membre Dernière intervention -
LatelyGeek Messages postés 1758 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis en train de construire un grand formulaire sur Access qui ne tient pas sur une seule requête, ni un seul formulaire. J'en ai donc créer plusieurs. Je souhaite que l'utilisateur n'ai pas l'impression qu'il utilise plusieurs formulaires. Pour cela j'ai créer un bouton avec une macro qui ouvre le formulaire suivant et ferme celui en cours.
Mon problème: Lorsque j'ouvre le deuxième formulaire, celui-ci ce présente sous le premier enregistrement alors que j'aimerais rester dans l'enregistrement en cours.
Est-ce que vous savez comment faire pour que lorsqu'on ouvre un formulaire, il se place automatiquement dans le bon enregistrement????
Merci pour votre aide!
Aur
Je suis en train de construire un grand formulaire sur Access qui ne tient pas sur une seule requête, ni un seul formulaire. J'en ai donc créer plusieurs. Je souhaite que l'utilisateur n'ai pas l'impression qu'il utilise plusieurs formulaires. Pour cela j'ai créer un bouton avec une macro qui ouvre le formulaire suivant et ferme celui en cours.
Mon problème: Lorsque j'ouvre le deuxième formulaire, celui-ci ce présente sous le premier enregistrement alors que j'aimerais rester dans l'enregistrement en cours.
Est-ce que vous savez comment faire pour que lorsqu'on ouvre un formulaire, il se place automatiquement dans le bon enregistrement????
Merci pour votre aide!
Aur
A voir également:
- Access: lier des formulaires
- Acer quick access - Forum Logiciels
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
- Exemple de base de données access - Forum Access
- Quick acces ✓ - Forum Windows
4 réponses
Le plus simple serait peut-être de mettre des onglets dans un seul formulaire. Tu sais faire???
aur82
Messages postés
29
Date d'inscription
Statut
Membre
Dernière intervention
oui, mais là j'ai déjà construit mes 5 formulaires. Et en plus j'ai trop de champs pour faire une requête avec tous...
"j'ai trop de champs pour faire une requête avec tous..." ???
tu as fais tes requetes en qbe? tu peux rajouter des colonnes...
et je ne pense pas que les requetes soient limités...
tu as fais tes requetes en qbe? tu peux rajouter des colonnes...
et je ne pense pas que les requetes soient limités...
Mais tu as combien de champs, dans cette requête????
Enfin bon, si le problème est insoluble, il faut que tu rajoutes un filtre sur les formulaires ouverts par les boutons, de façon à ce que seul l'enregistrement du premier s'affiche dans les autres.
Ca donne ça:
Dim Filtre As String
Filtre = "[N°SS]=" & "'" & Me![N°SS] & "'"
DoCmd.OpenForm "Employés2", , , Filtre
(Dans mon exemple, il s'agit d'un formulaire Emplyés donc la clé est le N°SS - à toi d'dapter, bien sûr)
Enfin bon, si le problème est insoluble, il faut que tu rajoutes un filtre sur les formulaires ouverts par les boutons, de façon à ce que seul l'enregistrement du premier s'affiche dans les autres.
Ca donne ça:
Dim Filtre As String
Filtre = "[N°SS]=" & "'" & Me![N°SS] & "'"
DoCmd.OpenForm "Employés2", , , Filtre
(Dans mon exemple, il s'agit d'un formulaire Emplyés donc la clé est le N°SS - à toi d'dapter, bien sûr)
Pour fermer mon formulaire, j'y suis arrivée toute seule :-)
Merci encore pour ton aide.
Private Sub Commande92_Click()
On Error GoTo Err_Commande92_Click
Dim Filtre As String
Filtre = "[CPNBR]=" & "'" & Me![CPNBR] & "'"
DoCmd.OpenForm "Formulaire2_Travail", , , Filtre
DoCmd.Close acForm, "Formulaire1_Social", acSaveYes
Exit_Commande92_Click:
Exit Sub
Err_Commande92_Click:
MsgBox Err.Description
Resume Exit_Commande92_Click
End Sub
Merci encore pour ton aide.
Private Sub Commande92_Click()
On Error GoTo Err_Commande92_Click
Dim Filtre As String
Filtre = "[CPNBR]=" & "'" & Me![CPNBR] & "'"
DoCmd.OpenForm "Formulaire2_Travail", , , Filtre
DoCmd.Close acForm, "Formulaire1_Social", acSaveYes
Exit_Commande92_Click:
Exit Sub
Err_Commande92_Click:
MsgBox Err.Description
Resume Exit_Commande92_Click
End Sub