Double-click a continous form to get an entry form

[Guest]

I have a continous form that lists the records in a table. I want the user to
be able to double-click on one of the rows in the form to open an entry form
to edit the record. I have not been able to figure out how to do this. Any
suggestions?
-rg

 

[Guest]

Hi

Places this behind the on double click event

Private Sub Form_DblClick()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "NewForm"
stLinkCriteria = "[IDFieldOnNewForm]=" & Me![IDFieldOn1stForm]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub


Ensure that your have the record selector set to = Yes on the contious form
(you will double click this to action the event).
Create a "NewForm" to edit the details you want (poss a popup)
Ensure there is a common field on both forms (I have shown ID field in the
code but it may be different in your D Base)

Change "IDFieldOnNewForm" and "IDFieldOn1stForm" to what they are. Also
change the "NewForm" name to what it is

Hope this helps

 

[Steve Schapel]

Rg,

If you are using the Record Selector, as suggested by Wayne, I would
recommend using the Click event rather than DblClick. Just simpler,
that's all.

Speaking of simpler ;-) why not put the code in one line? ...
Private Sub Form_Click()
DoCmd.OpenForm "NewForm", , , "[IDFieldOnNewForm]=" &
Me.IDFieldOn1stForm
End Sub

 

[Guest]

Ha Ha yes you are correct again in making the code shorter (I like simple
"Stuff")

I do not have any double click events any D Bases that I look after but the
original post was

I want the user to be able to double-click on one of the rows

this is why I did this

You and Dirk are keeping eye on my answers today which is very good as it
keeps my on me toes


Buon anno nuovo a tutti.

--
Wayne
Manchester, England.

Rg,

If you are using the Record Selector, as suggested by Wayne, I would
recommend using the Click event rather than DblClick. Just simpler,
that's all.

Speaking of simpler ;-) why not put the code in one line? ...
Private Sub Form_Click()
DoCmd.OpenForm "NewForm", , , "[IDFieldOnNewForm]=" &
Me.IDFieldOn1stForm
End Sub

--
Steve Schapel, Microsoft Access MVP

Hi

Places this behind the on double click event

Private Sub Form_DblClick()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "NewForm"
stLinkCriteria = "[IDFieldOnNewForm]=" & Me![IDFieldOn1stForm]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub


Ensure that your have the record selector set to = Yes on the contious form
(you will double click this to action the event).
Create a "NewForm" to edit the details you want (poss a popup)
Ensure there is a common field on both forms (I have shown ID field in the
code but it may be different in your D Base)

Change "IDFieldOnNewForm" and "IDFieldOn1stForm" to what they are. Also
change the "NewForm" name to what it is

Hope this helps

 

[Guest]

Ciao Steve

Me dispiace ma il mio Inglese fa schiffo

- - - - - - - - - - - - - - - - - - - - - - - - - -

Happy New Year to you and your family

 

[Guest]

Ok,
Thanks for the prompt reply.
I tried what you said, but I must have something set wrong in the form. Do I
need to do something to be able to use the Record Selector?

The code I put in was
Private Sub Form_DblClick(Cancel As Integer)
DoCmd.OpenForm "TaskEntry", , , "[TaskEntry.TaskID]=" & Me.TaskID
End Sub

Currently, the form allows data entry. It is not opening a new form, but I'm
so new to this, I probably am not referencing the fields/forms correctly
either. Thanks for your help.
-rg

Ha Ha yes you are correct again in making the code shorter (I like simple
"Stuff")

I do not have any double click events any D Bases that I look after but the
original post was

I want the user to be able to double-click on one of the rows

this is why I did this

You and Dirk are keeping eye on my answers today which is very good as it
keeps my on me toes


Buon anno nuovo a tutti.

--
Wayne
Manchester, England.

Rg,

If you are using the Record Selector, as suggested by Wayne, I would
recommend using the Click event rather than DblClick. Just simpler,
that's all.

Speaking of simpler ;-) why not put the code in one line? ...
Private Sub Form_Click()
DoCmd.OpenForm "NewForm", , , "[IDFieldOnNewForm]=" &
Me.IDFieldOn1stForm
End Sub

--
Steve Schapel, Microsoft Access MVP

Hi

Places this behind the on double click event

Private Sub Form_DblClick()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "NewForm"
stLinkCriteria = "[IDFieldOnNewForm]=" & Me![IDFieldOn1stForm]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub


Ensure that your have the record selector set to = Yes on the contious form
(you will double click this to action the event).
Create a "NewForm" to edit the details you want (poss a popup)
Ensure there is a common field on both forms (I have shown ID field in the
code but it may be different in your D Base)

Change "IDFieldOnNewForm" and "IDFieldOn1stForm" to what they are. Also
change the "NewForm" name to what it is

Hope this helps

 

[Guest]

I have taken the liberty of using Steves idea (hope he will not mind) as it
is shorter than the code I gave which I thing is esier to understand for
users.

Please behind the OnClick event on the form (not the control)

Private Sub Form_Click()
DoCmd.OpenForm "TaskEntry", , , "[TaskID]=" & Me.TaskID
End Sub


