Discussion :

[morobaboumar]

Bonsoir membres du forum,
J'ai deux boutons de commandes qui affichent le formulaire Frm_Tbl_Contacts
après click sur la cmde CmdAjoutCréancier ou CmdAjoutDÉBITEUR du formulaire (voir capture)



Au double clique sur la zone de texte NomPrenomsCompletContact du formulaire Frm_Tbl_Contacts



soit la zone de liste déroulante CRÉANCIER du formulaire Frm_Tbl_EnregistrementDetteCreditBDialogue
est renseigné
sinon la zone de liste déroulante DÉBITEUR est renseigné selon la commande corresponde se trouvant sur le
formulaire Frm_Tbl_EnregistrementDetteCreditBDialogue.

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
 
Private Sub NomPrenomsCompletContact_DblClick(Cancel As Integer)
If CurrentProject.AllForms("Frm_Tbl_EnregistrementDetteCreditBDialogue").IsLoaded Then
  Forms![Frm_Tbl_EnregistrementDetteCreditBDialogue]![CmdAjoutCréancier].LostFocus
  Forms!Frm_Tbl_EnregistrementDetteCreditBDialogue!CRÉANCIER = Me.ID_Contacts
  Forms!Frm_Tbl_EnregistrementDetteCreditBDialogue!CRÉANCIER.SetFocus
    DoCmd.Close acForm, Me.Name
'End If
'Forms![Frm_Tbl_EnregistrementDetteCreditBDialogue]![CmdAjoutCRÉANCIER]
'Forms![Frm_Tbl_EnregistrementDetteCreditBDialogue]![CmdAjoutDÉBITEUR]
 
ElseIf CurrentProject.AllForms("Frm_Tbl_EnregistrementDetteCreditBDialogue").IsLoaded Then
    Forms![Frm_Tbl_EnregistrementDetteCreditBDialogue]![CmdAjoutDÉBITEUR].LostFocus
    Forms!Frm_Tbl_EnregistrementDetteCreditBDialogue!DÉBITEUR = Me.ID_Contacts
    Forms!Frm_Tbl_EnregistrementDetteCreditBDialogue!DÉBITEUR.SetFocus
    DoCmd.Close acForm, Me.Name
End If
 
End Sub

Message d'erreur:




Cordialement.

[tee_grandbois]

bonsoir,
il faut supprimer cette ligne :

Code :

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

Forms![Frm_Tbl_EnregistrementDetteCreditBDialogue]![CmdAjoutCréancier].LostFocus

car cette propriété n'est pas gérée; comme l'indique le message d'erreur, c'est à dire que ce n'est pas une action que l'on peut faire à ce contrôle (on ne peut pas lui faire perdre le focus)

[morobaboumar]

bonsoir,
il faut supprimer cette ligne :

Code :

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

Forms![Frm_Tbl_EnregistrementDetteCreditBDialogue]![CmdAjoutCréancier].LostFocus

car cette propriété n'est pas gérée; comme l'indique le message d'erreur, c'est à dire que ce n'est pas une action que l'on peut faire à ce contrôle (on ne peut pas lui faire perdre le focus)

Bonsoir tee_grandbois,

J'ai effacé la ligne de code

Code :

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

  Forms![Frm_Tbl_EnregistrementDetteCreditBDialogue]![CmdAjoutCRÉANCIER].LostFocus

ensuite, séparés les codes:

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub NomPrenomsCompletContact_DblClick(Cancel As Integer)
If CurrentProject.AllForms("Frm_Tbl_EnregistrementDetteCreditBDialogue").IsLoaded Then
  Forms!Frm_Tbl_EnregistrementDetteCreditBDialogue!CRÉANCIER = Me.ID_Contacts
  Forms!Frm_Tbl_EnregistrementDetteCreditBDialogue!CRÉANCIER.SetFocus
    DoCmd.Close acForm, Me.Name
End If
 
End Sub

