Quick Access question

Results 1 to 2 of 2

Thread: Quick Access question

  1. #1
    Join Date
    Dec 1969

    Default Quick Access question

    I have to whip up a quick access app.<BR>How do I find the path of my access application. In VB there is an APP object which has a Path method. Is there something like that in Access.<BR>Thanks

  2. #2
    David Moran Guest

    Default From Access Power Programming by F.Scott.Barker

    sub getPathname<BR> Set db = CurrentDb<BR> pathname = Left$(db.name, ap_LastInStr(db.name, "\"))<BR>end sub<BR><BR>Function ap_LastInStr(strSearched As String, strSought As String) As Integer<BR> Dim intCurrVal As Integer, intLastPosition As Integer<BR> intCurrVal = InStr(strSearched, strSought)<BR> Do Until intCurrVal = 0<BR> intLastPosition = intCurrVal<BR> intCurrVal = InStr(intLastPosition + 1, strSearched, strSought)<BR> Loop<BR> ap_LastInStr = intLastPosition<BR>End Function

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts