Requery after Delete in continuous subform

[kimsMTC]

I have a form and subform with my subform being a continuous form. It lists timesheet records in a Tabular format. I have a command button that has the following code to delete the record that has focus in the Tabular form:

Private Sub BtnDelete_Click()
With Me.TimesheetRecords
DoCmd.RunCommand acCmdDeleteRecord

Me.TimesheetRecords.Form.Requery
End With
End Sub

The "Requery" does not refresh my subform with any data. All data is blanked out. What am I doing wrong?

Thanks!

 

[PHV]

What about this ?
Private Sub BtnDelete_Click()
With Me.TimesheetRecords.Form
.SetFocus
DoCmd.RunCommand acCmdDeleteRecord
DoEvents
.Requery
End With
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[kimsMTC]

I had to modify your code to avoid errors. Then I get "delete record is not available now":

Private Sub BtnDelete_Click()
With Me.TimesheetRecords
.SetFocus
DoCmd.RunCommand acCmdDeleteRecord
DoEvents
.Requery
End With
End Sub

 

[PHV]

Where is located your button ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[kimsMTC]

It is on the main form, NOT the subform.

 

[PHV]

Why not putting it in the Footer section of the subform and so the subform will not lost focus when you click the button ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886