I have created a nice little database that reflects a floor plan and has a
button to provide info about each computer. I am want to further enhance
this by being able to access each computer via remote desktop by clicking on
a button within my database. Is this possilbe? If not is there another way
i can do this.

Hi Mike,

Try something like:

Shell "mstsc.exe /v:123.456.789.012", vbNormalFocus

or

Shell "mstsc.exe /v:computer.company.com", vbNormalFocus

Type "mstsc /?" in a command prompt to find out other command line
options for the program.

Clifford Bass

"mike147z" wrote:

> I have created a nice little database that reflects a floor plan and has a
> button to provide info about each computer. I am want to further enhance
> this by being able to access each computer via remote desktop by clicking on
> a button within my database. Is this possilbe? If not is there another way
> i can do this.

i guess i should of mentioned that i am new to vb/ msaccess. where do i
start to put this command into? by the way thanks for the info.

"Clifford Bass" wrote:

> Hi Mike,
>
> Try something like:
>
> Shell "mstsc.exe /v:123.456.789.012", vbNormalFocus
>
> or
>
> Shell "mstsc.exe /v:computer.company.com", vbNormalFocus
>
> Type "mstsc /?" in a command prompt to find out other command line
> options for the program.
>
> Clifford Bass
>
> "mike147z" wrote:
>
> > I have created a nice little database that reflects a floor plan and has a
> > button to provide info about each computer. I am want to further enhance
> > this by being able to access each computer via remote desktop by clicking on
> > a button within my database. Is this possilbe? If not is there another way
> > i can do this.

Hi Mike,

You are welcome. That piece of information tells me I need to be a bit
more detailed.

Open the properties window for the button you created. Click in the On
Click line then on the little button with three periods. When prompted
choose Code Builder. This will create an On Click event code section and
take you into the VBA Editor. In it you will want to add something like
this, which assumes your computer's address (IP or xxx.yyy.com) is in a text
box named "txtInternetAddress":

If Nz([txtInternetAddress], vbNullString) <> vbNullString Then
Shell "mstsc.exe /v:" & [txtInternetAddress], vbNormalFocus
End If

Clifford Bass

"mike147z" wrote:

> i guess i should of mentioned that i am new to vb/ msaccess. where do i
> start to put this command into? by the way thanks for the info.

i did this and this and nothing happened. I went to properties again and
look at the "on click" button and the line was blank. I clicked on the 3
buttons, selected code builder and this is what shows up. Now this button is
a copy of one that i am using somewhere eles. i went into it and deleted the
info from it.

If Nz([xxx.3e.xxx.ee], vbNullString) <> vbNullString Then
Shell "mstsc.exe /v:" & [xxx.3e.xxx.ee], vbNormalFocus
End If

Private Sub Command146_Click()

End Sub


"Clifford Bass" wrote:

> Hi Mike,
>
> You are welcome. That piece of information tells me I need to be a bit
> more detailed.
>
> Open the properties window for the button you created. Click in the On
> Click line then on the little button with three periods. When prompted
> choose Code Builder. This will create an On Click event code section and
> take you into the VBA Editor. In it you will want to add something like
> this, which assumes your computer's address (IP or xxx.yyy.com) is in a text
> box named "txtInternetAddress":
>
> If Nz([txtInternetAddress], vbNullString) <> vbNullString Then
> Shell "mstsc.exe /v:" & [txtInternetAddress], vbNormalFocus
> End If
>
> Clifford Bass
>
> "mike147z" wrote:
>
> > i guess i should of mentioned that i am new to vb/ msaccess. where do i
> > start to put this command into? by the way thanks for the info.

I also decided to run a complier on it to see what happens and it comes back
with "Compile error: Invalid outside procedure" It doesn't like the bracket
with the ip address in it. thanks for your help.

"Clifford Bass" wrote:

> Hi Mike,
>
> You are welcome. That piece of information tells me I need to be a bit
> more detailed.
>
> Open the properties window for the button you created. Click in the On
> Click line then on the little button with three periods. When prompted
> choose Code Builder. This will create an On Click event code section and
> take you into the VBA Editor. In it you will want to add something like
> this, which assumes your computer's address (IP or xxx.yyy.com) is in a text
> box named "txtInternetAddress":
>
> If Nz([txtInternetAddress], vbNullString) <> vbNullString Then
> Shell "mstsc.exe /v:" & [txtInternetAddress], vbNormalFocus
> End If
>
> Clifford Bass
>
> "mike147z" wrote:
>
> > i guess i should of mentioned that i am new to vb/ msaccess. where do i
> > start to put this command into? by the way thanks for the info.

