Errormelding na klikken 'Display Database Window'

[ray1979]

Hallo allemaal,

onder het mom van: 'beter goed gekopieerd dan slecht verzonnen' heb ik vanuit de Northwond Sample Database het switchboard en start up scherm gekopieerd naar mijn eigen database en vervolgens aangepast.

Dat gaat allemaal super, behalve dat als ik op 'Display Database Window' klik ik de volgende melding krijg: Microsoft Access can not find the table 'Categories' you referenced in the object name argument

Ik kan het niet vinden, dus weet niet hoe ik dit moet verwijderen en waar.

Kan iemand mij hier verder mee helpen???

Alvast heel erg bedankt!

Groeten,

Ray

 

[Bakk4318]

De code onder de knop "Display Database Window" ziet er als onderstaand uit:

Sub DisplayDatabaseWindow_Click()
' This code created in part by Command Button Wizard.
On Error GoTo Err_DisplayDatabaseWindow_Click

    Dim strDocName As String
        
    strDocName = "Categories"

    ' Close Main Switchboard form.
    DoCmd.Close
    
    ' Give focus to Database window; select Categories table (first
    ' form in list).
    DoCmd.SelectObject acTable, strDocName, True

Exit_DisplayDatabaseWindow_Click:
    Exit Sub

Err_DisplayDatabaseWindow_Click:
    MsgBox Err.Description
    Resume Exit_DisplayDatabaseWindow_Click
    
End Sub

Met het onderstaande deel van de code, wordt gezocht naar de tabel "Categories". Deze tabel is in jouw database niet aanwezig. Wat onderstaande code doet,

strDocName = "Categories"

DoCmd.SelectObject acTable, strDocName

is zoeken naar de tabelgedeelte van je databasevenster met de focus op de tabel "Categories".

Wijzig "Categories" in een naam van een tabel van je eigen database en het probleem zou opgelost moeten zijn.

mvg
Charles

 

[ray1979]

Charles,

Wederom hartelijk dank voor je hulp. Het werkt inderdaad. Heb me wezenloos gezocht en kon het maar niet vinden.....

You are the greatest Charles! :thumb:

Groeten,

Ray

 

[Bakk4318]

Er lopen er hier rond die nog veel groter zijn.

Maar toch graag gedaan

mcg
Charles