Met behulp van een deel van de velden van de databeas wordt een path gemaakt om daarmee een excelbestand te openen mbv een knop.
Op dit moment gebruik ik onderstaand code
Het gaat mis als een client geen tussenvoegsel heeft., dan wordt het path niet gevonden (een spatie te veel). Weet iemand op welke wijze ik dit kan aanpassen. Ik vermoed dat dit met de functie Trim te maken heeft maar weet niet hoe ik die moet opnemen in onderstaande code.
Private Sub Knop127_Click()
Dim xl As Object
Dim Excel As Object
Dim FullPath As String
FullPath = "U:\Temp\Rapportagetest\" & Me.Achternaam & "-" & Me.Voornaam & " " & Me.Tussen & "\signaleringsplan.xlsx"
Set xl = CreateObject("Excel.Application")
xl.Visible = True
On Error Resume Next
xl.UserControl = True
xl.Workbooks.Open (FullPath)
End Sub
Op dit moment gebruik ik onderstaand code
Het gaat mis als een client geen tussenvoegsel heeft., dan wordt het path niet gevonden (een spatie te veel). Weet iemand op welke wijze ik dit kan aanpassen. Ik vermoed dat dit met de functie Trim te maken heeft maar weet niet hoe ik die moet opnemen in onderstaande code.
Private Sub Knop127_Click()
Dim xl As Object
Dim Excel As Object
Dim FullPath As String
FullPath = "U:\Temp\Rapportagetest\" & Me.Achternaam & "-" & Me.Voornaam & " " & Me.Tussen & "\signaleringsplan.xlsx"
Set xl = CreateObject("Excel.Application")
xl.Visible = True
On Error Resume Next
xl.UserControl = True
xl.Workbooks.Open (FullPath)
End Sub