Discussion :

[frevol]

Bonjour,

Afin de permettre le partage de données avec des utilisateurs dans d'autres pays, j'ai migré mes tables vers sharepoint. Elles sont donc devenues des listes, désormais liées dans mon appli.

Jusque là, j'utilisais le code type suivant:

Set Z_Database = OpenDatabase(Z_Path)
Set Z_Recordset = Z_Database.OpenRecordset("T_tablename")

Mais j'obtiens une erreur dès que je modifie en:

Set Z_Database = CurrentDb

Je pense que c'est dû aux tables/listes liées mais je ne sais pas comment m'en sortir.

Tout fonctionne parfaitement dès qu'il s'agit d'ajouter des records mais pas quand je souhaite rechercher des records.

Merci par avance de votre aide,

Fred

[NeuroTransMetteur]

La méthode .seek est liée à "JET" avec toutes ses restrictions.
Ne connaissant pas sharepoint non conseil ne sera peut être pas pertinent.
Mais pourquoi ne pas essayer :

Code :

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

1
2
3
Z_Database = OpenDatabase(Z_Path)
Set Z_Recordset = Z_Database.OpenRecordset("T_tablename",dbOpenDynaset)
Z_Recordset.FindFirst "champDePréférenceIndexé=" & valeur (ou """string""")

[frevol]

Merci,

Je vais essayer ca en rentrant.

Question subsidiaires, puis-je également gérer les index multi-champs?

Fred

[NeuroTransMetteur]

oui, exemple

Code :

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

1
2
3
Z_Database = OpenDatabase(Z_Path)
Set Z_Recordset = Z_Database.OpenRecordset("T_tablename",dbOpenDynaset)
Z_Recordset.FindFirst "champDePréférenceIndexé1=" & valeur(ou """string""") & " and [date de départ] > #" & Format(madate, "m/d/yy") & "#" (ou  & " and [champ numérique] =" & valeur)

a+

[frevol]

Bonsoir,

J'ai essayé avec des tables liées en local et ça marche. Une fois au bureau et branché au sharepoint, je lancerai le code pour le tester sous cette configuration.

Merci pour cette aide précieuse qui m'a déja bien fait avancer.

Fred