I got a code to access a database on a share drive and the code will be send
to users. But the drive map is different for everyone, for me it's x:\ but
others could be z:\...

i got the IP address of this drive as 12.345.678.90, how to put it into my
code? if the path is:

dim p as string
p="x:\share drive\folder\database.mdb\"

This is what you need:

p="\\12.345.678.90\share drive\folder\database.mdb\

Make sure you use the double backslash

Please rate this posting if helpful


Michael Arch.

"Angus" wrote:

> I got a code to access a database on a share drive and the code will be send
> to users. But the drive map is different for everyone, for me it's x:\ but
> others could be z:\...
>
> i got the IP address of this drive as 12.345.678.90, how to put it into my
> code? if the path is:
>
> dim p as string
> p="x:\share drive\folder\database.mdb\"
>

I got an error message that '\\10.232.101.15\DS\SHIPPING.mdb' is not a valid
path...

If I just use "X:\DS\SHIPPING.mbd" then have no problem.

"Michael" wrote:

> This is what you need:
>
> p="\\12.345.678.90\share drive\folder\database.mdb\
>
> Make sure you use the double backslash
>
> Please rate this posting if helpful
>
>
> Michael Arch.
>
> "Angus" wrote:
>
> > I got a code to access a database on a share drive and the code will be send
> > to users. But the drive map is different for everyone, for me it's x:\ but
> > others could be z:\...
> >
> > i got the IP address of this drive as 12.345.678.90, how to put it into my
> > code? if the path is:
> >
> > dim p as string
> > p="x:\share drive\folder\database.mdb\"
> >

OK,It could be the wrong IP address, you can verify that by going to the dos
prompt and pinging the server, if you can ping it, try mapping a network
pointing to the folder where your database resides, if it does not allow you
to connect to the network drive, you may have to use the server name somthing
like this:

\\ServerName\\DS\SHIPPING.mdb

You can also step through your code and place a msgbox that will show the
path, just to confirm that the parameter has the proper syntax.
So right after you do p="\\10.232.101.15\DS\SHIPPING.mdb"
Msgbox(p)


--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Angus" wrote:

> I got an error message that '\\10.232.101.15\DS\SHIPPING.mdb' is not a valid
> path...
>
> If I just use "X:\DS\SHIPPING.mbd" then have no problem.
>
> "Michael" wrote:
>
> > This is what you need:
> >
> > p="\\12.345.678.90\share drive\folder\database.mdb\
> >
> > Make sure you use the double backslash
> >
> > Please rate this posting if helpful
> >
> >
> > Michael Arch.
> >
> > "Angus" wrote:
> >
> > > I got a code to access a database on a share drive and the code will be send
> > > to users. But the drive map is different for everyone, for me it's x:\ but
> > > others could be z:\...
> > >
> > > i got the IP address of this drive as 12.345.678.90, how to put it into my
> > > code? if the path is:
> > >
> > > dim p as string
> > > p="x:\share drive\folder\database.mdb\"
> > >

