[Access] "Lokacija" v accessu

Option Compare Database

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Function Odpri() As String

On Local Error Resume Next

Dim D As CommonDialog
Dim Data As String
Dim Ret As String * 255
Dim Ans As Long

Const strNastavitve As String = "Nastavitve"
Const strFile As String = "Datoteka"
Const strIni As String = "Nastavitve.ini"

Set D = New CommonDialog

Ans = GetPrivateProfileString(strNastavitve, strFile, "", Ret, 255, strIni)

If Ans (različno) 0 Then Data = Ret: GoTo Jump

D.CancelError = True
D.DefaultExt = "*.xls"
D.ShowOpen

'Cancel
If Err.Number = 32755 Then Exit Function

Jump:
WritePrivateProfileString strNastavitve, strFile, Data, strIni
Odpri = Data

Set D = Nothing
End Function