Foutopsporingsprogramma

[MikezZ]

ok.. nu nog een vraag, ik moet een foutopsporingsprogramma krijgen met VBA, kolommen moeten specificaties meekrijgen en foutmeldingen naar het beeld worden geschreven wanneer een kolom niet aan de eisen voldoet. Ik heb er een beetje hulp bij nodig.. iemand?

 

[Guus2005]

Gebruik ADOX.Catalog om gegevens over je database tabellen kollommen e.t.c. op te vragen en vergelijk die met wat je verwacht. Aan de hand daarvan schrijf je foutmeldingen naar de gebruiker.

Weest gegroet,
Guus

 

[MikezZ]

ik probeer in access eerst iets om een excel bestand te importeren in access. Ik probeer de volgende code:

Option Compare Database
Option Explicit

Private Sub cmdSelecteerAdresBestand_Click()
On Error GoTo Err_cmdSelecteerAdresBestand_Click

Dim arrXlsWsNames() As String
Dim i As Integer
Dim strXlsWsNames As String

GetFileInformation (Find_File(glInitDir))
If glFileName <> "" Then
With txtSelecteerAdresBestand
.SetFocus
.Text = glPath & "\" & glFileName
'Plaats de WorksheetNames van strAdresBestand in ListBox lstXlsWsNamesAdres
strXlsWsNames = ""
If GeefXlsWorksheetNames(.Text, arrXlsWsNames) Then
For i = LBound(arrXlsWsNames) To UBound(arrXlsWsNames)
strXlsWsNames = strXlsWsNames & arrXlsWsNames(i) & ";"
Next i
End If
lstXlsWsNamesAdres.RowSource = strXlsWsNames
'Selecteer eerste Item
lstXlsWsNamesAdres.Selected(0) = True
End With
cmdSelecteerAdresBestand.SetFocus
End If

Exit_cmdSelecteerAdresBestand_Click:
Exit Sub
Err_cmdSelecteerAdresBestand_Click:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdSelecteerAdresBestand_Click of VBA Document Form_frmProjectVoorbereiding"
Resume Exit_cmdSelecteerAdresBestand_Click
End Sub

ik krijg echter een compileer error: Variable not defined

dat krijg ik bij dit stukje: glInitDir

iemand een idee?

 

[Guus2005]

Ik weet eigenlijk niet waar ikmoet beginnen. Je foutmelding is de eerste uit een reeks van foutmeldingen. De genoemde variabele moet ge-dimensioneerd worden en gevuld.

Als ik wat meer tijd heb zal ik je verder helpen. In de tussentijd kan je Option Explicit uit je code halen om te kijken wat het doet.

Als het werkt kan je naderhand Option Explicit weer terug zetten en de variabelen declareren.

enjoy!
Weest gegroet,
Guus