Embedded Files
etiquette reseau = statut lien
sur bouton passer en local
Private Sub Commande83_Click()
If statutlien.Value = "local" Then
MsgBox "vous êtes déjà en local"
Else
infott.Caption = "Traitement en cours, patientez"
infott.ForeColor = RGB(255, 255, 255)
Me.Refresh
Me.Repaint
Call locallinks
Me.Refresh
MsgBox "Traitement terminé"
infott.Caption = " "
End If
End Sub
sur bouton passer en reseau
Private Sub Commande84_Click()
If statutlien.Value = "Réseau" Then
MsgBox "vous êtes déjà en Réseau"
Else
infott.Caption = "Traitement en cours, patientez"
infott.ForeColor = RGB(255, 255, 255)
Me.Refresh
Me.Repaint
Call TABLINK
Me.Refresh
MsgBox "Traitement terminé"
infott.Caption = " "
End If
End Sub
sur bouton copier données
Private Sub Commande90_Click()
On Error GoTo Err_Commande90_Click
Dim stAppName As String
stAppName = "C:\cnlocal\sauvecn.bat"
Call Shell(stAppName, 1)
Exit_Commande90_Click:
Exit Sub
Err_Commande90_Click:
MsgBox Err.Description
Resume Exit_Commande90_Click
End Sub
Le module code reseau
Public Sub TABLINK()
Dim mabase As Database
Set mabase = CurrentDb
'rétablir la liaison
Dim cnt As Integer
Dim tdf As TableDef
For Each tdf In mabase.TableDefs
If (tdf.Attributes And dbSystemObject) = 0 Then
If tdf.Connect <> "" Then
tdf.Connect = ";DATABASE=\\Cn_serveur\baseCN\cn_DATA.mdb"
'tdf.Connect = ";DATABASE=C:\cnlocal\cn_DATA.mdb"
tdf.RefreshLink
End If
End If
cnt = cnt + 1
Debug.Print cnt
Next
'modifie l'info dans la table infosbase
Dim mesinfos As Recordset
Set mesinfos = mabase.OpenRecordset("infosbase", dbOpenDynaset)
mesinfos.Edit
mesinfos(1) = "Réseau"
mesinfos.Update
Set mesinfos = Nothing
Set mabase = Nothing
End Sub
Public Sub locallinks()
Dim mabase As Database
Set mabase = CurrentDb
'rétablir la liaison
Dim tdf As TableDef
For Each tdf In mabase.TableDefs
If (tdf.Attributes And dbSystemObject) = 0 Then
If tdf.Connect <> "" Then
tdf.Connect = ";DATABASE=C:\cnlocal\cn_DATA.mdb"
tdf.RefreshLink
End If
End If
Next
'modifie l'info dans la table infosbase
Dim mesinfos As Recordset
Set mesinfos = mabase.OpenRecordset("infosbase", dbOpenDynaset)
mesinfos.Edit
mesinfos(1) = "Local"
mesinfos.Update
Set mesinfos = Nothing
Set mabase = Nothing
End Sub
Page updated
Google Sites
Report abuse