Hallo Math,

Ik baseer me op de weinige kennis die ik heb van VBA in Excel, en hoop dat dit ook van toepassing is op Access.
Anders, sorry....

       
       

Code: [Selecteer]

Dim opslag As String
        opslag = "d:\winkel bestanden\fakturen\testmap\pdf\" & rs(0)
             If Dir(opslag) = "" Then
                 MkDir CurrentProject.Path & "\" & rs(0) 'Bij foutcode 75 bestaat de directory
              Else
             End If

Eerst zeg je: "Als....   "d:\winkel bestanden\fakturen\testmap\pdf\" & rs(0) nog niet bestaat
maak dan de Directory    CurrentProject.Path & "\" & rs(0)   

Waarom wil je in CurrentProject.Path & "\" & rs(0)   opslaan?
Waarom niet in "d:\winkel bestanden\fakturen\testmap\pdf\" & rs(0), want anders heeft de eerdere controle of
"d:\winkel bestanden\fakturen\testmap\pdf\" & rs(0) al bestaat of niet, geen zin  .

Probeer eens met de code:

  Dim opslag As String
        opslag = "d:\winkel bestanden\fakturen\testmap\pdf\" & rs(0)
                 If Dir(opslag) = "" Then
            MkDir  "d:\winkel bestanden\fakturen\testmap\pdf\" & rs(0)  'en kijk of je het pad kan vervangen door opslag of (opslag)
                 Else
                       .............................
                 End If
Of zie ik het mis?

SoftAid              

     

Hallo Math,

ik vraag mogelijk weer hetzelfde, maar heb je in Verkenner op voorhand de map D:\winkelbestanden\ aangemaakt ?

Verder kan ik je code niet testen, omdat, zoals ik al zei, ik geen enkel benul heb van Access, enkel Excel.

SoftAid              

Hallo Dizzl en SofAid,

heb de oplossing gevonden zie onderstaande instructie

Dim PATHKLANT As String
        Dim PATHTOTAAL As String
       
        PATHKLANT = "D:\WINKEL BESTANDEN\FAKTUREN\TESTMAP\PDF\" & rs(0) & "\"
        PATHTOTAAL = "D:\WINKEL BESTANDEN\FAKTUREN\TESTMAP\PDF\TOTAAL\"
               
        Set filesys = CreateObject("Scripting.FileSystemObject")
             If Not filesys.FolderExists(PATHKLANT) Then
             MkDir PATHKLANT
             Else
             End If

Gebruik per klant 2 mapjes. Een mapje per klant hier komt de faktuur in van de desbetreffende klant  en een TOTAAL map waar alle PDFbestandjes in komen. Als ik per email de klanten de rekening wil toesturen hoef ik maar in TOTAAL te kijken, anders moet ik iedere keer wisselen per klant.

Weer een vraag:
Het is ook mogelijk om het PDF bestandje te koppelen aan de e-mail, zodat dit automatisch bij de mail wordt bijgevoegd (attachment).


Vooralsnog hartelijk dank voor jullie hulp. Vele handen maken licht werk.

Gr. Math