Discussion :

[ThieBEN]

Bonjour à tous,
Un souci pour enregistrer les données.
J'ai un formulaire principal "Frm_Agents" dans se formulaire, j'ai un contrôle onglet qui contient un formulaire "Frm_Etude" dans le formulaire Etude, j'ai un bouton de commande "Commentaires" qui est sensé ouvrir un formulaire commentaires. Le bouton fonctionne et m'ouvre le Frm_Commentaires sauf que quand je tape dans le champ texte rien ne s'enregistre.

Ma table Etude est Reliée à la Table commentaires par la Clef Id_Etude relié à Id_Etude numérique table Commentaires.

Dans mon formulaire commentaires j'ai bien mon contrôle Id_Etude avec en valeur par défaut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=[Formulaires]![Frm_Etude]![Id_Etude]

Lorsque mon formulaire s'ouvre le contrôle Id_Etude affiche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 #Nom*?

Le problème est-il dû au contrôle Onglet?
Merci de votre aide

[ThieBEN]

Bonjour à tous, je n'ai toujours pas réussi à faire fonctionner mon formulaire commentaires.
Le bouton d'ouverture du formulaire est situé sur un formulaire qui est lui même placé dans une page du contrôle onglet.

Essai avec cette ligne aucun succés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=[Formulaires]![Frm_Agents]![Frm_Etude].[Formulaire]![Id_Etude]

J'ai beau tourné le code dans tous les sens echec à chaque fois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

#Nom*?

Merci de vos conseils et solutions

[brice45]

Bonjour,

Est-ce qu'avec cette syntaxe cela marche mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Forms![Frm_Agents]![Frm_Etude].Form![Id_Etude]

[ThieBEN]

Le problème c'est qu'access réécris ma syntaxe automatiquement et cela ne fonctionne pas.
Merci de tes conseils

[brice45]

Au niveau du VB de ton bouton qui sert à ouvrir ton formulaire commentaires tu peux mettre le code suivant juste après la commande DoCmd.OpenForm :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Forms![Frm_Commentaires].Id_Etude= Me.Id_Etude

[ThieBEN]

Merci mais le code de mon bouton doit être bon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Commande18_Click()
On Error GoTo Err_Commande18_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Frm_Commentaires"
 
    stLinkCriteria = "[Id_Etude]=" & Me![Id_Etude]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Commande18_Click:
    Exit Sub
 
Err_Commande18_Click:
    MsgBox err.Description
    Resume Exit_Commande18_Click
End Sub

Ou alors c'est access qui a un problème.
Le problème est-il dû au fait que le formulaire soit sur une page d'un contrôle onglet et alors il y a un code différent pour ce genre d'ouverture.
Merci

[ThieBEN]

Merci Bice45, ton code fonctionne mieux que le mien, le seul problème c'est qu'Access m'affiche toujours le même commentaire pour tous les enregistrements de la table Etude alors que le n° change.
Je n'ai jamais rencontré ce type de problème.
Merci

[brice45]

ok, je pense qu'avec ton code et le mien ça devrait marcher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Commande18_Click()
On Error GoTo Err_Commande18_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Frm_Commentaires"
 
    stLinkCriteria = "[Id_Etude]=" & Me![Id_Etude]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
    Forms![Frm_Commentaires].Id_Etude= Me.Id_Etude
 
Exit_Commande18_Click:
    Exit Sub
 
Err_Commande18_Click:
    MsgBox err.Description
    Resume Exit_Commande18_Click
End Sub

[ThieBEN]

Est-il normal que lorsque j'ajoute un commentaire le n°auto est toujours à 1 alors que le numéro Etude change à chaque nouvel enregistrement?
Est-ce une question de filtre?

[brice45]

Ce n'est pas normal effectivement, as-tu regardé dans la table commentaires voir ce quels enregistrements sont enregistrés ?

[ThieBEN]

En fait j'avais dû faire une mauvaise manip il manqué dans le code du bouton ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

, , , stLinkCriteria

. maintenant je pense que cela va fonctionner.
Un grand merci à toi Brice45 pour ton aide

[brice45]