Trouble with updating tables/ maybe a requery is needed- but how?

[Robert]

I have a form with 2 command buttons on it. One button executes some append
queries. The other button creates a report from a query which reads data in
part created by the first button. But when I do the buttons in succession,
I don't get any data in my report. If I close the form then go back into
and position it at the same record, the report works. I don't understand
this because I'm opening the report and the query attached to it after
finishing the table update. Does anybody know how I can correct this and
make my report work without closing and reopening my form?

Robert

here is the code for the update button:

On Error GoTo Err_Command27_Click

Dim stDocName As String
Dim strmsg As String

stDocName = "qryStartRental"
DoCmd.SetWarnings False
DoCmd.OpenQuery stDocName, acNormal, acEdit

stDocName = "qryItemOutRental"
DoCmd.OpenQuery stDocName, acNormal, acEdit

cmbItemNo.Requery
DoCmd.SetWarnings True

strmsg = "Rental has been booked for customer "
strmsg = strmsg & [Forms]![frmrentals]![fldCustNo]
strmsg = strmsg & " item " & [Forms]![frmrentals]![flditemno]
MsgBox strmsg

Exit_Command27_Click:
Exit Sub

Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click


Here is the code for the report button:

On Error GoTo Err_Command33_Click

Dim stDocName As String
Dim stCond As String
Dim icount As Integer

icount = 0
icount = DCount("[fldrentalstartdate]", "tblRentalStarts",
"[fldrentalno] = [forms]![frmrentals]![fldrentalno]")
If icount > 0 Then
stDocName = "rptContract"
DoCmd.OpenReport stDocName, acPreview, , "qrycontract2.fldrentalno =
[forms]![frmrentals]![fldrentalno]"
Else
MsgBox "Booking not found. Have you booked the rental yet?"
End If

Exit_Command33_Click:
Exit Sub

Err_Command33_Click:
MsgBox Err.Description
Resume Exit_Command33_Click

[Robert]

I figured it out. (I used docmd.gotorecord). Thanks.
"Robert" <pr**********@yahoo.com> wrote in message
news:TE*****************@fe02.lga...

I have a form with 2 command buttons on it. One button executes some
append queries. The other button creates a report from a query which reads
data in part created by the first button. But when I do the buttons in
succession, I don't get any data in my report. If I close the form then go
back into and position it at the same record, the report works. I don't
understand this because I'm opening the report and the query attached to it
after finishing the table update. Does anybody know how I can correct this
and make my report work without closing and reopening my form?

Robert

here is the code for the update button:

On Error GoTo Err_Command27_Click

Dim stDocName As String
Dim strmsg As String

stDocName = "qryStartRental"
DoCmd.SetWarnings False
DoCmd.OpenQuery stDocName, acNormal, acEdit

stDocName = "qryItemOutRental"
DoCmd.OpenQuery stDocName, acNormal, acEdit

cmbItemNo.Requery
DoCmd.SetWarnings True

strmsg = "Rental has been booked for customer "
strmsg = strmsg & [Forms]![frmrentals]![fldCustNo]
strmsg = strmsg & " item " & [Forms]![frmrentals]![flditemno]
MsgBox strmsg

Exit_Command27_Click:
Exit Sub

Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click


Here is the code for the report button:

On Error GoTo Err_Command33_Click

Dim stDocName As String
Dim stCond As String
Dim icount As Integer

icount = 0
icount = DCount("[fldrentalstartdate]", "tblRentalStarts",
"[fldrentalno] = [forms]![frmrentals]![fldrentalno]")
If icount > 0 Then
stDocName = "rptContract"
DoCmd.OpenReport stDocName, acPreview, , "qrycontract2.fldrentalno
= [forms]![frmrentals]![fldrentalno]"
Else
MsgBox "Booking not found. Have you booked the rental yet?"
End If

Exit_Command33_Click:
Exit Sub

Err_Command33_Click:
MsgBox Err.Description
Resume Exit_Command33_Click

[Albert D. Kallal]

Likely, the problem here is that data have been entered in the form..but not
yet saved to disk.

Just force a disk write. You can use

me.Refresh

Make the above the first line of your code....

--
Albert D. Kallal (Access MVP)
Edmonton, Alberta Canada
pl*****************@msn.com
http://www.members.shaw.ca/AlbertKallal

[Robert]

I just discovered that. And gotorecord needs a numbering. Thanks for your
help, Albert. It's working.
"Albert D. Kallal" <ka****@msn.com> wrote in message
news:n1Vde.1211900$Xk.506672@pd7tw3no...

Likely, the problem here is that data have been entered in the form..but
not yet saved to disk.

Just force a disk write. You can use

me.Refresh

Make the above the first line of your code....

--
Albert D. Kallal (Access MVP)
Edmonton, Alberta Canada
pl*****************@msn.com
http://www.members.shaw.ca/AlbertKallal