Bijlage opzoeken en link plakken in record

[klimsmurf]

Ik heb een form aangemaakt waar ik de belangrijkste gegevens kan invoegen van een offerte, ook had ik graag een hyperlink (bijlage) toegevoegd van de desbetrreffende offerte (pdf, word, excell document). Hoe kan ik zo een knop maken om het bestand op te zoeken en de url dan in het desbetreffende vakje te plakken?

Wie kan me helpen?

Groetjes,

David

 

[Rommyke]

Hoi David,

Met onderstaande code kun je browsen naar je file .

Option Explicit
Dim FileNameSource As String

Sub getFileName()
    ' Geeft het Office-dialoogvenster Bestand openen weer van
    ' waaruit een bestand kan worden gekozen. 
        
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Select hyperlink offer "
        .Filters.Clear
        .Filters.Add "Alle bestanden", "*.*"
        .Filters.Add "Word", "*.doc"
        .Filters.Add "Pdf Reader", "*.pdf"
        .Filters.Add "Excel", "*.xls"
        .Filters.Add "JPEGs", "*.jpg"
        .FilterIndex = 2
        .AllowMultiSelect = False
        .InitialFileName = "c:\MyDocuments"
        '.InitialFileName = CurrentProject.path
        result = .Show
        If (result <> 0) Then
            FileNameSource = Trim(.SelectedItems.Item(1))
        End If
        
    End With
End Sub

En de fileNAmeSource kan je dan via een update query wegschrijven naar je tabel


Groetjes
Romain

 

[klimsmurf]

het wil niet werken

Hoi,

Ik heb de code in de VBeditor geplakt. zoals je hieronder kan zien. De declaratie heb ik helemaal bovenaan gezet

Option Explicit
Dim FileNameSource As String

Private Sub Bijlage_opzoeken_Click()
' Geeft het Office-dialoogvenster Bestand openen weer van
' waaruit een bestand kan worden gekozen.

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select hyperlink offer"
.Filters.Clear
.Filters.Add "Alle bestanden", "*.*"
.Filters.Add "Word", "*.doc"
.Filters.Add "Pdf Reader", "*.pdf"
.Filters.Add "Excel", "*.xls"
.Filters.Add "JPEGs", "*.jpg"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = "c:\MyDocuments"
'.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
FileNameSource = Trim(.SelectedItems.Item(1))
End If

End With
End Sub

Als ik ga testen krijg ik steeds de fout "variable not defined" en wordt het stukje "(msoFileDialogFilePicker)" gemarkeerd.

Wat kan het probleem zijn?? moet er nog ergens een of andere variabele gedeclareerd worden ofzo???

Alvast bedankt,

David

 

[Rommyke]

Hoi David,

Als je uw vba opent ,

Kun je in Tools de references selecteren.

Zie bijlage welke geselecteerd dienen te worden .

 

[klimsmurf]

Hey Romain,

Dit begint al aardig te lukken. toch nog twee vraagjes.

result = .Show

Moet die result ook niet gedeclareerd worden als een bepaald type?? String of iets dergelijks??

Als ik nu de Macro laat lopen krijg ik al het zoekvenster met al de mapjes, maar er worden in de mapjes geen documenten weergegeven. en ik ben er 100%zeker van dat er word, pdf en excel bestandjes in de mappen zitten.

Al erg bedankt voor de moeite en het geduld.

Groetjes,

David

 

[Rommyke]

Hoi David ,

Je heb inderdaad gelijk

Dim result as Integer

Je moet eens kijken of het file type wel in de lijst zit wat jij probeerd te openen.
En tevens ook selecteren dan .of FilterIndex aanpassen naar 1 zodat je alle bestanden in map krijgt te zien

.Filters.Add "Alle bestanden", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 2

Anders even een voorbeeldje uploaden


Groet
Romain

 

[klimsmurf]

Help het lukkt niet

Heb ondertussen alles tien keer nagekeken en ik krijg geen enkele excel file of pdf file te zien in het zoekvenstertje.
hier is de code van de betreffende form het staat helemaal onderaan.

Option Compare Database

Private Sub Command13_Click()
On Error GoTo Err_Command13_Click

Dim stDocName As String

stDocName = "setdate"
DoCmd.RunMacro stDocName

Exit_Command13_Click:
Exit Sub

Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click

End Sub
Private Sub Command14_Click()
On Error GoTo Err_Command14_Click

Dim stDocName As String

stDocName = "Save&close"
DoCmd.RunMacro stDocName

Exit_Command14_Click:
Exit Sub

Err_Command14_Click:
MsgBox Err.Description
Resume Exit_Command14_Click

End Sub
Private Sub Command36_Click()
On Error GoTo Err_Command36_Click


DoCmd.GoToRecord , , acNewRec

Exit_Command36_Click:
Exit Sub

Err_Command36_Click:
MsgBox Err.Description
Resume Exit_Command36_Click

End Sub
Private Sub Command37_Click()
On Error GoTo Err_Command37_Click


DoCmd.Close

Exit_Command37_Click:
Exit Sub

Err_Command37_Click:
MsgBox Err.Description
Resume Exit_Command37_Click

End Sub
Private Sub Command39_Click()
On Error GoTo Err_Command39_Click


DoCmd.GoToRecord , , acNewRec

Exit_Command39_Click:
Exit Sub

Err_Command39_Click:
MsgBox Err.Description
Resume Exit_Command39_Click

End Sub
Private Sub Command40_Click()
On Error GoTo Err_Command40_Click

Dim stDocName As String

stDocName = "Open_Supplier_add"
DoCmd.RunMacro stDocName

Exit_Command40_Click:
Exit Sub

Err_Command40_Click:
MsgBox Err.Description
Resume Exit_Command40_Click

End Sub
Private Sub Command44_Click()
On Error GoTo Err_Command44_Click

Dim stAppName As String

stAppName = "C:\WINDOWS\explorer.exe"
Call Shell(stAppName, 1)

Exit_Command44_Click:
Exit Sub

Err_Command44_Click:
MsgBox Err.Description
Resume Exit_Command44_Click

End Sub

Option Explicit
Dim FileNameSource As String
Dim result As Integer

Sub Bijlage_opzoeken_Click()

' Geeft het Office-dialoogvenster Bestand openen weer van
' waaruit een bestand kan worden gekozen.

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Offerte zoeken"
.Filters.Clear
.Filters.Add "Alle bestanden", "*.*"
.Filters.Add "Word", "*.doc"
.Filters.Add "Pdf Reader", "*.pdf"
.Filters.Add "Excel", "*.xls"
.FilterIndex = 1
.AllowMultiSelect = False
.InitialFileName = "c:\MyDocuments"
'.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
FileNameSource = Trim(.SelectedItems.Item(1))
End If
End With


End Sub

Groeten,

David

 

[Dolfke]

David ,

Is het niet mogelijk om een bijlage , gewinzipt te uploaden ?


Wil er dan wel eens naar kijken waar het probleem zicht bevindt.


Groetjes