lave knap i form der laver en folder med navnet på auto id'en

Dim VARa As String
VARa = Me.felt1
MkDir "C:\kollisions billeder\" & VARa
MsgBox "Mappen" & vbNewLine & vbNewLine & VARa & vbNewLine & vbNewLine & "er nu oprettet."

For at åbne stidinderen kan dy indsætte denne i et modul:

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Function LaunchCD(strform As Form) As String
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = strform.Hwnd
sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _
"bmp Files (*.BMP)" & Chr(0) & "*.BMP" & Chr(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(257, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = "c:\company shared folders\relief"
OpenFile.lpstrTitle = "Vælg en fil og tryk på Åbn."
OpenFile.flags = 0
lReturn = GetOpenFileName(OpenFile)
If lReturn = 0 Then
MsgBox "Manglende fil!", vbInformation, _
"Du har ikke valgt en fil fra Stifinderen."
Else
LaunchCD = Trim(OpenFile.lpstrFile)
        End If
End Function

Kald funktionen med denne:

Me.Kommandoknap28.HyperlinkAddress = LaunchCD(Me)

del et virker supert.

Del to virker ikke som jeg gerne ville..

knappen to skulle åbne mappen som kanp et havde lavet.

Dim vara As String
Me.Kommandoknap9.HyperlinkAddress = "C:\kollisions billeder\" & vara

tak for hjælpen mugs.

jeg satte

VARa = Me.felt1

ind i koden så kørte det

Ja - Selvfølgelig skal variablen have en værdi fra Felt1. Tak for point og fortsat god weekend.
Her går det tilbage til terrassen i 25 grader :o)