Discussion :

[patguits]

Bonjour a vous ,

Voici mon probleme ma frontal se trouve un pc distant avec le runtime access 2003 et biensure ma dorsal sur un autre pc . J essai depuis plusieur jour tous les codes mais rien , donc je me pose la question est ce que cela marche avec le runtime access (l histoire de liéer les tables ?) Voici le code que j utilise sur mon formulaire splach

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
Option Compare Database
 
Private Sub Form_Open(Cancel As Integer)
 
    Me.TimerInterval = 3000
 
End Sub
 
Private Sub Form_Timer()
 
    'remise à zéro du temps pour la minuterie
    Me.TimerInterval = 0
    'Appel Fonction permettant de lier les tables
    LierTables2 (CurrentProject.Path & "\\5.178.53.200\frogstats\FrogStatsBêta_princip.mdb")
    'Fermeture du Splash
    DoCmd.Close
    'Ouverture Formulaire
    DoCmd.OpenForm "IceStat"
 
End Sub

Et voici le module

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
Function LierTables2(strChmFichier As String)
'---------------------------------------------------------------------------------------
' Procédure      : Function ==> LierTables
' Auteur         : Dolphy35           http://dolphy35.developpez.com/
' Commentaires   : Permet de remettre les liaisons en fonction du chemin sélectionné
' Lien vers Faq  : néant
'---------------------------------------------------------------------------------------
'
    'Déclaration des variables
    Dim dbBase As DAO.Database
    Dim tbdTables As DAO.TableDef
 
    'Instancie la base courrante
    Set dbBase = CurrentDb
 
    'Boucle Parcourant toutes les tables de la Bdd en cours
    For Each tbdTables In dbBase.TableDefs
 
        'Teste l'attribut de la table pour savoir si c'est une table liée
        If tbdTables.Attributes And dbAttachedTable Then
            'Redéfini la propriété connect de la table avec la nouvelle base
            tbdTables.connect = ";DATABASE=" & strChmFichier
            'Remet à jour la liaison de la table
            tbdTables.RefreshLink
        End If
 
    Next tbdTables
 
    'Liberation des variables
    dbBase.Close
    Set dbBase = Nothing
    'Affiche Message
    MsgBox ("mise à jour terminée")
 
End Function

Et apres tous ca !!! Lorsque je lance sur le PC distant le Splash apparait puis Message Qui écrit "Cette application à été arretée à cause d une erreur d exécution."

Merci de vos réponses

[argyronet]

Ooooouuuh, Dolphy !!!
C'est à toi.

Bon, c'est où que ça plante ?
As tu essayer en mode Debug (pas à pas et sans timer) ?

\\5.178.53.200\frogstats\ est serveur est distant (de ton bureau ou dehors)
Peux-tu pinger cette IP depuis ton poste ?
As-tu les droits d'accès au dossier des stats de la grenouille ?

As tu essayé avec

Code :

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

DoCmd.TransferDatabase acLink.....

?

Argy

[patguits]

alors j ai essayé avec une macro autoexe et cela fait pareil !le mode Debug (pas à pas et sans timer) pas essayer vu que ca le fait que sur le runtime 2003

Pour ce qui est de l IP pas de probleme je passe par Hamachi (vpn)
Pour ce qui est des droit tout est OK

Euh le bout de code je le met ou ?

[argyronet]

Le runtime est une version bridée d'Access avec laquelle tu disposes d'aucune fonctionnalité de conception... Mais pour le reste, il n'y a pas de problème...
Mais je ne comprends pas un truc...
La base frontal, c'est bien toi qui l'as développé ?
Avec le MDB source de la frontal, est-ce que tu as les mêmes symptômes ?

Argy

[patguits]

D abort merci à toi ,
Oui j ai développé la base complette , puis je l aie fractionné !
tous marche sur mon PC ou je développe , puis j ai changer le code pour que la frontal puisse retrouver la dorsal sur le réseau , mais ca ne marche pas !le but ètant de distribuer la frontal entre 3 personnes .......

Bref j ai essayé avec la base les comtoire du tuto et la tous marche !!!!
je redéfinis le chemein réseau jusqu a la dorsal et ca marche .

Mais moi mon code ne marche pas ! pourquoi ?

[argyronet]

Bien créé un raccourci sur ton bureau avec la syntaxe suivante :

Code :

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

1
2
"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" _
"C:\Chemin de ton Appli\BaseFrontale.mdb" /runtime

et lance ta base à partir de ce raccourci sur ton poste.
Est-ce que ça marche toujours ?

Argy

P.S. il y a un espace entre les 2 chemins

[patguits]

Apres un énorme casse tête j ai importé mes formulaires dans la base exemple des comptoires du tuto et magic cela a fonctionné , Merci

[Dolphy35]

Hello,

Ooooouuuh, Dolphy !!!
C'est à toi.

je suis là, oh trop tard

Apres un énorme casse tête j ai importé mes formulaires dans la base exemple des comptoires du tuto et magic cela a fonctionné , Merci

plus qu'a comparer pour trouver l'erreur

Dolphy