Beste,
De vraag die ik ga stellen is niet echt een probleem, maar meer een uitbreiding/verbetering.
Met onderstaande code maken we voor projecten een stukje standaard mappenstructuur aan op de server.
Daarnaast hebben we een Outlook account/gegevensbestand waar iedereen bij kan.
Kunnen we via een andere knop ook een map in Outlook aanmaken met de gegevens "& ID_Project & " " & Achternaam & " " & ProjectOmschrijving & " " & PlaatsWerk" uit Access?
Reacties zijn welkom.
De vraag die ik ga stellen is niet echt een probleem, maar meer een uitbreiding/verbetering.
Met onderstaande code maken we voor projecten een stukje standaard mappenstructuur aan op de server.
Code:
Private Sub Knop200_Click()
On Error GoTo Err_Knop200_Click
Me.Refresh
MkDir "Y:\20 Projecten\01 Calculatie\" & ID_Project & " " & Achternaam & " " & ProjectOmschrijving & " " & PlaatsWerk
Dim strPath As String
strPath = "Y:\20 Projecten\01 Calculatie\" & ID_Project & " " & Achternaam & " " & ProjectOmschrijving & " " & PlaatsWerk & "\"
MkDir strPath & "\01 Calculatie"
MkDir strPath & "\02 Gegevens opdrachtgever"
MkDir strPath & "\03 Constructie"
MkDir strPath & "\04 Gegevens derden"
MkDir strPath & "\05 Verstuurd tekenwerk"
MkDir strPath & "\06 Bestellingen"
MkDir strPath & "\07 Werkplaats"
MkDir strPath & "\08 Factureren"
MkDir strPath & "\09 IFC"
MkDir strPath & "\10 Planning"
MkDir strPath & "\20 Onderleggers"
MkDir strPath & "\30 Fotos"
Exit_Knop200_Click:
Exit Sub
Err_Knop200_Click:
MsgBox Err.Description
Resume Exit_Knop200_Click
End Sub
Daarnaast hebben we een Outlook account/gegevensbestand waar iedereen bij kan.
Kunnen we via een andere knop ook een map in Outlook aanmaken met de gegevens "& ID_Project & " " & Achternaam & " " & ProjectOmschrijving & " " & PlaatsWerk" uit Access?
Reacties zijn welkom.