Discussion :

[deweiss]

Bonjour a tous:

j'ai des donnees dans une table excel que j'arrive a acceder avec toutes les instructions vb sauf "findfirst" que j'arrive pas a trouver des enregistrements, il me donne le message suivant
"operation non supportee par l'objet"

la commande qe j'utilise est la suivante:

Code :

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

 data.recordset.findfirst ("nom_champ= '") & variable'

elle marche pour les tables access mais pas pour excel.

svp essayer de me donner une explication ou des solutions et merci d'avance.

[SilkyRoad]

bonjour

est il possible de voir l'ensemble de ta procédure ?


michel

[deweiss]

Bonjour:

voici le code de toute la procedure:

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
Public Sub FindPF()
 
Dim ValCout As Double
 
Data1.Refresh
Data1.Recordset.FindFirst ("NOM_COM='") & NameTex.Text & "'"
ValCout = .Fields("VAL_QTE").Value
 
If ValCout > 4999.99 Then
     DIAL_tfk.Show
Else
     DIAL_gpf.Show
End If
 
End Sub

* Data1 est un controle DATA dans la fenetre en cours, elle est constituée d'une table Excel qui fonctionne bien dont les champs "NOM_COM" et "VAL_QTE"
* NameTex.Text est la valeur tapée dans le controle TEXT.

Merci Michel

[SilkyRoad]

bonsoir

la syntaxe semble correcte:
à tout hasard , as tu essayé d'ajouter

Code :

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

Data1.Recordset.MoveFirst

avant de lancer la recherche

Code :

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

1
2
3
4
5
Dim ValCout As Double
 
Data1.Refresh
Data1.Recordset.MoveFirst 
Data1.Recordset.FindFirst ("NOM_COM='") & NameTex.Text & "'"

michel

[deweiss]

Bonjour Michel,

Merci pour ton interet à mon cas, j'ai essayé le MOVEFIRST : ca marche pas.
Mais j'ai trouvé la solution, j'ai changé dans la proprièté "RecordSet"
du controle DATA, au lieu de type "Table" j'ai mis "Dynaset" et elle a
fonctionné bien.

Merci infiniment Michel.