Discussion :

[adelion7015]

Bonjour,

Dans l'evenement double click d'un champ, j'ai mis le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Prgramme_projet_DblClick(Cancel As Integer)
    If Nz(Forms![frm_attestation]![Programme], "") = "" Then
        Forms![frm_attestation]![Programme] = Me.Prgramme_projet
 
    If Nz(Forms![frm_attestation]![Numero de contrat], "") = "" Then
        Forms![frm_attestation]![Numero de contrat] = Me.Prgramme_projet
    Else
        Forms![frm_attestation]![Programme] = Forms![frm_attestation]![Programme] & ";" & Me.Prgramme_projet
        Forms![frm_attestation]![Numero de contrat] = Forms![frm_attestation]![Numero de contrat] & ";" & Me.Prgramme_projet
 End If
DoCmd.Close acForm, Me.Name             ' ferme le formulaire pays
 
End Sub

Le but est en cliquant sur un champs deux valeur sont affecté vers un autre formulaire remplissant deux champs, exemple :

Si je click sur le champ [Numero de contrat], la valeur du champ [Numero de contrat] et celle du champ [Programme] s'affectent dans les champs respectives dans l'autre formulaire.

Actuellement en cliquant sur le champ, j'ai le message d'erreur suivant :

Erreur de compilation
Bloc if sans end if

Cordialement.

[Jean-Philippe André]

Salut,

regarde, pour l'instant tu as un End If manquant apres ton premier bloc If Then

Code :

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

1
2
3
If Nz(Forms![frm_attestation]![Programme], "") = "" Then
        Forms![frm_attestation]![Programme] = Me.Prgramme_projet
 End If

[adelion7015]

Bonjour,

Merci pour la reponse, sauf que, j'ai la valeur du champ [Programme] qui va sur le champ [Programme] et le champ [Numero de contrat].

Cordialement.

[Jean-Philippe André]

OK,

la regle ici c'est d'avoir pour chaque bloc If Then un End If en sortie

donc sans me soucier ici de ce que tu mettras dans tes boucles, il te faudra avoir 1 combinaison parmi les deux suivantes :

Code :

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

1
2
3
4
5
6
7
8
If Nz(Forms![frm_attestation]![Programme], "") = "" Then
'
    If Nz(Forms![frm_attestation]![Numero de contrat], "") = "" Then
'
    Else
    '
    End if
 End If

ou

Code :

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

1
2
3
4
5
6
7
8
If Nz(Forms![frm_attestation]![Programme], "") = "" Then
'
End If
If Nz(Forms![frm_attestation]![Numero de contrat], "") = "" Then
'
Else
'
End If

[adelion7015]

Pour etre franc, je n'ai pas vraiment compris votre demarche.

[Jean-Philippe André]

Le message d'erreur te dit qu'il te manque un

Code :

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

End If

pour fermer un If ...Then

comme tu as 2 If Then, il te faut rajouter un End If dans ton code

Je t'ai fait une premiere proposition que tu as rejete, je t'en fais une seconde qui te donne les 2 solutions envisageables, si aucune ne te convient, je n'ai rien d'autre.

[adelion7015]

Oui, j'avais compris, je n'ai d'ailleur plus de message d'erreur, mais pour la 1ere solution, rien ne se passe en double cilquant sur le champ et la seconde solution la valeur du champ [Programme] s'affecte dans le champ [Numero de contrat] et [Programme].

C'est juste pour le second mais faux pour le 1er champ.

cordialement.

[adelion7015]

Après quelque petit changement, ca marche, voici le code final :

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 Prgramme_projet_DblClick(Cancel As Integer)
    If Nz(Forms![frm_attestation]![Programme], "") = "" Then
        Forms![frm_attestation]![Programme] = Me.Prgramme_projet
 
      End If
 
    If Nz(Forms![frm_attestation]![Numero de contrat], "") = "" Then
        Forms![frm_attestation]![Numero de contrat] = Me.Numero_de_contrat
    Else
        Forms![frm_attestation]![Programme] = Forms![frm_attestation]![Programme] & ";" & Me.Prgramme_projet
        Forms![frm_attestation]![Numero de contrat] = Forms![frm_attestation]![Numero de contrat] & ";" & Me.Numero_de_contrat
 
End If
 
 
DoCmd.Close acForm, Me.Name             ' ferme le formulaire pays
 
 
 
End Sub

Merci.

Cordialement.