Bij het opnieuw opstalleren van Access werkt mijn database opeens niet meer. Hij herkent oa. de library "Scripting" niet meer. Ik heb alle references al gecheckt, maar er staat nergens "missing" voor ofzo. De libraries staan hetzelfde als bij een huisgenoot (waar de MDB wel werkt)
Het lijkt me goed om het stukje code waar het om gaat hier eens neer te zetten. Het ziet eruit als volgt:
Bij het runnen loopt hij hier vast op de regel met de streepjes erachter. De exacte foutmelding luidt: "Object variable or With block variable not set".
Als ik in de code Scripting.FileSystemObject intyp, lijkt hij dit ook NIET te herkennen. Ik weet dus niet of de foutmelding zoveel betekent als: "fs zegt me niets"......wie redt mij uit de brand?
Zie ook:
MS Access libraries
Maar daar zijn geen reacties...
Het lijkt me goed om het stukje code waar het om gaat hier eens neer te zetten. Het ziet eruit als volgt:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Private Sub cmd_browse_Click()
Dim fileDialog As New clsCommonDialog
fileDialog.Flags = cdlOFNHideReadOnly Or cdlOFNFileMustExist
fileDialog.Filter = "Database Files (MDB)|*.mdb"
fileDialog.FilterIndex = 1
If IsNull(text_database_path.Value) = True Then text_database_path.Value = ""
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(text_database_path.Value) = True Then ----------------------------------------------------
fileDialog.FileName = text_database_path.Value
End If
fileDialog.ShowOpen
If IsEmpty(fileDialog.FileName) = False Then
text_database_path.Value = fileDialog.FileName
End If
End Sub |
Bij het runnen loopt hij hier vast op de regel met de streepjes erachter. De exacte foutmelding luidt: "Object variable or With block variable not set".
Als ik in de code Scripting.FileSystemObject intyp, lijkt hij dit ook NIET te herkennen. Ik weet dus niet of de foutmelding zoveel betekent als: "fs zegt me niets"......wie redt mij uit de brand?
Zie ook:
MS Access libraries
Maar daar zijn geen reacties...
Ik zag laatst een zwerver uit een vuilnisbak eten. Ik loop naar hem toe en zeg: "Doe je dat thuis ook??" - Theo Maassen