Bonjour,

J'ai une base BS.mdb que j'ai fractionné en BS.mdb et BS_princip.mdb en vue d'une utilisation client/serveur.

Suite à ce fractionnement le code suivant, lancer par autoexec, qui affiche un message suivant le contenu d'une table ne fonctionne plus, j'ai systématiquement le msgbox qui s'affiche. Le contenu de la table testée n'est pas vide et n'a pas changé.


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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Public Function dateZST12()
   Dim Link As String
   Dim Fichier As String
   Dim date_ZST12 As String
 
   Dim MaBD As Database
   Dim MonJeu As Recordset
 
   Set MaBD = CurrentDb
   Set MonJeu = MaBD.OpenRecordset("Chemin", dbOpenDynaset)
 
   Fichier = "ZST12_BS.csv"
 
   If CurrentDb.TableDefs("Chemin").RecordCount > 0 Then
      MonJeu.MoveFirst
 
      Do Until MonJeu.EOF
 
         If IsNull(MonJeu![Chemin]) Then
            response = MsgBox("Le chemin du répertoire réseau n'est pas saisi" + Chr(13) + Chr(13) + "Veuillez saisir le chemin du répertoire réseau valide", vbCritical + vbOKOnly)
 
            date_ZST12 = "Chemin ZST12 non défini"
 
         Else
 
            Link = MonJeu![Chemin]
            date_ZST12 = FileDateTime(Link & "\" & Fichier)
 
         End If
 
         MonJeu.MoveNext
      Loop
 
      Forms!F_accueil.date_ZST12.Caption = date_ZST12
 
   Else
      response = MsgBox("Le chemin du répertoire réseau n'est pas saisi" + Chr(13) + Chr(13) + "Veuillez saisir le chemin du répertoire réseau valide", vbCritical + vbOKOnly)
 
   End If
 
   Set MonJeu = Nothing
   Set MaBD = Nothing
 
 
End Function
Quelle modif dois-je apporter au code ?

D'avance merci de votre aide