If my computer show '12.345.678.90'(X does it mean the IP is 12.345.678.90?

I ping and also msgbox it seems correct.

"Michael" wrote:

> OK,It could be the wrong IP address, you can verify that by going to the dos
> prompt and pinging the server, if you can ping it, try mapping a network
> pointing to the folder where your database resides, if it does not allow you
> to connect to the network drive, you may have to use the server name somthing
> like this:
>
> \\ServerName\\DS\SHIPPING.mdb
>
> You can also step through your code and place a msgbox that will show the
> path, just to confirm that the parameter has the proper syntax.
> So right after you do p="\\10.232.101.15\DS\SHIPPING.mdb"
> Msgbox(p)
>
>
> --
> If this posting was helpful, please click on the Yes button.
> Regards,
>
> Michael Arch.
>
>
>
>
> "Angus" wrote:
>
> > I got an error message that '\\10.232.101.15\DS\SHIPPING.mdb' is not a valid
> > path...
> >
> > If I just use "X:\DS\SHIPPING.mbd" then have no problem.
> >
> > "Michael" wrote:
> >
> > > This is what you need:
> > >
> > > p="\\12.345.678.90\share drive\folder\database.mdb\
> > >
> > > Make sure you use the double backslash
> > >
> > > Please rate this posting if helpful
> > >
> > >
> > > Michael Arch.
> > >
> > > "Angus" wrote:
> > >
> > > > I got a code to access a database on a share drive and the code will be send
> > > > to users. But the drive map is different for everyone, for me it's x:\ but
> > > > others could be z:\...
> > > >
> > > > i got the IP address of this drive as 12.345.678.90, how to put it into my
> > > > code? if the path is:
> > > >
> > > > dim p as string
> > > > p="x:\share drive\folder\database.mdb\"
> > > >

Yes, however, it is quite unusual to see the ip address listed on the mapped
drive, because it means the whole server is being shared, this is not always
the case.
Just for testing try:
p="\\127.0.0.1 p\SHIPPING.mdb"
Make sure however, that the database exist in the C:\ drive before this
test; also make sure it exist under the directory you are pointing to.

p="\\10.232.101.15\DS\SHIPPING.mdb"

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Angus" wrote:

> If my computer show '12.345.678.90'(X does it mean the IP is 12.345.678.90?
>
> I ping and also msgbox it seems correct.
>
> "Michael" wrote:
>
> > OK,It could be the wrong IP address, you can verify that by going to the dos
> > prompt and pinging the server, if you can ping it, try mapping a network
> > pointing to the folder where your database resides, if it does not allow you
> > to connect to the network drive, you may have to use the server name somthing
> > like this:
> >
> > \\ServerName\\DS\SHIPPING.mdb
> >
> > You can also step through your code and place a msgbox that will show the
> > path, just to confirm that the parameter has the proper syntax.
> > So right after you do p="\\10.232.101.15\DS\SHIPPING.mdb"
> > Msgbox(p)
> >
> >
> > --
> > If this posting was helpful, please click on the Yes button.
> > Regards,
> >
> > Michael Arch.
> >
> >
> >
> >
> > "Angus" wrote:
> >
> > > I got an error message that '\\10.232.101.15\DS\SHIPPING.mdb' is not a valid
> > > path...
> > >
> > > If I just use "X:\DS\SHIPPING.mbd" then have no problem.
> > >
> > > "Michael" wrote:
> > >
> > > > This is what you need:
> > > >
> > > > p="\\12.345.678.90\share drive\folder\database.mdb\
> > > >
> > > > Make sure you use the double backslash
> > > >
> > > > Please rate this posting if helpful
> > > >
> > > >
> > > > Michael Arch.
> > > >
> > > > "Angus" wrote:
> > > >
> > > > > I got a code to access a database on a share drive and the code will be send
> > > > > to users. But the drive map is different for everyone, for me it's x:\ but
> > > > > others could be z:\...
> > > > >
> > > > > i got the IP address of this drive as 12.345.678.90, how to put it into my
> > > > > code? if the path is:
> > > > >
> > > > > dim p as string
> > > > > p="x:\share drive\folder\database.mdb\"
> > > > >

Can you store the file on sharepoint where everyone can use the same
URL?

Unfortunately we do not have a share point setup.

I ping the drive and everything looks good.

Is there any code that I can get the path info which can be used in vba code?

"(E-Mail Removed)" wrote:

> Can you store the file on sharepoint where everyone can use the same
> URL?
>
>

On Aug 27, 9:08 pm, Angus <An...@discussions.microsoft.com> wrote:
> Unfortunately we do not have a share point setup.
>
> I ping the drive and everything looks good.
>
> Is there any code that I can get the path info which can be used in vba code?
>
>
>
> "gimme_this_gimme_t...@yahoo.com" wrote:
> > Can you store the file on sharepoint where everyone can use the same
> > URL?- Hide quoted text -
>
> - Show quoted text -

Try googling : "Enumerating network shares" on
microsoft.public.scripting.vbscript


Look for svrcheck.exe or try something like this:

Function getNetShares(strHostName)


Dim objWMIService
Dim colShares
Dim objShare
Dim strMyMsg


On Error Resume Next

' I don't know what \root\cimv2 is.

Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate,authenticationLevel=Default}!\\" &
strHostName & "\root\cimv2")

Set colShares = objWMIService.ExecQuery("Select * from Win32_Share", ,
48)

For Each objShare in colShares
strMyMsg = "Share Name: " & vbTab & objShare.Name & vbCrLf
strMyMsg = strMyMsg & "Share Caption: " & vbTab &
objShare.Caption & vbCrLf
strMyMsg = strMyMsg & "Share Path: " & vbTab & objShare.Path &
vbCrLf
strMyMsg = strMyMsg & "Share Type: " & vbTab &
getShareType(objShare.Type) & vbCrLf
WScript.Echo strMyMsg
Next


Set objWMIService = Nothing
Set colShares = Nothing


getNetShares = Err.Number


End Function


getNetShares("my-machine")

Oh yeah, can you prompt the user to navigate to the mdb file with a
FileOpenDialog?