MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
'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
|How make one field or another required on a form||6||37|
|access query - filter field for particular number format||3||26|
|Null Recordset Value Generating VBA Run-time Error #3021 - No Current Record||23||24|
|chrome says SHA256 algorithm is weak even after i configure my website to use SHA256 certificate||5||31|