Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub kopie_id_DblClick(Cancel As Integer)
Dim sFile As String, sDoc As Variant
On Error GoTo Hell
If Me.kopie_id & "" = "" Then
sFile = BestandOpzoeken
If sFile = "Annuleren" Then Exit Sub
If Not Dir(sFile) = "" Then
If InStr(1, sFile, "\") = 0 Then Exit Sub
sDoc = Split(sFile, "\")
Me.kopie_id = sDoc(UBound(sDoc))
On Error Resume Next
FileCopy sFile, TempVars("varPersoonPad").Value & "\" & sDoc(UBound(sDoc))
Me.Repaint
End If
Else
Application.FollowHyperlink Me.DossierPad & Me.kopie_id
End If
Exit Sub
Hell:
If MsgBox("Het bestand '" & LCase(Me.kopie_id) & "' ontbreekt in de dossiermap; wil je het verwijderen uit de lijst?", vbYesNo) = vbYes Then
Me.kopie_id = Null
End If
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.