Discussion :

[helico57570]

Bonjour à tous,
Voici mon problème:
J'ai un formulaire "frmComCommunication" avec les entrées suivantes:
- PatientCode: text
- Real: =Now()
- Communication = Mémo
Je me sers de ces 3 données pour en créer une troisième qui est "CommunicationCode".
Vous l'aurez compris "CommunicationCode" est ma clé primaire dans la table.

Lorsque je suis sur le formulaire, j'ai programmé le petit code VBA suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Communication_AfterUpdate()
Dim PartCode1 As String
Dim PartCode2 As String
Dim FinalCode As String
 
PartCode1 = Form![frmComCommunication].[PatientCode]
PartCode2 = Form![frmComCommunication].[Real]
FinalCode = PartCode1 & PartCode2
Form![frmComCommunication]![CommunicationCode] = FinalCode
 
End Sub

Mais là bien sûr, rien ne marche...
Message d'erreur qui bugge à PartCode1...

Comment faire?
Pourriez vous m'aidez?
Merci

[vodiem]

salut helico57570 et bienvenu,

Code :

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

PartCode1 = Forms![frmComCommunication].[PatientCode]

[helico57570]

Merci pour votre aide...
Ca marche bien maintenant mais.... seulement si je n'utilise qu'un formulaire...

Maintenant ce formulaire est un sous formulaire....et cela ne marche plus du tout...il me marque erreur run time 2450...
Pour info:
- Formulaire principal : frmComStart
-Sous formulaire: frmComCommunication

Est ce que le code VBA doit changer?

Merci pour votre aide

[cluster26]

Bonjour,

Et de cette façon :

Code :

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

PartCode1= Me.[frmComCommunication].Form![PatientCode]

Dans ton code, on ne fait plus référence au formulaire mais uniquement au sous-formulaire !.

bon courage.

[vodiem]

pour en savoir plus sur le sujet:
récap ici et tuto ici