Re: Kens API and diff applications

Yes, I get so wound up and anxious that sometimes I dont read the entire
code ... I just copy it and go.

Thank you for the help.

"pietlinden@xxxxxxxxxxx" wrote:

Did you miss the sample?

Function TestIt()
Dim strFilter As String
Dim lngFlags As Long

'--EXAMPLES OF ADDING MULTIPLE FILTERS TO THE LIST....
strFilter = ahtAddFilterItem(strFilter, "Access Files (*.mda,
*.mdb)", _
"*.MDA;*.MDB")
strFilter = ahtAddFilterItem(strFilter, "dBASE Files (*.dbf)",
"*.DBF")
strFilter = ahtAddFilterItem(strFilter, "Text Files (*.txt)",
"*.TXT")
strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)", "*.*")

' Since you passed in a variable for lngFlags,
' the function places the output flags value in the variable.
Debug.Print Hex(lngFlags)
End Function


.

Relevant Pages

  • RE: Runtime error 31519
    ... The code I have follows (I used the code from his TestIt function and added ... Dim strFilter As String ... Dim lngFlags As Long ... in the file specs setup that I may have missed? ...
    (microsoft.public.access.externaldata)
  • Runtime error 31519
    ... The code I have follows (I used the code from his TestIt function and added ... Dim strFilter As String ... Dim lngFlags As Long ... in the file specs setup that I may have missed? ...
    (microsoft.public.access.externaldata)
  • Re: Importing Text File - File/Path Name
    ... Dim strFilter As String ... Dim lngFlags As Long ... >Doug Steele, Microsoft Access MVP ... >> importing a .csv file. ...
    (microsoft.public.access.externaldata)
  • RE: Open dialog box.
    ... Dim strFilter As String ... Dim lngFlags As Long ... If Not Docpath = "" Then ... In y case DocPath will return the filePath and FileName ...
    (microsoft.public.access.formscoding)
  • Re: file browse
    ... The TestIt function wasn't designed to return the selected file name. ... Function TestItAs String ... Dim strFilter As String ...
    (microsoft.public.access.forms)
Loading