Empty Recordset

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello,

I have the following problem and was wondeing if anyone can help me.
On a form, I have a subform with records. Double clicking on a record in
this subform calls a new form (form2), showing the record in detail.
When I close this form and double click the same or another record, the form
(form2) opens again, but this time it is completely blank, even the fields
are not shown.

This is the code:

Private Sub Form_DblClick(Cancel As Integer)
Set rs1 = Form_Records.RecordsetClone
Set rs2 = CurrentDb.OpenRecordset("Table")
Do Until rs1.EOF
rs2.AddNew
rs2!field1= rs1.field1
rs2!field2 = rs1.field2
rs2!field3 = rs1.field3

rs2.Update
rs1.MoveNext
Loop
rs1.Close
rs2.Close

DoCmd.OpenForm "form2", acNormal
......etc
End sub

If form2 is closed, the table in which the recordset is stored, is emptied.
Double clicking a record in the subform, does not execute the code above (at
least not the code between Do Until... til ...Loop)
The table for the recordset stays empty and the form is blank.
It works again when the form and subform are reopend and this is not what I
want.

Is there a solution?

Greetings
René
 
It appears your code is running when the "subform" itself is double-clicked
Private Sub Form_DblClick(Cancel As Integer)
Click to expand...

try moving the code to the sub-forms record 'on-double-click' event.
 
Thanks, but it did not solve my problem

rolaaus said:
It appears your code is running when the "subform" itself is double-clicked

try moving the code to the sub-forms record 'on-double-click' event.
Click to expand...
 
My problem is solved by adding line
Form_Records.RecordsetClone.MoveFirst
after line
Set rs1 = Form_Records.RecordsetClone
 
Back
Top