Discussion :

[franckimmo]

Bonjour,

Mon problème est le suivant:
Dans mon formulaire Frm_Saisie, je possède un bouton de commande intitulé "Ordre permanent". En cliquant "Ordre permanent", une écriture en VBA permet de changer le contenu du champ "Société" du formulaire par une autre requête.
Cette autre requête me permet de sélectionner des contacts d'une autre table et de les insérer dans les champs de mon formulaire Frm_Saisie.
Par contre je n'arrive pas par l'intermédiaire de column d'introduire les données dans les bons champs.
J'ai zipper la base si quelqu'un trouve le problème ...
Bonne soirée à tous
A+
Franck

[Psychopathe]

J'ai regardé ta base je n'ai rien compris à ce que tu veux faire. Il y beaucoup trop de choses imbriquées avec des index non indispensables. Le champ Société possède une source, mais tu lui a mis aussi une requête sur une autre table que Feuil2, et avec un évènement afertupdate qui modifie les données du controle....
Comprends rien. Ce que tu fais est trop compliqué et devrait être simplifié pour fonctionner correctement...

[franckimmo]

Bonjour,

Le but du formulaire « Form_Saisie » étant de sélectionner par la liste déroulante un fournisseur ou un bénéficiaire issu de la table « Compte bancaire ». En sélectionnant le bénéficiaire ou le fournisseur grâce au code ci-dessous il renseigne plusieurs champs du formulaire Frm_Saisie tel que le « Compte bancaire », « Nom Banque », « Libellé » et « Compte » puis le curseur se déplace jusqu’au champ « Montant » pour que j’introduise le montant souhaité. ( Ce qui marche pour l'instant)

Code :

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

1
2
3
4
5
6
7
8
Private Sub Société_AfterUpdate()
' Compte bancaire correpond à la colonne 2
Forms![Frm_Saisie]![Cpte Bancaire] = Forms![Frm_Saisie]!Société.Column(2) ' nom de banque correspond à la colonne 3
Forms![Frm_Saisie]![Nom Banque] = Forms![Frm_Saisie]!Société.Column(3) ' Libellé correspond à la colonne 1
Forms![Frm_Saisie]!Libellé = Forms![Frm_Saisie]!Société.Column(1) ' Numéro du plan comptable correspond à la colonne 4
Forms![Frm_Saisie]!Compte = Forms![Frm_Saisie]!Société.Column(4) ' Atteidre le champ montant
DoCmd.GoToControl "[Montant]"
End Sub

Dans ce formulaire Form_Saisie il y a deux boutons de commande:
Le premier qui s'appelle "Création nouveaux comptes bancaire" qui ouvre un autre formulaire pour saisir des nouveaux comptes bancaire de fournisseurs ou de bénéficiaires qui n’existent pas encore dans la table « CompteBancaire ».
Le deuxième s'appelle "Ordre permanent" qui permettrait quand on clique dessus d’aller chercher les données de la table « OrdrePermanent » pour renseigner plusieurs champs du formulaire Frm_Saisie tel que « Ncompte », « Libellé », « Montant ».
Ce que je constate c’est qu'au lieu de suivre l’instruction dans Private Sub Commande 22_Click() qui indique de mettre dans le champ « Société » la column(0), dans le champ « NCompte » la column (1) etc… il prend l’instruction dans After UpDate().
Ce que je souhaite dans le formulaire « Form_Saisie » c’est :
Si je sélectionne dans la liste déroulante « Société » un fournisseur alors il renseigne plusiers champs du formulaire « Form_Saisie » (ce qui marche pour l’instant)
Par contre si je clique sur sur le bouton de commande "Création nouveaux comptes bancaire", alors il ouvre un formulaire pour saisir le numéro de compte et d’autres données d’un nouveau fournisseurs ou bénéficiaire (ce qui marche pour l’instant)
Si on clique sur la commande 22 alors il y a un changement de donnée dans la liste déroulante « Société » par une requête en SQL (ce qui marche pour l’instant)

Code :

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

1
2
3
4
5
Private Sub Commande22_Click()
On Error GoTo Err_Commande22_Click
Dim lasq As String
lasq = "select Société, libelléSté, Ncompte, MontantOP FROM OrdrePermanent;"
Forms![Frm_Saisie].Société.RowSource = lasq

Par contre ce qui ne marche pas c’est que je n’arrive pas à renseigner le formulaire « Frm_Saisie » dans les champs souhaités voir code ci-dessous :

Code :

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

1
2
3
4
5
' Société correpond à la colonne 0
Forms![Frm_Saisie]![Société] = Forms![Frm_Saisie]!Société.Column(0) ' Ncompte correspond à la colonne 3
Forms![Frm_Saisie]![Ncompte] = Forms![Frm_Saisie]!Société.Column(3) ' Libellé correspond à la colonne 1
Forms![Frm_Saisie]!Libellé = Forms![Frm_Saisie]!Société.Column(1) ' MontantOp correspond à la colonne 4
Forms![Frm_Saisie]!Montant = Forms![Frm_Saisie]!Société.Column(4)

Je pense que les deux codes doivent être mis dans After UpDate de la liste « Société » mais je ne sais pas comment le formuler, ni ne connais la syntaxe.
Code entier du bouton de commande OrdrePermanent :

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
Private Sub Commande22_Click()
On Error GoTo Err_Commande22_Click
Dim lasq As String
lasq = "select Société, libelléSté, Ncompte, MontantOP FROM OrdrePermanent;"
Forms![Frm_Saisie].Société.RowSource = lasq
    ' Société correpond  à la colonne 0
    Forms![Frm_Saisie]![Société] = Forms![Frm_Saisie]!Société.Column(0)                                                                                                                                                                                                                                                             '  Ncompte correspond à la colonne 3
    Forms![Frm_Saisie]![Ncompte] = Forms![Frm_Saisie]!Société.Column(3)                                                                                                                                                                                                                                                                    ' Libellé correspond à la colonne  1
    Forms![Frm_Saisie]!Libellé = Forms![Frm_Saisie]!Société.Column(1)                                                                                                                                                                                                                                                                    ' MontantOp correspond à la colonne 4
    Forms![Frm_Saisie]!Montant = Forms![Frm_Saisie]!Société.Column(4)                                                                                                                                                                                                                                                          Exit_Commande22_Click:
    Exit Sub
Err_Commande22_Click:
    MsgBox Err.Description
    Resume Exit_Commande22_Click
End Sub

J'espère que quelqu'un pourra m'aiguiller et que l'énoncé est explicite....
Bonne journée à tous
Franck

[Psychopathe]

Bon je crois avoir compris. En fait tu veux empêcher tout simplement que l'afterUpdate ne s'exécute pas quand tu clique sur le bouton ordre de paiement. Si c'est ça il suffit tout simplement de mettre une simple condition dans le code de l'afterupdate lors du click du bouton de la commande22. Tu créé une variable globale dans le formulaire de type booléen par exemple. Une variable appelée par exemple arretMiseAjour. Puis:

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
Private Sub Commande22_Click()
On Error GoTo Err_Commande22_Click
Dim lasq As String
lasq = "select Société, libelléSté, Ncompte, MontantOP FROM OrdrePermanent;"
Forms![Frm_Saisie].Société.RowSource = lasq
    ' Société correpond  à la colonne 0
    Forms![Frm_Saisie]![Société] = Forms![Frm_Saisie]!Société.Column(0) '  Ncompte correspond à la colonne 3
    Forms![Frm_Saisie]![Ncompte] = Forms!' Libellé correspond à la colonne  1
    Forms![Frm_Saisie]!Libellé = Forms![Frm_Saisie]!Société.Column(1)' MontantOp correspond à la colonne 4
    Forms![Frm_Saisie]!Montant = Forms![Frm_Saisie]!Société.Column(4)
    arretMiseAjour= true
    Exit Sub
Err_Commande22_Click:
    MsgBox Err.Description
    Resume Exit_Commande22_Click
End Sub

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
Private Sub Société_AfterUpdate()
' Compte bancaire correpond à la colonne 2
 
'Si le bouton ordre de virement est appuyé alors on ne fait pas la mise à jour
if(arretMiseAjour) then
Forms![Frm_Saisie]![Cpte Bancaire] = Forms![Frm_Saisie]!Société.Column(2) ' nom de banque correspond à la colonne 3
Forms![Frm_Saisie]![Nom Banque] = Forms![Frm_Saisie]!Société.Column(3) ' Libellé correspond à la colonne 1
Forms![Frm_Saisie]!Libellé = Forms![Frm_Saisie]!Société.Column(1) ' Numéro du plan comptable correspond à la colonne 4
Forms![Frm_Saisie]!Compte = Forms![Frm_Saisie]!Société.Column(4) ' Atteidre le champ montant
DoCmd.GoToControl "[Montant]"
end if
 
'On remet la variable arretMiseAjour à faux pour que les mises à jour classiques via la liste déroulante soient de nouveau actives
arretMiseAjour= false
 
End Sub

[franckimmo]

Salut
J'ai fait une variable comme tu le soumettais

Code :

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

1
2
3
4
Private Sub Form_Current()
   DoCmd.GoToRecord , "", acNewRec
   Dim arretMiseAjour As Boolean
End Sub

et j'ai repris tes codes

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
21
22
23
24
25
26
27
28
29
30
31
Private Sub Commande22_Click()
On Error GoTo Err_Commande22_Click
 
Dim lasq As String
 
lasq = "select Société, libelléSté, Ncompte, MontantOP FROM OrdrePermanent;"
Forms![Frm_Saisie].Société.RowSource = lasq
 
    ' Société correpond  à la colonne 0
    Forms![Frm_Saisie]![Société] = Forms![Frm_Saisie]!Société.Column(0)
 
    '  Montant correspond à la colonne 3
    Forms![Frm_Saisie]![Montant] = Forms![Frm_Saisie]!Société.Column(3)
 
    ' Libellé correspond à la colonne  1
    Forms![Frm_Saisie]!Libellé = Forms![Frm_Saisie]!Société.Column(1)
 
    ' MontantOp correspond à la colonne 4
    Forms![Frm_Saisie]!Montant = Forms![Frm_Saisie]!Société.Column(4)
 
 
     arretMiseAjour = True
 
Exit_Commande22_Click:
    Exit Sub
 
Err_Commande22_Click:
    MsgBox Err.Description
    Resume Exit_Commande22_Click
 
End Sub

et dans 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
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub Société_AfterUpdate()
 
Dim arretMiseAjour As Boolean
 
 
'Si le bouton ordre de virement est appuyé alors on ne fait pas la mise à jour
If arretMiseAjour = True Then
 
    ' Compte bancaire correpond  à la colonne 2
    Forms![Frm_Saisie]![Cpte Bancaire] = Forms![Frm_Saisie]!Société.Column(2)
 
    '  nom de banque correspond à la colonne 3
    Forms![Frm_Saisie]![Nom Banque] = Forms![Frm_Saisie]!Société.Column(3)
 
    ' Libellé correspond à la colonne  1
    Forms![Frm_Saisie]!Libellé = Forms![Frm_Saisie]!Société.Column(1)
 
    ' Numéro du plan comptable correspond à la colonne 4
    Forms![Frm_Saisie]!Compte = Forms![Frm_Saisie]!Société.Column(4)
 
 
     ' Atteidre le champ montant
    DoCmd.GoToControl "[Montant]"
 
    End If
    'On remet la variable arretMiseAjour à faux pour que les mises à jour classiques via la liste déroulante soient de nouveau actives
arretMiseAjour = False
 
 
End Sub

La seule chose que m'indique access ce sont les phrases suivantes:
Erreur de compilation
Variable non définie

Je me suis peut être tropmpé. Si tu trouves....

Merci
Franck

[Psychopathe]

Normal. La variable doit être déclarer comme variable globale et cela uniquement une seule fois!!! Dans le code du formulaire tu peux mettre:

Code :

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

1
2
3
Option Compare Database
Option Explicit
Private arretMiseAjour As Boolean

Ailleurs la variable sera une variable locale et ne sera pas connue de toutes les procédure du formulaire.

[franckimmo]

je veux empêcher que l'afterUpdate ne s'exécute quand je clique sur le bouton ordre de paiement. Par contre je veux introduire une autre condition dans AfterUpDate la voici:

Code :

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

1
2
3
4
5
' Société correpond à la colonne 0
Forms![Frm_Saisie]![Société] = Forms![Frm_Saisie]!Société.Column(0) ' Ncompte correspond à la colonne 3
Forms![Frm_Saisie]![Ncompte] = Forms![Frm_Saisie]!Société.Column(3) ' Libellé correspond à la colonne 1
Forms![Frm_Saisie]!Libellé = Forms![Frm_Saisie]!Société.Column(1) ' MontantOp correspond à la colonne 4
Forms![Frm_Saisie]!Montant = Forms![Frm_Saisie]!Société.Column(4)

J'ai fait exactement ce que tu as soumis mais cela ne met pas à jour la syntaxe ci-dessus à la place de celle dans AfterUpdate et cela ne fonctionne pas.
Le if est une bonne idée mais il y a certainement une erreur quelque part. Je continue à chercher et je te tiens au courant.
merci
Franck

[Psychopathe]

Quand tu clique sur le bouton ordre de paiement la fonction afterupdate ne s'exécute pas. Tu ne fais que changer le rowSource de la liste déroulante. Il faut ensuite sélectionner un enregistrement pour que afterupdate fonctionne.

Bon tiens à ajouter en début de code:

Code :

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

1
2
3
4
Option Compare Database
Option Explicit
 
Dim ordrePermanent As Boolean

Puis:

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 Commande22_Click()
On Error GoTo Err_Commande22_Click
 
Dim lasq As String
 
lasq = "select Société, libelléSté, Ncompte, MontantOP FROM OrdrePermanent;"
Forms![Frm_Saisie].Société.RowSource = lasq
 
 
ordrePermanent = True
 
Exit_Commande22_Click:
    Exit Sub
 
Err_Commande22_Click:
    MsgBox Err.Description
    Resume Exit_Commande22_Click
 
End Sub

Et enfin:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
If (ordrePermanent) Then
 
    ' Société correpond  à la colonne 0
    Forms![Frm_Saisie]![Société] = Forms![Frm_Saisie]!Société.Column(0)
 
    '  Montant correspond à la colonne 2
    Forms![Frm_Saisie]![Compte] = Forms![Frm_Saisie]!Société.Column(2)
 
    ' Libellé correspond à la colonne 1
    Forms![Frm_Saisie]!Libellé = Forms![Frm_Saisie]!Société.Column(1)
 
    ' MontantOp correspond à la colonne 3
    Forms![Frm_Saisie]!Montant = Forms![Frm_Saisie]!Société.Column(3)
 
Else
 
    ' Compte bancaire correpond à la colonne 2
    Forms![Frm_Saisie]![Cpte Bancaire] = Forms![Frm_Saisie]!Société.Column(2)
 
    '  nom de banque correspond à la colonne 3
    Forms![Frm_Saisie]![Nom Banque] = Forms![Frm_Saisie]!Société.Column(3)
 
    ' Libellé correspond à la colonne  1
    Forms![Frm_Saisie]!Libellé = Forms![Frm_Saisie]!Société.Column(1)
 
    ' Numéro du plan comptable correspond à la colonne 4
    Forms![Frm_Saisie]!Compte = Forms![Frm_Saisie]!Société.Column(4)
 
End If
     ' Atteidre le champ montant
    DoCmd.GoToControl "Montant"
 
 
End Sub

Chez moi c'est OK sauf un problème d'enregistrement du formulaire à causes des index.

[franckimmo]

Voilà mes problèmes sont résolues . Merci pour ton aide précieuse Psychopathe. Certainement à bientôt dans le Forum.
Pour tous les autres la dernière solution de Psychopathe permet de solutionner mon problème.
Bonne soirée à tous
Franck