Requete sous access

Question

Voilà, je voudrais executer une requete sous access, mais cela ne fonctionne pas sur le update, voila le code :

  Fichier = "'" & Fichier & "'"
  
  
  sql = "select trig from utilisateur where nom=" & Var
  Set rs = db.OpenRecordset(sql)
  Var = rs.Fields("trig")
  Var = "'" & Var & "'"  sql "update fiche set trig_dem " & Var & " where titre = " & Fichier
  db.Execute sql
  db.Close

Merci d'avance.

cs_DARKSIDIOUS · Answer

"Ca ne fonctionne pas" : càd ??? Message d'erreur ? Qu'est-ce que ca te fait au juste ?

Le champ trig_dem ne serait-il pas de type texte ou date par zazard ?

aaliyan · Answer

Si c'est un type text. Le message est d'erreur est : erreur d'execution '424' Objet requis.

aaliyan · Answer

Lorsque je fais le dubuggueur pas à pas, dans ma variable sql, il y a :
"update fiche set trig_dem = 'Var' where titre = 'Fichier'"

cs_DARKSIDIOUS · Answer

Hum, ca peut venir du type de Var : s'il s'agit du type variant, il devrait planté ici : Var = "'" & Var & "'" puisque Var prend le type "Field" et non le type "String" !

C'est le seul truc qui peut clocher je pense puisque ta requête d'update me paraît correcte.

aaliyan · Answer

Non, avec le debuggueur, il plante bien lors de db.execute.

chaibat05 · Answer

Salut,
db non déclaré et non référencé

aaliyan · Answer

Je suis quand même pas idiot à ce point :

Dim db As Database
Dim sql As String
Dim rs As Recordset

chaibat05 · Answer

et ou est le Set db=....?
nous on ne le voit pas

aaliyan · Answer

Set db = CurrentDb
il y est ne t'en fais pas pour ca.

chaibat05 · Answer

alors c' est moi qui est idiot parce que je n' ai pa deviné...

aaliyan · Answer

Non c'est pas contre toi mais je m'enerve car je ne trouve pas de solution.
Cette erreur objet requis m'énerve.

chaibat05 · Answer

cause probale


Var mot résérvé
et profites en pour déclarer ton recordset Dynamique
Set rs = db.OpenRecordset(sql,dbOpenDynamique)

cs_DARKSIDIOUS · Answer

Ah oui, Var peut-être un mot de la syntaxe de VB !

Sinon, après renommage, vérifie quand même bien si c'est bien un type String !

aaliyan · Answer

Toujours le même resultat, si je rajoute call devant db, cela me fait une erreur de compilation.

chaibat05 · Answer

je pense à 
DBEngine.Workspaces(0).BeginTrans
db.Execute sql


DBEngine.Workspaces(0).CommitTrans

chaibat05 · Answer

sinon, changes de stratégie


recherches ton enregistrement puis avec ton rs fait un 
update directement

aaliyan · Answer

Ca marche toujours pas

cs_DARKSIDIOUS · Answer

Mets nous ton code qui te fait le update au complet stp, ce sera plus simple :o)

aaliyan · Answer

Voila mon code depuis le début

Dim db As Database
Dim sql As String
Dim rs As Recordset
Dim ccat As Integer
Dim Wd As Object
Dim Chemin As String
Dim Fichier As String
Dim Var1 As String




On Error GoTo erreur:
 
  Set db = CurrentDb
  Fichier = "Formatage 2.1"
  
  Chemin = "C:" & Fichier & ".doc"
  
  Set Wd = CreateObject("Word.Application")
  With Wd
      .Visible = True
      .Documents.Open Chemin
      .Activate
  End With
  
  'remplissage nom
  If Wd.ActiveDocument.Bookmarks.Exists("Nom") = True Then
    Wd.ActiveDocument.Bookmarks("Nom").Select
  End If
  Call Wd.Selection.MoveDown(wdLine, 1, wdExtend)
  Call Wd.Selection.MoveLeft(wdCharacter, 2, wdExtend)
  Selection.Copy
  Var1 = Selection
  Var1 = "'" & Var1 & "'"
  Fichier = "'" & Fichier & "'"


  
  sql = "select trig from utilisateur where nom=" & Var1
  Set rs = db.OpenRecordset(sql)
  Var1 = rs.Fields("trig")
  Var1 = "'" & Var1 & "'"  sql "update fiche set trig_dem " & Var1 & " where titre = " & Fichier
  db.Execute sql
  db.Close

aaliyan · Answer

Petite modif: Dim db As Database Dim sql As String Dim rs As Recordset Dim ccat As Integer Dim Wd As Object Dim Chemin As String Dim Fichier As String Dim Var1 As String On Error GoTo erreur: Set db = CurrentDb Fichier = "Formatage 2.1" Chemin = "C:" & Fichier & ".doc" Set Wd = CreateObject("Word.Application") With Wd .Visible = True .Documents.Open Chemin .Activate End With 'remplissage nom If Wd.ActiveDocument.Bookmarks.Exists("Nom") = True Then Wd.ActiveDocument.Bookmarks("Nom").Select End If Call Wd.Selection.MoveDown(wdLine, 1, wdExtend) Call Wd.Selection.MoveLeft(wdCharacter, 2, wdExtend) Selection.Copy Var1 = Selection Var1 = "'" & Var1 & "'" Fichier = "'" & Fichier & "'" sql = "select trig from utilisateur where nom=" & Var1 Set rs = db.OpenRecordset(sql) Var1 = rs.Fields("trig") ~~Var1 = "'" & Var1 & "'"~~ sql "update fiche set trig_dem " & Var1 & " where titre = " & Fichier db.Execute sql db.Close

aaliyan · Answer

J'aurai puet-etre une autre solution mais je n'arrive pas a la finaliser : 
  sql "select mots_cles from fiche where titre " & Fichier
  Set rs = db.OpenRecordset(sql)
  
  Do Until rs.EOF   'Ca plante ici'
    rs.Edit
    rs.Fields("mots_cles") = Var1
    rs.Update
    rs.MoveNext
  Loop

chaibat05 · Answer

Do While Not rs.EOF

chaibat05 · Answer

et t' as ^pas ais ce que je t' ai dit...
ton rs doit être dynamique
Set rs = db.OpenRecordset(sql,dbOpenDynaset)

aaliyan · Answer

sql = "select mots_clefs from fiche where titre = " & Fichier
  Set rs = db.OpenRecordset(sql, dbOpenDynaset)  'ca plante ici maintenant
  
  Do While Not (rs.EOF)
    rs.Edit
    rs.Fields("mots_clefs") = Var1
    rs.Update
    rs.MoveNext
  Loop

Je comprends plus rien

chaibat05 · Answer

pardon !c' est dbOpenDynamic

et puis prends l' habitude de faire
' un mouvement du pointeur pour remplir ton recordset


With rs
 On Error Resume Next
 .MoveLast
 .MoveFirst
 If .Bof And .Eof Then
   MsgBox "Aucun Enregistrement...'
   Exit Sub
 End If
 Do Wile Not .Eof
    ...
    ...
   .MoveNext
  Loop


End With

aaliyan · Answer

Je crois bien que je vais abandonner. Ca marche toujours pas.

chaibat05 · Answer

encore un problème de synthaxe ...!
les mots réservés doivent être en majuscules...


sql "SELECT mots_clefs  FROM fiche WHERE titre " & Fichier

Requete sous access

27 réponses

Votre réponse

Discussions similaires