"Dé grootste en gratis computerhelpdesk van Nederland"
Memoveld en openen van een document
- Onderwerp starter JEPEDEWE
- Startdatum
- Status
OctaFish
Verenigingslid
- Lid geworden
- 6 feb 2009
- Berichten
- 42.023
Ik zou daar geen memoveld voor gebruiken. maar een gewoon tekstveld. In beginsel zouden 255 tekens ruim voldoende moeten zijn voor een padverwijzing. Met een gewoon tekstveld weet ik ook 100% zeker dat de volgende code werkt, met een memoveld heb ik dat nog nooit uitgetest. Dus op eigen risico 
.
Deze code maakt gebruik van een functie BestandZoeken om middels een FileDialog een document in te lezen en de bestandsnaam vervolgens in het tekstvak te zetten als dat leeg is. Dat deel mag uiteraard weg als je het niet nodig hebt.
.
Code:
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- Status
