Double Click Syntax

[jeff]

Hello,
e a sub
I have created a database for my department, which will display all
the users details (name etc), PC details, and software details.
The database is just going to be a way of knowing who has what
installed on their PC and what PC they have.

I have 3 tables:
User table
Computer table
Software table

I have created forms for these table. In the Users form, I have a
subform that displays the a small amount of the computer details for
the relevant user.

What I'd like to do is, be able to Double Click on the PC name (or IP
address) field, and for it to then bring up the full details of the
computer in the computer form that I have created.

I am having problems getting the syntax right though in the VBA code.
My boss at my previous job set this part up for me, but now I wish I
asked what or how he did it.

I currently have this syntax, but it doesn't work.

If Me.PCName.ItemsSelected.Count 0 Then
DoCmd.OpenForm "computerdetails", acNormal, , "ComputerID = "
& Me.PCName.Value
End If
Any help on this would be much appreciated.

Thanks

Jeff

[Max Vit]

For double click to work, you need to place it in the correct event in
VBA; for example, if the text box you would like to double click on is
called 'PC' then your code should be placed:

Private Sub PC_DblClick(Cancel As Integer)
<...your code...>
End Sub

You can also get to this point by entering on the form design view,
opening the properties of the text box and got to the events tab and
look for the double click event.

HTH - Max

[paii, Ron]

"jeff" <ja***********@gmail.comwrote in message
news:11**********************@u2g2000hsc.googlegro ups.com...

Hello,
e a sub
I have created a database for my department, which will display all
the users details (name etc), PC details, and software details.
The database is just going to be a way of knowing who has what
installed on their PC and what PC they have.

I have 3 tables:
User table
Computer table
Software table

I have created forms for these table. In the Users form, I have a
subform that displays the a small amount of the computer details for
the relevant user.

What I'd like to do is, be able to Double Click on the PC name (or IP
address) field, and for it to then bring up the full details of the
computer in the computer form that I have created.

I am having problems getting the syntax right though in the VBA code.
My boss at my previous job set this part up for me, but now I wish I
asked what or how he did it.

I currently have this syntax, but it doesn't work.

If Me.PCName.ItemsSelected.Count 0 Then
DoCmd.OpenForm "computerdetails", acNormal, , "ComputerID = "
& Me.PCName.Value
End If
Any help on this would be much appreciated.

Thanks

Jeff

If ComputerID is text, you will need quotes around Me.PCName.Value.

DoCmd.OpenForm "computerdetails", acNormal, , "ComputerID = '" &
Me.PCName.Value & "'"

[jeff]

On Jun 27, 3:04 pm, "paii, Ron" <[e-mail]:

"jeff" <[e-mail] in message

news:11**********************@u2g2000hsc.googlegro ups.com...

Hello,
e a sub
I have created a database for my department, which will display all
the users details (name etc), PC details, and software details.
The database is just going to be a way of knowing who has what
installed on their PC and what PC they have.

I have 3 tables:
User table
Computer table
Software table

I have created forms for these table. In the Users form, I have a
subform that displays the a small amount of the computer details for
the relevant user.

What I'd like to do is, be able to Double Click on the PC name (or IP
address) field, and for it to then bring up the full details of the
computer in the computer form that I have created.

I am having problems getting the syntax right though in the VBA code.
My boss at my previous job set this part up for me, but now I wish I
asked what or how he did it.

I currently have this syntax, but it doesn't work.

If Me.PCName.ItemsSelected.Count 0 Then
DoCmd.OpenForm "computerdetails", acNormal, , "ComputerID = "
& Me.PCName.Value
End If

Any help on this would be much appreciated.

Thanks

Jeff

If ComputerID is text, you will need quotes around Me.PCName.Value.

DoCmd.OpenForm "computerdetails", acNormal, , "ComputerID = '" &
Me.PCName.Value & "'"- Hide quoted text -

- Show quoted text -

Thanks for your repsonses.

I am using the correct event/ text box.

I put the quotations around the text as mentioned, but I now get the
following text highlighted on my code.

..ItemsSelected

This the code that I have.

Private Sub PCName_DblClick(Cancel As Integer)
If Me.PCName.ItemsSelected.Count 0 Then
DoCmd.OpenForm "computerdetails", acNormal, , "ComputerID = '" &
"Me.PCName.Value" & "'"
End Sub

