Rs.FindFirst, Impossible à faire fonctionner ...

Question

Bonjour,
dans mon prog, je saisie des enregistrements dans une Bdd, mais je doit par moment mettre a jour des champs (lorsque une date existe deja dans la Bdd)
Seulement, pas moyen de faire marcher rs.FindFirst

Dim Db As Database
Dim Rs As RecordSet

Set Db = OpenDataBase(BDD)
Set Rs = OpenRecordSet("DONNEES")

Lorsque j'arrive a mon Rs.FindFirst, il plante: "Op&#233;ration Non Autoris&#233;e pour ce type d'Objet"...

J'ai essayer plusieurs type de findfirst, du moin avec plusieurs syntaxe:
Rs.FindFirst("Date = " & Date_Deb)
Bref j'ai fais plein d'essais notament avec l'aide de Amarnakane sur le Chat #Programation (Merci au passage...)

Bref Help !

elpaulo · Answer

truite?

fred.toto · Answer

Bizarre...
Voila un exemple de code d'un de mes projets, essaye de t'en inspirer et tiens moi au courant ...

    dim Pe As Table
    
    Set Pe = Base.OpenRecordset("Personnel", dbOpenDynaset, dbSeeChanges)

    Pe.FindFirst "Cii_Personnel = " & Cii_perso
      
    If Not Pe.NoMatch Then
      LblNom = testnull(Pe.Fields("Nom"))
      LblPrenom = testnull(Pe.Fields("Prenom"))
    End If

BUZZ2K · Answer

Truite ??????

K euh sinon pour fred.toto, c'est que donc toi tu fait ton findfirst dans une table et pas ds un recordset (nivo declaration des variables...)
faudrai ke je test sinon j'ai fait une magouilleSet Rs db.OpenRecordset("SELECT * FROM DONNEES WHERE Date #" & Date_Deb & "#;")
Cela fonctionnemais que pour une date, allez savoir pourquoi.... ?
je vais tester le FindFisrt a ta facon...
Merci

BUZZ2K · Answer

Ben le td.FindFirst, il le reconai pas...
Sinon pour la magouille que j'ai trouv&#233;, j'ai oublier de dire que le Pb est qui ne me reconnait qu'une date... le 01/01/04, les autres, il les reconnaits pas comme identiques...
ChelouAccess sur ce coup...

BUZZ2K · Answer

Set Rs = db.OpenRecordset("SELECT * FROM DONNEES")
      Rs.FindFirst "Date = #" & Date_Deb & "#"
      If Rs.NoMatch Then

Il Fonctionne, mais j'ai toujours des NoMatch SAUF qd ladate est egal au 01/01/04...
Alors que je sait qu'il y a des enregistrement avant qui correspondent !

Rs.FindFirst, Impossible à faire fonctionner ...

5 réponses

Discussions similaires