Ik hou je niet tegen, misschien omdat je beseft dat je weinig of geen kaas hebt gegeten van Access.Sorry, maar ik stop er mee.
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.
Ik hou je niet tegen, misschien omdat je beseft dat je weinig of geen kaas hebt gegeten van Access.Sorry, maar ik stop er mee.
Private Sub Cmb_00_Click()
Dim img_of As Office.FileDialog
Dim img_var As Variant
Set img_of = Application.FileDialog(msoFileDialogFilePicker)
img_of.Title = "Kies een foto!"
img_of.Filters.Clear
img_of.InitialFileName = CurrentProject.Path & "\foto's"
img_of.Filters.Add "foto's", "*.jpg"
If img_of.Show = True Then
For Each img_var In img_of.SelectedItems
foto.Picture = img_var
Naam = Split(img_var, "\")
Me.fotovar.Value = Naam(UBound(Naam))
Next
Else
foto.Picture = (nopic)
MsgBox "Kies een foto", vbInformation, "Geen foto gekozen"
End If
End Sub
Met name deze regel:
[CODE]
img_of.InitialFileName = CurrentProject.Path & "\foto's"
Lijkt mij ontzettend leuk om eens een voorbeeld te zien van hoe een professionele databaseontwikkelaar dit aanpakt.Omdat het zo weinig werk is, wil ik dat ook wel voor je maken.
Die zit helaas met vervelende familie-omstandigheden. Dus ik probeer (al was het maar om even afleiding te hebben) wel mee te kijken, maar op dit moment kan ik niks toezeggen.Omdat onze professionele databaseontwikkelaar heel druk is
No problem
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.