Discussion :

[salfati]

bonjour à tous,

après avoir dévellopé une application sous VBA access 2010 en utilisant des codes récupérés par ci par là (je suis profane en prog),
j'ai fractionné ma base pour des raisons d'utilisation en réseau.
comme certaines procédure utilise l'obet CurrentDb et bien ça plante.
exemple d'une procédure employée:

Code :

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

1
2
3
4
5
6
7
Dim rs As Recordset
Dim MyDB As Database
Set rs = CurrentDb.OpenRecordset("comptage offre", dbOpenTable)
rs.AddNew
rs.Fields("champ1") = Date
rs.Update
Forms![clients].Refresh

Ma question va sembler évidente pour les érudits:
comment faire pour faire fonctionner cette procédure une fois que mes tables sont liées après fractionnement de la base?
esce que je dois ou peux remplacer ce code?
esce que je dois utiliser une méthode de re_connection de tables liées...

merci à tous pour vos remarques et réponses.

[ClaudeLELOUP]

Bonjour,

Ma question va sembler évidente pour les érudits

Cela me gêne de te proposer une réponse.
Mes tables sont liées et je viens de tester ceci qui, chez moi, fonctionne :

Code :

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

1
2
3
4
5
6
7
Public Sub tst()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Table1")
rs.AddNew
rs.Fields("DateJour") = date
rs.Update
End Sub

vulgus homo numeris

[salfati]

je ne suis pas un expert, cela fonctionne et merci