Discussion :

[harjer]

bonjour,

je voudrais savoir ce que fait l'instruction conf.edit car j'ai une erreur

merci d'avance

[Invité]

Bonjour

edit est lié à un recordset, à mon avis tu as un recordset de mal déclaré.

Il faudrait le code qui va avec.

Starec

[harjer]

voila le code

Code :

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

1
2
3
4
5
DoCmd.OpenForm "MenuPrincipal"      ' j'ouvre le menu principal
 
    DoCmd.SetWarnings False
    Conf.MoveFirst
    Conf.Edit

[Invité]

Re

Comme je te l'ai dit Conf est une recordset, où et comment est-il déclaré ?

Tu devrais avoir dans ton code

Code :

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

Dim Conf as DAO.Recordset

et

Code :

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

Set Conf = currentDb.OpenRecordset(...)

où quelque chose qui s'en approche.

Ce code vient-il de toi ou d'un copier-coller ?

Starec

[harjer]

oui le conf est bien declarer plus haut

Code :

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

1
2
3
 
Dim Conf As Recordset
Set Conf = Bds.OpenRecordset("Config")

c un copier coller du code

[harjer]

merci de ton aide mais j'ai encore besoin de toi

en fait la table config est une table attaché odbc a sql server

pourrai tu me dire comment faire pour changer l'enregistrement sur la table config sql server je te passe la suite du code
merci d'avance

Code :

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

1
2
3
4
5
6
Conf.Edit
    ' faut mettre à jour le date fin quand on démarre la base vide
    Conf![DateFin] = Int(DateAdd("d", Conf![JoursAvance], Now()))
    Conf.Update
    Conf.Close
    DoCmd.SetWarnings True