Discussion :

[new_wave]

Bonjour,

Je souhaite metre à jour un élément d'une combolist en lançant une requête sql.

Le problème est que l'evènement KeyPress interfère et ne permet pas de mettre à jour depuis l'evènement Change.

Voici le code que j'ai écrit pour demander cette mise à jour.

Pourriez vous me dire ce que je peux faire pour que cett emise à jour s'effectue correctement.

Merci beaucoup à vous.
Nathalie

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Private Sub cbform4_Change()
For I = 0 To cbform4.ListCount - 1
If cbform4.Text = cbform4.List(I) Then
maj_cbform4
End If
Next I
 
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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 
Private Sub maj_cbform4()
Dim cn As New ADODB.Connection
Dim rst3 As New ADODB.Recordset
 
 
'Définition du pilote de connexion
cn.Provider = "Microsoft.Jet.Oledb.4.0"
'Définition de la chaîne de connexion
cn.ConnectionString = "F:\Projet VB\v32ps3cop pour debugages\sruplan.exe"
 
'Ouverture de la base de données
cn.Open
 
On Error GoTo err_refresh
 
rst3.Open "UPDATE test_coprplan set LIBELLE = '" & Mid(cbform4.Text, 6) & "' where CPTE = " & Mid(cbform4.Text, 1, 5), cn
 
 
cn.Close
 
Exit Sub
 
err_refresh:
MsgBox Err.Description, vbCritical, "pbinsertcbform4"
Err.Clear
 
End Sub

[Phifi]

David Vincent les a vus. Pour lui, tout a commencé par une nuit sombre, le long d'une route solitaire de campagne, alors qu'il cherchait un raccourci qu'il ne trouva jamais...

[Delbeke]

Mdr

[SfJ5Rpw8]

David Vincent les a vus. Pour lui, tout a commencé par une nuit sombre, le long d'une route solitaire de campagne, alors qu'il cherchait un raccourci qu'il ne trouva jamais...

salut phifi tu dois avoir fait une erreur de traduction .. keypress et une fonction évenementielle de VB, c'est elle qu'on as perdu (je ne la trouve pas dans le code à harbonne) ... cela n'as rien à voir avec un "auriculaire rigide et droit"...

[jmfmarques]

Ah !
Je commence à comprendre qu'on parle de finger.print.

[new_wave]

Bonjour,

Que dois je en conclure les gars, que vous n'avez pas de solution...
Et bien moi j'en ai une: je n'ai plus besoin de chercher de ce côté, la mise à jour n'est plus demandée par les utilisateurs...

Mais si par hasard vous aviez une proposition à me faire, je suis preneuse.

Concernant l'evènement KeyPress, il n'est pas utille que je vous indique son code, ce n'est pas le pb!

Cordialement.
Nathalie

[Delbeke]

Pourtant tu annonces le contraire

Le problème est que l'evènement KeyPress interfère et ne permet pas de mettre à jour depuis l'evènement Change.