twister007
Gebruiker
- Lid geworden
- 14 jun 2006
- Berichten
- 9
Hallo,
Op een access formulier heb ik een actiebutton gemaakt waarmee een pdf gezocht en geopend moet worden. De pdf's staan in subdirs onder de map F:\data\documentatie\tekeningen\. De naam van de pdf is gelijk aan het veld art_Art_ID. Ik krijg het voor elkaar om pdf's te openen die in de root van de map tekeningen staan, maar de pdf die in subdirs staan krijg ik niet geopend. Hieronder heb ik het scriptje geplaatst waar ik meer aan het rotzooien ben. Ik denk dat het probleem hem vooral zit in het gedeelte na "If .Execute > 0 Then" op die plek zou ik volgens mij op moeten geven dat hij de gevonden pdf moet openen. Ik ben niet zo thuis in vb dus ik zou niet weten met welke functie dat kan. Ik hoop dat iemand mij hierop een antwoord kan geven.
Alvast bedankt!
Private Sub pdf_Click()
Dim stAppName$, stPathName$
Start = Me!art_Art_ID
stAppName = "F:\apps\Adobe\AcroRd32.exe "
stPathName = "F:\data\documentatie\tekeningen\"
stFileName = Start & "*" & ".pdf"
Set fs = Application.FileSearch
With fs
.LookIn = stPathName
.FileName = stFileName
.SearchSubFolders = True
If .Execute > 0 Then
????????????????????
Exit Sub
Else
MsgBox "There were no files found."
End If
End With
End Sub
Op een access formulier heb ik een actiebutton gemaakt waarmee een pdf gezocht en geopend moet worden. De pdf's staan in subdirs onder de map F:\data\documentatie\tekeningen\. De naam van de pdf is gelijk aan het veld art_Art_ID. Ik krijg het voor elkaar om pdf's te openen die in de root van de map tekeningen staan, maar de pdf die in subdirs staan krijg ik niet geopend. Hieronder heb ik het scriptje geplaatst waar ik meer aan het rotzooien ben. Ik denk dat het probleem hem vooral zit in het gedeelte na "If .Execute > 0 Then" op die plek zou ik volgens mij op moeten geven dat hij de gevonden pdf moet openen. Ik ben niet zo thuis in vb dus ik zou niet weten met welke functie dat kan. Ik hoop dat iemand mij hierop een antwoord kan geven.
Alvast bedankt!
Private Sub pdf_Click()
Dim stAppName$, stPathName$
Start = Me!art_Art_ID
stAppName = "F:\apps\Adobe\AcroRd32.exe "
stPathName = "F:\data\documentatie\tekeningen\"
stFileName = Start & "*" & ".pdf"
Set fs = Application.FileSearch
With fs
.LookIn = stPathName
.FileName = stFileName
.SearchSubFolders = True
If .Execute > 0 Then
????????????????????
Exit Sub
Else
MsgBox "There were no files found."
End If
End With
End Sub
