Access verwijzingen naar meerdere Databases

[bassierocks]

Hallo,

Ik ben bezig met een acces database waarin projectgegevens worden opgeslagen en gerapporteerd. Hierin heb ik een formulier gemaakt waarmee rapporten kunnen worden bekeken, geprint, gemaild en worden opgeslagen. Om deze rapporten snel op te slaan wordt er gevraagd of deze in de map rapporten in mijn documenten mag worden opgeslagen. De code controleerd of deze map bestaat, en zoniet wordt deze map aangemaakt. Zie onderstaande code:

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim sDir As String
    sDir = "H:\Mijn documenten\Rapporten"
        
    If objFSO.FolderExists(sDir) = False Then
        MkDir (sDir)
    End If

Deze code werkt perfect totdat... ik de manier van rapporten maken aanpaste. Er wordt nu eerst een query gemaakt met de volgende gedeeltes code:

Dim qdfProjectenRapporten As QueryDef
Set qdfProjectenRapporten = CurrentDb.QueryDefs("ProjectenRapportenQuery")
qdfProjectenRapporten.SQL = strSQL

strSQL is de Query die in de code wordt aangemaakt. Standaart werkte deze code niet, maar door in VBA bij Extra -> verwijzingen DAO aan te wijzen werkte de code. Alleen werkt het eerste stuk code niet meer. Nou heb ik gezocht en gevonden, dat er in het eerste stuk code aangegeven moet worden dat hij van de ADO database gebruik moet maken, maar ik kan niet vinden hoe dit "geschreven" moet worden. Kunnen jullie hier even naar kijken?

Alvast bedankt!

 

[bassierocks]

Extra informatie

Ik kwam er net achter dat bepaalde commando's ook niet meer werken. In meerdere forms is er een "bij wijzigen" code achter een besturingselement gehangen. Wanneer er in een keuzelijst een waarde is gekozen, moet hij controleren of er niet een speciale waarde zoals Naam toevoegen is ingevoerd. Hier de code:

Private Sub Projectleider_Change()

    If Me.Projectleider.Text = "Naam toevoegen . . . . ." Then
    Me.Projectleider.Text = ""
    DoCmd.OpenForm "NaamToevoegenProjectleider"
    Else
    End If
End Sub

De foutmelding heb ik als jpeg bijgevoegd.

 

[ReneDirks]

Zet ook eens een verwijzing naar het Microsoft Scripting Object aan en pas eventueel de code aan:

Set objFSO = New FileSystemObject
    Dim sDir As String
    sDir = "H:\Mijn documenten\Rapporten"
        
    If objFSO.FolderExists(sDir) = False Then
        MkDir (sDir)
    End If

Als er een verwijzing ontbreekt of fout is krijg je veelal fouten zoals je getoond hebt.

 

[bassierocks]

Helaas verhielp de link naar de scripting database geen van alle problemen. Ik ga nu terug naar een oudere backup waar ik nog niet aan de verwijzingen heb gezeten. Is er misschien een mogelijkheid om op een andere manier de query aan te maken? Of misschien door een voorvoegsel zodat acces die verwijzing niet voor het gehele database gebruikt?

 

[Bartuls]

Je kunt ADO en DAO gewoon door elkaar gebruiken in access.
Zie voor meer uitleg over ADO en DAO bijvoorbeeld http://www.pcmenu.info/pc_help/access/modules_vba.htm#Tabellen maken in VBA programmacode

ADO en DAO gebruiken soms de zelfde termen, dan zul je moeten qualificeren, bijvoorbeeld ADODB.recordset of DAO.OpenDatabase.
Door te qualificeren wat voor type database toegang je gebruikt kun je de conflicten die jij beschrijft oplossen.