ernstcramer
Gebruiker
- Lid geworden
- 14 dec 2015
- Berichten
- 66
Ik heb een database met een modelverzameling.
ik heb alle tabellen ondergebracht (dmv database splitsen) op OneDrive
In mijn hoofdmenu heb ik de optie gemaakt om de verwijzende padnamen aan te passen aan de plek vanuit de computer waar ik de applicatie start.
De tabel met deze gegevens heb ik niet centraal opgeslagen, maar in de DB die ook gekopieerd moet worden.
dit is het menutje waarmee ik de padnamen kan aanpassen:
Bij het opstarten vanaf een andere computer run ik eerst apart dit menutje, zodat de padnamen zijn aangepast.
Maar op de een of andere manier gaat dat niet goed. Vandaag ontdekte ik het volgende in de tabel waarin de data wordt opgeslagen:
Hierin staat dus heel hard, bij beschrijving, de verwijzing naar de centrale DB vanaf één specifieke computer. en kennelijk helpt aanpassen van paden daar dus niets aan? Is hier een oplossing voor?
Ik dacht eerst dat ik in die regel een variabele zou kunnen opnemen die naar de juiste padnaam verwijst: dat is niet toegestaan
Moet ik alle query's ook centraal opslaan en alleen de formulieren en/of rapporten lokaal zetten?
ik hoor graag jullie advies!
ik heb alle tabellen ondergebracht (dmv database splitsen) op OneDrive
In mijn hoofdmenu heb ik de optie gemaakt om de verwijzende padnamen aan te passen aan de plek vanuit de computer waar ik de applicatie start.
De tabel met deze gegevens heb ik niet centraal opgeslagen, maar in de DB die ook gekopieerd moet worden.
dit is het menutje waarmee ik de padnamen kan aanpassen:
Code:
Option Compare Database
Private Sub btnDB_Click()
Set dlgKiezer = Application.FileDialog(msoFileDialogFolderPicker)
With dlgKiezer
.Title = "Waar staat de database?" 'kies de locatie waar de DB staat
.InitialFileName = testPath 'openen in de map waar de DB staat
.AllowMultiSelect = False 'je kan maar één map kiezen
If .Show = -1 Then 'bepaal of gebruiker op OK-knop heeft geklikt
strDBpath = .SelectedItems.Item(1) 'sla de locatie van de DB op
End If
End With
Me.dbPath = strDBpath
Me.dbPath.Requery
If testPath = strDBpath Then
Me.btnDB.BackColor = RGB(169, 209, 142)
Else
Me.btnDB.BackColor = RGB(255, 0, 0)
End If
End Sub
Private Sub btnDRW_Click()
Set dlgKiezer = Application.FileDialog(msoFileDialogFolderPicker)
With dlgKiezer
.Title = "Waar staan de tekeningen?" 'kies de locatie waar de tekeningen staan
.InitialFileName = strDBpath 'openen in de map waar de DB staat
.AllowMultiSelect = False 'je kan maar één map kiezen
If .Show = -1 Then 'bepaal of gebruiker op OK-knop heeft geklikt
strDRWpath = .SelectedItems.Item(1) 'sla de locatie van de DB op
End If
End With
Me.drwPath = strDRWpath
Me.drwPath.Requery
End Sub
Private Sub btnGEN_Click()
Set dlgKiezer = Application.FileDialog(msoFileDialogFolderPicker)
With dlgKiezer
.Title = "Waar staan de algemene bestanden?" 'kies de locatie waar de algemene bestanden staan
.InitialFileName = strDBpath 'openen in de map waar de DB staat
.AllowMultiSelect = False 'je kan maar één map kiezen
If .Show = -1 Then 'bepaal of gebruiker op OK-knop heeft geklikt
strGENpath = .SelectedItems.Item(1) 'sla de locatie van de DB op
End If
End With
Me.genPath = strGENpath
Me.genPath.Requery
End Sub
Private Sub btnPIC_Click()
Set dlgKiezer = Application.FileDialog(msoFileDialogFolderPicker)
With dlgKiezer
.Title = "Waar staan de plaatjes?" 'kies de locatie waar de afbeelingen staan
.InitialFileName = strDBpath 'openen in de map waar de DB staat
.AllowMultiSelect = False 'je kan maar één map kiezen
If .Show = -1 Then 'bepaal of gebruiker op OK-knop heeft geklikt
strPICpath = .SelectedItems.Item(1) 'sla de locatie van de DB op
End If
End With
Me.picPath = strPICpath
Me.picPath.Requery
End Sub
Private Sub Form_Load()
testPath = CurDir()
If testPath <> Me!dbPath Then
Me.btnDB.BackColor = RGB(255, 0, 0)
Else
Me.btnDB.BackColor = RGB(189, 215, 238)
End If
End Sub
Bij het opstarten vanaf een andere computer run ik eerst apart dit menutje, zodat de padnamen zijn aangepast.
Maar op de een of andere manier gaat dat niet goed. Vandaag ontdekte ik het volgende in de tabel waarin de data wordt opgeslagen:
Hierin staat dus heel hard, bij beschrijving, de verwijzing naar de centrale DB vanaf één specifieke computer. en kennelijk helpt aanpassen van paden daar dus niets aan? Is hier een oplossing voor?
Ik dacht eerst dat ik in die regel een variabele zou kunnen opnemen die naar de juiste padnaam verwijst: dat is niet toegestaan
Moet ik alle query's ook centraal opslaan en alleen de formulieren en/of rapporten lokaal zetten?
ik hoor graag jullie advies!
Laatst bewerkt: