Discussion :

[xboulney]

Bonjour à tous,

J'ai un petit souci dans la construction de ma base.
J'aimerai qu'un champ de mon formulaire "form_newclient" soit la concatenation

=[Titre_Client] & " " & [Nom_Client] & " " & [Prenom_Client]

de trois champs qui doivent etre remplis dans un formulaire qui s'ouvre à la maniere d'un popup (popupnomcomplet_clients).

Popupnomcomplet_client est basé sur la table client et comporte donc [titre_client] [nom_client] et [prenom_client].
Sur ce formulaire j'ai un bouton OK avec le code suivant

Private Sub Cmd_Saverecord_Click()
On Error GoTo Err_Cmd_Saverecord_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close

Exit_Cmd_Saverecord_Click:
Exit Sub

Err_Cmd_Saverecord_Click:
MsgBox Err.Description
Resume Exit_Cmd_Saverecord_Click

End Sub

Donc mon souci c'est que une fois que je ferme le "Popup....._client" la mise à jour ne se fait pas dans mon champ de mon "frm_newclient".

Ca n'a pas l'air bien sorcier et en plus il me semble l'avoir déjà fait mais là je ne trouve plus la solution.

Merci

[Frank]

Déclares trois variables globales afin de récupérer les valeurs que tu veux passer dans le tître de ton formulaire.
Ainsi, à la fermeture de popup..., les valeurs ne seront pas perdues.

[xboulney]

Salut,

Qu'est ce que tu appels trois variables globales !?!
Excuse moi mais je ne suis pas encore trop au fait du vocabulaire access.

Mais je me soigne...

Merci du coup de pouce.

[Demco]

Pense a jeter un petit coup d'oeil dans l'aide Access et la FAQ quand tu as un probleme de vocabulaire.
http://access.developpez.com/faq/?pa...gage#VarGlobal

En esperant t'aider.

[xboulney]

Merci mais je n'arrive pas à construire la syntaxe de la procedure.
Pourrais tu me filer un petit coup de main supplementaire.

Merci

[Demco]

Avec ce code je pense que ca ira.
Il ne te reste qu'a declarer les variables globales dans un module et a les appeler depuis ton forulaire ou tu veux afficher leur contenu.

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
Private Sub Cmd_Saverecord_Click() 
On Error GoTo Err_Cmd_Saverecord_Click 
'on sauvegarde les information du client dans des var globales.
gTitreClient = Me.[Titre_Client]
gNomClient = Me.[Nom_Client] 
gPrenomClient = Me.[Prenom_Client]
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 
DoCmd.Close 
 
Exit_Cmd_Saverecord_Click: 
Exit Sub 
 
Err_Cmd_Saverecord_Click: 
MsgBox Err.Description 
Resume Exit_Cmd_Saverecord_Click 
 
End Sub

Je pense que c'est ca qu'a voulu dire Frank.

En esperant t'aider.

[Frank]

Avec ce code je pense que ca ira.
Il ne te reste qu'a declarer les variables globales dans un module et a les appeler depuis ton forulaire ou tu veux afficher leur contenu.

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
Private Sub Cmd_Saverecord_Click() 
On Error GoTo Err_Cmd_Saverecord_Click 
'on sauvegarde les information du client dans des var globales.
gTitreClient = Me.[Titre_Client]
gNomClient = Me.[Nom_Client] 
gPrenomClient = Me.[Prenom_Client]
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 
DoCmd.Close 
 
Exit_Cmd_Saverecord_Click: 
Exit Sub 
 
Err_Cmd_Saverecord_Click: 
MsgBox Err.Description 
Resume Exit_Cmd_Saverecord_Click 
 
End Sub

Je pense que c'est ca qu'a voulu dire Frank.

En esperant t'aider.

Exactement ça.

[xboulney]

Bon merci les gars ...
Mais quite à passer pour le plus grand blaireau je suis obliger d'avoué que je ne comprends pas trop en fait.

Je suppose que dans le code que vous me donnez les variables sont "gtitreclient" "gnomclient" et "gprenomclient".
Mais je n'arrive pas à faire correspondre ca avec mon champ"nomcomplet_client".

J'ai une questio subsidiaire...

Est ce que mes champs de "popup...client" doivent avoir comme source controle [titre_client] [nom_client] et [prenom_client] de la table client ou est ce que ce doit etre des etiquettes indépendantes ?
Sur mon form ils sont tous issue de la table client.

Merci et désolé....

[xboulney]

Salut à tous je me permet de revenir car mon cas n'est toujours pas résolu et que je n'arrive pas à appliquer ce qui m'est conseillé plus haut...

Donc si quelqu'un pouvait prendre le temp de m'expliquer...

Merci à tous.