Discussion :

[clickandgo]

Bonjour,

J'ai un formulaire contenant 3 champs indépendants dont un combobox.
Dans l' event d'un bouton "enregistrer / actualiser" du formulaire j'ai mis le code vba suivant

[code]Private Sub BtnEnregistrerPostedeTresorerie_Click()

If IsNull(Me.NumPostedetresorerie) = True Then

DoCmd.RunSQL "insert into [postes de trésorerie](Code,Libellé,Banque) values ('" & Me.Code & "',""" & Me.Libellé & """,'" & Me.Banque & "')"

Else

DoCmd.RunSQL "update [Postes de trésorerie] set [Postes de trésorerie].banque= forms![postes de trésorerie]![banque],[Postes de trésorerie].code= forms![postes de trésorerie]!

Code :

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

1
2
3
4
5
6
7
8
9
,[postes de trésorerie].Libellé= forms![postes de trésorerie]![libellé] where [postes de trésorerie].[NumPosteTrésorerie]= forms![postes de trésorerie]![NumPostedeTresorerie]"
 
MsgBox "Modification effectuée"
 
End If
 
Me.ListePostestrésorerie.Requery
 
End Sub

Si je cherche à actualiser les champs d'un enregistrement existant access me signale "erreur de conversion de type", après avoir décortiqué le problème il s'avère que c'est le combobox "Banque" qui pose problème quand on veut actualiser.

Si je ne reclique et sélectionne pas de nouveau une banque dans le combobox le message d'erreur apparait.

Le dit combobox est alimenté par le code suivant provenant d'une listbox déroulante (voir photo)

Code :

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

1
2
3
4
5
6
7
8
Private Sub ListePostesTrésorerie_AfterUpdate()
 
Me.NumPostedetresorerie = Me.ListePostestrésorerie.Column(0)
Me.Code = Me.ListePostestrésorerie.Column(1)
Me.Libellé = Me.ListePostestrésorerie.Column(2)
Me.Banque = Me.ListePostestrésorerie.Column(3)
 
End Sub

Sachant que le combobox "banque" a une valeur numérique en entier long dans la première colonne qui sert d' ID dans la realation avec la table "Banques".

Nota : La requête Insert marche parfaitement

Une idée de ce qui peut provoquer cette erreur ?

[ClaudeLELOUP]

Bonjour,

Ta question est difficile à lire ! Cela explique sans doute le nombre de réponses.

Je te suggère de poster une BDD compatible Access2000 avec le formulaire (et ses tables) qui te cause problème.
Cela m'aidera à comprendre et, peut-être, à t'aider...

[clickandgo]

Disons pour être plus clair que cette erreur apparait lorsque l'on veut actualiser l'un des 2 champs sans toucher à la valeur du combobox .

Par contre si je resélectionne une valeur dans le combobox avant de cliquer sur le bouton d'enregistrement là tout marche nickel...

A n'y rien comprendre ...

[LedZeppII]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Private Sub ListePostesTrésorerie_AfterUpdate()
 
Me.NumPostedetresorerie = Me.ListePostestrésorerie.Column(0)
Me.Code = Me.ListePostestrésorerie.Column(1)
Me.Libellé = Me.ListePostestrésorerie.Column(2)
Me.Banque = Me.ListePostestrésorerie.Column(3)
 
End Sub

Sachant que le combobox "banque" a une valeur numérique en entier long dans la première colonne qui sert d' ID dans la realation avec la table "Banques".

Pour que ça fonctionne il faut que Me.ListePostestrésorerie.Column(3) ait une correspondance dans la colonne liée de la comboBox Banque.
Est-ce que Me.ListePostestrésorerie.Column(3) est bien un ID de la première colonne de la comboBox Banques ?

A+

[clickandgo]

Aaaaarrrrgggghhhhh ! ça venait de là !!!!!!!!

Bien joué ! j'ai pensé à tout vérifier sauf la liste déroulante qui comme elle m'affichait ce que je voulais ne paraissait pas suspecte !!!

Bravo et merci à toi !!!