Public Function dosyaac1(kt, frm As Form)
Dim strPath    As String
Dim strfullpath As String
Dim frmad      As String
frmad = frm.Name    'bunu ekledim trz
Dim OFN        As OPENFILENAME
 
    If OpenDialog(OFN) Then
        strPath = OFN.lpstrFile
    Else
        strPath = "Dosya seçilmedi"
    End If
 
    If Not strPath = "Dosya seçilmedi" Then
        'alttaki 2 satırı ekledim.. trz..
        DoCmd.OpenForm frmad, acDesign
        Forms(frmad).Controls(kt).HyperlinkAddress = strPath
 
        strfullpath = strPath
 
        Do While Right(strPath, 1) <> "\"
            strPath = Left(strPath, Len(strPath) - 1)
        Loop
 
        strPath = Mid(strfullpath, Len(strPath) + 1)
 
        Do While Right(strPath, 1) <> "."
            strPath = Left(strPath, Len(strPath) - 1)
        Loop
        MsgBox kt
        strPath = Left(strPath, Len(strPath) - 1)
        'alttaki 3 satırı ekledim.. trz..
        Forms(frmad).Controls(kt).Caption = strPath
        DoCmd.Close acForm, frmad, acSaveYes
        DoCmd.OpenForm frmad
        '  DoCmd.RunCommand (acCmdEditHyperlink)
    Else
        MsgBox "Hiçbir dosya seçilmedi. Değişiklik yapılmayacak", _
        vbInformation, "BİLGİLENDİRME"
 
    End If
End Function

Call dosyaac1("Komut614", Me)