Any ideas on where to go from here?

[Larry Linson]

"jeff" <ja***********@gmail.comwrote

I put the quotations around the text as mentioned, but I now get the
following text highlighted on my code.

.ItemsSelected

This the code that I have.

Private Sub PCName_DblClick(Cancel As Integer)
If Me.PCName.ItemsSelected.Count 0 Then
DoCmd.OpenForm "computerdetails", acNormal, , "ComputerID = '" &
"Me.PCName.Value" & "'"
End Sub

Any ideas on where to go from here?

Did you place the cursor on "ItemsSelected" and press F1 for Help? That
would be the first place to go for help.

If you do that, you'll find that the ItemsSelected property applies only to
multiselect List Boxes, which you did not indicate you are using. What type
of Control contains "PCName"?

Larry Linson
Microsoft Access MVP

[jeff]

On Jun 27, 4:03 pm, "Larry Linson" <[e-mail]:

"jeff" <[e-mail]

I put the quotations around the text as mentioned, but I now get the
following text highlighted on my code.
>
.ItemsSelected
>
This the code that I have.
>
Private Sub PCName_DblClick(Cancel As Integer)
If Me.PCName.ItemsSelected.Count 0 Then
DoCmd.OpenForm "computerdetails", acNormal, , "ComputerID = '" &
"Me.PCName.Value" & "'"
End Sub
>
Any ideas on where to go from here?

Did you place the cursor on "ItemsSelected" and press F1 for Help? That
would be the first place to go for help.

If you do that, you'll find that the ItemsSelected property applies only to
multiselect List Boxes, which you did not indicate you are using. What type
of Control contains "PCName"?

Larry Linson
Microsoft Access MVP

I did try this, but unfortunately I'm not sure where my colleagues
have the cd for the software, because it always prompts me to install
the help files when I try and do this.
I guess that's my next step though.

I'm not too sure what you mean by the type of control (i'm pretty new
to this side of access), but it is just a text box. There is no list
box.
Perhaps I need to use a different command to ItemsSelected?

Thanks for your help. I'll keep you posted.

[Neil]

The code you have was set up for use with a list box, rather than a text box
(the former being used just to select an item from a list, as opposed to
typing in the item, as in your case, with a text box).

To get the code to work with a text box, simply change the code as follows:

If Not IsNull(Me.PCName) Then
DoCmd.OpenForm "computerdetails", acNormal, , "ComputerID = '" &
Me.PCName & "'"
End If

Note that I removed the quotes around Me.PCName.Value and removed "Value".
The above should work fine with your text box, provided that you use a
ComputerID value (and not a computer name or other field associated with
computers). You should confirm that the ComputerID field is the value you're
entering/viewing in the text box.

If you want something more user-friendly, I'd recommend using a combo box.
The above code would work the same with a text box or combo box.

HTH,

Neil

"jeff" <ja***********@gmail.comwrote in message
news:11**********************@n60g2000hse.googlegr oups.com...

On Jun 27, 4:03 pm, "Larry Linson" <[e-mail]:

>"jeff" <[e-mail]

> I put the quotations around the text as mentioned, but I now get the
following text highlighted on my code.

.ItemsSelected

This the code that I have.

Private Sub PCName_DblClick(Cancel As Integer)
If Me.PCName.ItemsSelected.Count 0 Then
DoCmd.OpenForm "computerdetails", acNormal, , "ComputerID = '" &
"Me.PCName.Value" & "'"
End Sub

Any ideas on where to go from here?

Did you place the cursor on "ItemsSelected" and press F1 for Help? That
would be the first place to go for help.

If you do that, you'll find that the ItemsSelected property applies only
to
multiselect List Boxes, which you did not indicate you are using. What
type
of Control contains "PCName"?

Larry Linson
Microsoft Access MVP

I did try this, but unfortunately I'm not sure where my colleagues
have the cd for the software, because it always prompts me to install
the help files when I try and do this.
I guess that's my next step though.

I'm not too sure what you mean by the type of control (i'm pretty new
to this side of access), but it is just a text box. There is no list
box.
Perhaps I need to use a different command to ItemsSelected?

Thanks for your help. I'll keep you posted.