InSrRev( ) problem

[Alain.]

Dear all,

Acess 2000. Here is may problem : i want to extract the path of
my DB without thr name of the DB file, something like
D:\MyFolder\ I use this code but the Instrrev line is not
accepted : error (5) and (I try to translate) : incorect argument
or or procedure call. What is wrong ? (References ?)

Private Sub Form_Open(Cance l As Integer)
Dim Bigpath As String
Dim SmallPath As String
Dim Slashloc As Integer

Bigpath = CurrentProject. FullName ' ok
Slashloc = InStrRev(Chemin Complet, "\", Len(Bigpath)) ' this line
failed (?), Len(bigpath) works
Path = Left(CheminComp let, Slashloc)
End Sub

Thank you
Alan--
_______________ _______________ ___

Site photo personnel :

http://perso.wanadoo.fr/dimphoto

[Bruce Rusk]

I've had similar problems with string functions (specifically, strconv()),
and found that they had to do with the comparison type. You should check out
the optional compare argument in the InStrRev() function and look at this
posting on a problem with the defaults:

http://www.trigeminal.com/usenet/usenet001.asp?1033
HTH,

Bruce Rusk

"Alain." <[e-mail] > wrote in message
news:bk******** **@news-reader1.wanadoo .fr...

Dear all,

Acess 2000. Here is may problem : i want to extract the path of
my DB without thr name of the DB file, something like
D:\MyFolder\ I use this code but the Instrrev line is not
accepted : error (5) and (I try to translate) : incorect argument
or or procedure call. What is wrong ? (References ?)

Private Sub Form_Open(Cance l As Integer)
Dim Bigpath As String
Dim SmallPath As String
Dim Slashloc As Integer

Bigpath = CurrentProject. FullName ' ok
Slashloc = InStrRev(Chemin Complet, "\", Len(Bigpath)) ' this line
failed (?), Len(bigpath) works
Path = Left(CheminComp let, Slashloc)
End Sub

Thank you
Alan--
_______________ _______________ ___

Site photo personnel :

http://perso.wanadoo.fr/dimphoto

[Bruce M. Thompson]

> Acess 2000. Here is may problem : i want to extract the path of

my DB without thr name of the DB file, something like
D:\MyFolder\ I use this code but the Instrrev line is not
accepted : error (5) and (I try to translate) : incorect argument
or or procedure call. What is wrong ? (References ?)

Try:

Application.Cur rentProject.Pat h

--
Bruce M. Thompson, Microsoft Access MVP
bt******@mvps.o rg (See the Access FAQ at http://www.mvps.org/access)

NO Email Please. Keep all communications

within the newsgroups so that all might benefit.<<

[Alain.]

Thank you Bruce,

It works as I have rebooted the PC. I went on the Trigeminal site
and found the explanantion of the phenomenom.
But I still wonder which option is the best : should I use the
1036 LCID (France) or leave it with the "option Compare Database"

Your opinion ?

--
_______________ _______________ ___

Site photo personnel :

http://perso.wanadoo.fr/dimphoto

[Marc]

"Alain." <[e-mail] > wrote in message news:<bk******* ***@news-reader1.wanadoo .fr>...

Dear all,

Acess 2000. Here is may problem : i want to extract the path of
my DB without thr name of the DB file, something like
D:\MyFolder\ I use this code but the Instrrev line is not
accepted : error (5) and (I try to translate) : incorect argument
or or procedure call. What is wrong ? (References ?)

Private Sub Form_Open(Cance l As Integer)
Dim Bigpath As String
Dim SmallPath As String
Dim Slashloc As Integer

Bigpath = CurrentProject. FullName ' ok
Slashloc = InStrRev(Chemin Complet, "\", Len(Bigpath)) ' this line
failed (?), Len(bigpath) works
Path = Left(CheminComp let, Slashloc)
End Sub

Alain, what is CheminComplet ?
It looks like a not initialized variable or some other global variable
not mentioned ..
shouldn't that be BigPath instead ?

Marc

[Alain.]

Yes, CheminCimplet is Bigpath.

--
_______________ _______________ ___

Site photo personnel :

http://perso.wanadoo.fr/dimphoto

[Michael \(michka\) Kaplan [MS]]

Six of one, half a dozen of the other. :-)
--
MichKa [MS]

This posting is provided "AS IS" with
no warranties, and confers no rights.
"Alain." <[e-mail] > wrote in message
news:bk******** **@news-reader3.wanadoo .fr...

Thank you Bruce,

It works as I have rebooted the PC. I went on the Trigeminal site
and found the explanantion of the phenomenom.
But I still wonder which option is the best : should I use the
1036 LCID (France) or leave it with the "option Compare Database"

Your opinion ?

--
_______________ _______________ ___

Site photo personnel :

http://perso.wanadoo.fr/dimphoto