Hi Mike,

If you follow Steve's post, it should solve this issue.

Clifford Bass

"mike147z" wrote:

> I also decided to run a complier on it to see what happens and it comes back
> with "Compile error: Invalid outside procedure" It doesn't like the bracket
> with the ip address in it. thanks for your help.
>
> "Clifford Bass" wrote:

i followed your instructions and now i get a runtime error '2465';
Microsoft office access can't find the field '|' (pipe symbol) referred to
in your expression. So i hit the debug button and this is i get. the If Nz
line is highlighted in yellow.

Private Sub Command146_Click()
If Nz([192.168.0.9], vbNullString) <> vbNullString Then
Shell "mstsc.exe /v:" & [192.168.0.9], vbNormalFocus
End If
End Sub

thanks


"Steve" wrote:

> Hi Mike,
>
> Start by cutting the three lines of code (If to End If) and pasting it
> between Private Sub and End Sub. Should look like:
> Private Sub Command146_Click()
> If Nz([xxx.3e.xxx.ee], vbNullString) <> vbNullString Then
> Shell "mstsc.exe /v:" & [xxx.3e.xxx.ee], vbNormalFocus
> End If
> End Sub
>
> Now open your form, click the button and see what happens.
>
> Steve
>
>
> "mike147z" <(E-Mail Removed)> wrote in message
> news:C6308D81-CF78-4E6A-A73F-(E-Mail Removed)...
> >i did this and this and nothing happened. I went to properties again and
> > look at the "on click" button and the line was blank. I clicked on the 3
> > buttons, selected code builder and this is what shows up. Now this button
> > is
> > a copy of one that i am using somewhere eles. i went into it and deleted
> > the
> > info from it.
> >
> > If Nz([xxx.3e.xxx.ee], vbNullString) <> vbNullString Then
> > Shell "mstsc.exe /v:" & [xxx.3e.xxx.ee], vbNormalFocus
> > End If
> >
> > Private Sub Command146_Click()
> >
> > End Sub
> >
> >
> > "Clifford Bass" wrote:
> >
> >> Hi Mike,
> >>
> >> You are welcome. That piece of information tells me I need to be a
> >> bit
> >> more detailed.
> >>
> >> Open the properties window for the button you created. Click in the
> >> On
> >> Click line then on the little button with three periods. When prompted
> >> choose Code Builder. This will create an On Click event code section and
> >> take you into the VBA Editor. In it you will want to add something like
> >> this, which assumes your computer's address (IP or xxx.yyy.com) is in a
> >> text
> >> box named "txtInternetAddress":
> >>
> >> If Nz([txtInternetAddress], vbNullString) <> vbNullString Then
> >> Shell "mstsc.exe /v:" & [txtInternetAddress], vbNormalFocus
> >> End If
> >>
> >> Clifford Bass
> >>
> >> "mike147z" wrote:
> >>
> >> > i guess i should of mentioned that i am new to vb/ msaccess. where do
> >> > i
> >> > start to put this command into? by the way thanks for the info.
>
>
>

Thanks,

I followed his instructions and i got a run-time error '2465'; I replied
with the error and the part that was highlighted during the debug.

thanks.


"Clifford Bass" wrote:

> Hi Mike,
>
> If you follow Steve's post, it should solve this issue.
>
> Clifford Bass
>
> "mike147z" wrote:
>
> > I also decided to run a complier on it to see what happens and it comes back
> > with "Compile error: Invalid outside procedure" It doesn't like the bracket
> > with the ip address in it. thanks for your help.
> >
> > "Clifford Bass" wrote:

Hi Mike,

What is the name of the field on your form that holds the IP number?
Use that instead of the actual IP in the code. So if the name of the field
is "txtIP_Number" you would have:

Private Sub Command146_Click()
If Nz([txtIP_Number], vbNullString) <> vbNullString Then
Shell "mstsc.exe /v:" & [txtIP_Number], vbNormalFocus
End If
End Sub

Clifford Bass

"mike147z" wrote:

> i followed your instructions and now i get a runtime error '2465';
> Microsoft office access can't find the field '|' (pipe symbol) referred to
> in your expression. So i hit the debug button and this is i get. the If Nz
> line is highlighted in yellow.
>
> Private Sub Command146_Click()
> If Nz([192.168.0.9], vbNullString) <> vbNullString Then
> Shell "mstsc.exe /v:" & [192.168.0.9], vbNormalFocus
> End If
> End Sub
>
> thanks