Discussion :

[Daniel MOREAU]

Bonsoir à tous,

Je viens de fractionner ma base et maintement j'ai un souci ou niveau d'un code qui ne fonctionne plus.

Je pense qu'on ne peut pas utiliser le tri par index dans une base fractionnée.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function VerifieAgenda(XDATE As Date, Employe As Long, ByRef lacouleur As Long) As Boolean
'Affichage en bleu dans l'agenda si il ya des rendez-vous de pris
Dim Db As Database
Dim Agenda As Recordset
Set Db = DBEngine.Workspaces(0).OpenDatabase(Path())
Set Agenda = Db.OpenRecordset("Agenda")
Agenda.Index = "Double" 'Usager, DateAgenda
Agenda.Seek "=", Employe, XDATE
If Agenda.NoMatch Then
   VerifieAgenda = False
Else
   lacouleur = 16737843
   VerifieAgenda = True
End If
Agenda.Close
Db.Close
End Function

Comment puis-je régler ce problème.

Merci pour votre aide.

Daniel

[LedZeppII]

Bonjour,

Vous ne pouvez utiliser la méthode Seek avec une table liée car il est impossible d'ouvrir des tables liées comme des objets Recordset de type Table. Toutefois, si vous ouvrez directement une base de données ISAM installable (non ODBC) à l'aide de la méthode OpenDatabase, vous pouvez appliquer la méthode Seek aux tables de cette base de données

Il faut ouvrir la table à partir d'un objet DAO.DataBase ouvert directement sur la base qui contient la table liée.

Exemple:
La table LaTable est une table liée. Elle vient de la base "D:\Mes Documents\Data\MaBase.mdb"

Code :

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

1
2
3
4
5
6
7
Dim db as DAO.Database
Dim strDBPath as String

strDBPath = "D:\Mes Documents\Data\MaBase.mdb"
Set db = DAO.OpenDatabase(strDBPath)
Set r = db.OpenRecordSet("LaTable", dbOpenTable)

Bon courage.