et

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub ContactPrenom_DblClick(Cancel As Integer)
If CurrentProject.AllForms("Frm_Tbl_EnregistrementDetteCreditBDialogue").IsLoaded Then
    Forms!Frm_Tbl_EnregistrementDetteCreditBDialogue!DÉBITEUR = Me.ID_Contacts
    Forms!Frm_Tbl_EnregistrementDetteCreditBDialogue!DÉBITEUR.SetFocus
    DoCmd.Close acForm, Me.Name
End If
End Sub

pourtant je voudrais les réunir dans la zone de texte NomPrenomsCompletContact.



Comment faut il le faire afin que chaque destination soit respectée ?



Cordialement.

[tee_grandbois]

pourtant je voudrais les réunir dans la zone de texte NomPrenomsCompletContact.
Comment faut il le faire afin que chaque destination soit respectée ?

désolé, je ne comprend ni la finalité du besoin ni la question

[morobaboumar]

désolé, je ne comprend ni la finalité du besoin ni la question

Voila ce que je voudrais dire:

- il y a deux commandes CmdAjoutCRÉANCIER et CmdAjoutDÉBITEUR sur
le formulaire Frm_Tbl_EnregistrementDetteCreditBDialogue qui permettent d'afficher l'autre
formulaire Frm_Tbl_Contacts.

1°) Après clique sur la CmdAjoutCRÉANCIER affiche le Frm_Tbl_Contacts qui a une zone
de texte NomPrenomsCompletContact dans laquelle après double clique repart renseigner
la zone de liste déroulante CRÉANCIER du formulaire de départ qui est Frm_Tbl_EnregistrementDetteCreditBDialogue.

Ensuite,
2°) je reviens sur le formulaire Frm_Tbl_EnregistrementDetteCreditBDialogue qui est toujours en chargement pour cliquer sur la commande CmdAjoutDÉBITEUR pour afficher encore une fois le Frm_Tbl_Contacts
puis cliquer sur sa zone de texte ContactPrenom qui part une dernière fois renseigner la zone de liste
deroulante DÉBITEUR du Frm_Tbl_EnregistrementDetteCreditBDialogue.

3°) Clique sur Enregistrer du Frm_Tbl_EnregistrementDetteCreditBDialogue pour terminer.

Dans la mesure où je serais compris, je vous ramènerais à la question suivante:

comment réunir les deux codes dans une seule zone de texte ?

Cordialement.

[hyperion13]

Salut
Ne serait-il pas plus simple de saisir directement dans les cboCreanciers ou cboDebiteurs la valeurs que vous cherchez que de faire tout ce mic mac ?

Code :

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

1
2
3
4
5
6
7
8
Private Sub cboCreanciers_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(Me.cboCreanciers.Text) > 0 Then
    Me.cboCreanciers.RowSource = "SELECT * FROM LATable WHERE NomPrenomsCompletContact LIKE '*" & Me.cboCreanciers.Text & "*'"
    Me.cboCreanciers.Dropdown
Else
    Me.cboCreanciers.RowSource = ""
End If
End Sub

Et dans votre Frm_Tbl_EnregistrementDetteCreditBDialogue les champs NomPrenomsCreancier et NomPrenomsDebiteur sont superflus puisque les mêmes valeurs s'affichent dans les cbo.

[morobaboumar]

Bonsoir hyperion13,
Merci de m'avoir enseigner votre méthode

Code :

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

1
2
3
4
5
6
7
8
Private Sub CRÉANCIER_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(Me.CRÉANCIER.Text) > 0 Then
    Me.CRÉANCIER.RowSource = "SELECT * FROM Tbl_Contacts WHERE NomPrenomsCompletContact LIKE '*" & Me.CRÉANCIER.Text & "*'"
    Me.CRÉANCIER.Dropdown
Else
    Me.CRÉANCIER.RowSource = ""
End If
End Sub

. Néanmoins je souhaite rester sur la proposition que j'ai faite
dans l'avant post #5 car la liste Frm_Tbl_Contacts étant affichée, il m'est facile de double-cliquer sur
la (les) personne(s) à enregistrer dans les différentes combobox.

J'espère trouver une solution finale.
Cordialement.