--
Wayne
Manchester, England.

Ok,
Thanks for the prompt reply.
I tried what you said, but I must have something set wrong in the form. Do I
need to do something to be able to use the Record Selector?

The code I put in was
Private Sub Form_DblClick(Cancel As Integer)
DoCmd.OpenForm "TaskEntry", , , "[TaskEntry.TaskID]=" & Me.TaskID
End Sub

Currently, the form allows data entry. It is not opening a new form, but I'm
so new to this, I probably am not referencing the fields/forms correctly
either. Thanks for your help.
-rg

Ha Ha yes you are correct again in making the code shorter (I like simple
"Stuff")

I do not have any double click events any D Bases that I look after but the
original post was

I want the user to be able to double-click on one of the rows

this is why I did this

You and Dirk are keeping eye on my answers today which is very good as it
keeps my on me toes


Buon anno nuovo a tutti.

--
Wayne
Manchester, England.

Rg,

If you are using the Record Selector, as suggested by Wayne, I would
recommend using the Click event rather than DblClick. Just simpler,
that's all.

Speaking of simpler ;-) why not put the code in one line? ...
Private Sub Form_Click()
DoCmd.OpenForm "NewForm", , , "[IDFieldOnNewForm]=" &
Me.IDFieldOn1stForm
End Sub

--
Steve Schapel, Microsoft Access MVP

Wayne-I-M wrote:
Hi

Places this behind the on double click event

Private Sub Form_DblClick()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "NewForm"
stLinkCriteria = "[IDFieldOnNewForm]=" & Me![IDFieldOn1stForm]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub


Ensure that your have the record selector set to = Yes on the contious form
(you will double click this to action the event).
Create a "NewForm" to edit the details you want (poss a popup)
Ensure there is a common field on both forms (I have shown ID field in the
code but it may be different in your D Base)

Change "IDFieldOnNewForm" and "IDFieldOn1stForm" to what they are. Also
change the "NewForm" name to what it is

Hope this helps

 

[Steve Schapel]

Rg,

Just for clarity, note that this assumes you will click the Record
Selector [|>] at the left of the applicable record on the continuous
form. It will not work if you click the data controls or anywhere in
the detail section of the form.

Also, it assumes that TaskID is a number data type. If it is text, you
will need to change it to...
DoCmd.OpenForm "TaskEntry", , , "[TaskID]='" & Me.TaskID & "'"

Er, you do have a form named TaskEntry, right?

 

[Guest]

I fixed the DoCmd line, but I am still not getting the new form to open. It
is putting me in the field on my continous record form to edit.
-rg

I have taken the liberty of using Steves idea (hope he will not mind) as it
is shorter than the code I gave which I thing is esier to understand for
users.

Please behind the OnClick event on the form (not the control)

Private Sub Form_Click()
DoCmd.OpenForm "TaskEntry", , , "[TaskID]=" & Me.TaskID
End Sub


--
Wayne
Manchester, England.

Ok,
Thanks for the prompt reply.
I tried what you said, but I must have something set wrong in the form. Do I
need to do something to be able to use the Record Selector?

The code I put in was
Private Sub Form_DblClick(Cancel As Integer)
DoCmd.OpenForm "TaskEntry", , , "[TaskEntry.TaskID]=" & Me.TaskID
End Sub

Currently, the form allows data entry. It is not opening a new form, but I'm
so new to this, I probably am not referencing the fields/forms correctly
either. Thanks for your help.
-rg

 

[Steve Schapel]

Cheers, Wayne. What you put is the kind of code that the wizards and
such create. But I generally consider that the purpose of variables is
to make the code simpler or more efficient, and try to use them
accordingly

 

[Steve Schapel]

Rg,

What is the name of your "continous record form"?

 

[Guest]

Thanks Steve and Wayne,
I was not clicking on the Record Selector. I did that, and got a syntax
error, so I cut and pasted the line of code rather than typing it in. I had
missed the single quote between the double quotes at the end of the line of
code. Now it works great.
-rg

Rg,

Just for clarity, note that this assumes you will click the Record
Selector [|>] at the left of the applicable record on the continuous
form. It will not work if you click the data controls or anywhere in
the detail section of the form.

Also, it assumes that TaskID is a number data type. If it is text, you
will need to change it to...
DoCmd.OpenForm "TaskEntry", , , "[TaskID]='" & Me.TaskID & "'"

Er, you do have a form named TaskEntry, right?

--
Steve Schapel, Microsoft Access MVP

I have taken the liberty of using Steves idea (hope he will not mind) as it
is shorter than the code I gave which I thing is esier to understand for
users.

Please behind the OnClick event on the form (not the control)

Private Sub Form_Click()
DoCmd.OpenForm "TaskEntry", , , "[TaskID]=" & Me.TaskID
End Sub

 

[Steve Schapel]

Excellent. Thanks for letting us know. Best wishes for the rest of
your project.

 

[NDClark]

Steve, I am having the same trouble with getting my entry form to open to the
record I click. I can get the form to open. It is just opening to the first
record. Please help if you will. I appreciate it. I am pulling my hair out