probleme avec findFirst avec DAO

Question

bonjour &#224; tous

voila j'ai un probleme avec les findfirst, findnext ,....

je fais tout manuellement (je n'utilise pas de datacontrol)

donc voila j'ai d&#233;clarer mes variables:
Dim db As dao.Database
Dim MonJeu As dao.Recordset

tout marche(ajout de record , suppression,...)

mais quand je veux utiliser les findnext j'ai un msg d'erreur:

run-time error '3251'
op&#233;ration non autoris&#233;e pour cetype d'objet

voila ma ligne pour la recherche:
MonJeu.FindFirst (cbRecherche.Text & " = '" & edtRecherche.Text & "'")

cbRecherche: contient le nom des champs de la table 
edtRecherche:contient la chaine recherch&#233;e.

quelqu'un sait d'ou provient l'erreur?

merci

apaulux · Answer

http://multibases.site.voila.fr


Dim DB As DAO.Database, RS As Recordset

Set DB = gwsMainWS.OpenDatabase("C:\Documents and Settings\paul\Bureau\Comptoir.mdb", False, gnReadOnly, "")


'Ne fonctionne pas averc la funtion FindFirst
'Set RS = DB.OpenRecordset("Clients", dbOpenDynaset)
Set RS = DB.OpenRecordset("SELECT DISTINCTROW * FROM [Clients]")
RS.FindFirst "[Code client] Like 'ALFKI'"
If RS.NoMatch Then
MsgBox "pas d'enregistrement"
else
'Changer l'index en fonction de votre recherche
MsgBox RS.Fields(1)
End If
RS.Close
DB.Close

[mailto:paul.ablasou@wanadoo.fr mailto:paul.ablasou@wanadoo.fr]

djoao · Answer

tu pourrais m'expliquer ton code car j'y comprend pas grand chose(newbee inside )

et tu serais me dire pq mon code ne fonctionne pas?

merci de ton aide

Probleme avec findFirst avec DAO

2 réponses

Discussions similaires