Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
'the open filename api Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As gFILE) As Long ' the gFILE type needed by the open filename api Type gFILE 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 Public Function FileToOpen(Optional StartLookIn) As String 'Purpose: Calls the open file api to let the user select the file to open 'returns: string value which contains the path to the file selected. "" = no file seleted Dim ofn As gFILE Dim path As String Dim filename As String Dim a As String StartOver: ofn.lStructSize = Len(ofn) ofn.lpstrFilter = "Text Files (*.csv)" _ + Chr$(0) + "*.csv" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0) ofn.lpstrFile = Space$(254) ofn.nMaxFile = 255 ofn.lpstrFileTitle = Space$(254) ofn.nMaxFileTitle = 255 If Not IsMissing(StartLookIn) Then ofn.lpstrInitialDir = StartLookIn Else ofn.lpstrInitialDir = "c:\some default directory" End If ofn.lpstrTitle = "Please find and select the document to open" ofn.flags = 0 a = GetOpenFileName(ofn) If (a) Then path = Trim(ofn.lpstrFile) filename = Trim(ofn.lpstrFileTitle) If Dir(path) <> "" Then FileToOpen = -1 FileToOpen = Trim(ofn.lpstrFile) Else FileToOpen = "" path = "" filename = "" End If FileToOpen = path End Function
|Populating popup form from callling form without referencing form name||4||24|
|How can I Flash a mandatory field in Access Form?||13||45|
|How to Comment Out Lines of Code in a Pass Through Query In MS Access 2016||19||49|
|Access VBA, adding Progress Bar in code to allow execution.||7||27|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!