List box Requery is one record behind all the time

[Hansen]

Hi

I have a list box which I refresh by changing the .rowsource and doing
a requery after adding a record to the table:

QryOrderDetail = "SELECT [TblOrderDetail].[OrderDetailId],
[TblOrderDetail].[LUOrderId], [TblOrderDetail].[OrderDetailQty],
[TblOrderDetail].[OrderDetailDescription],
[TblOrderDetail].[OrderDetailPrice],
[TblOrderDetail].[OrderDetailFor],
[TblOrderDetail].[OrderDetailDelivered] FROM [TblOrderDetail] WHERE
(((TblOrderDetail.LUOrderId)= " & ([TbxOrderId].[Value]) & ")) ORDER
BY [OrderDetailId]"
LstBxOrderDetail.RowSource = QryOrderDetail
DoCmd.Requery "LstBxOrderDetail"

The problem is that the listbox displays nothing after the first
record is added, the first record after the second is added, etc.

Doing a .Refesh or .Repaint does not help. If I add a MsgBox(vbokonly)
displaying QryOrderDetail before doing the requery it displys
correctly but this is annoying.

Does anybody have any hints?

[Matthias Klaey]

he******@hotmail.com (Hansen) wrote:

Hi

I have a list box which I refresh by changing the .rowsource and doing
a requery after adding a record to the table:

QryOrderDetail = "SELECT [TblOrderDetail].[OrderDetailId],
[TblOrderDetail].[LUOrderId], [TblOrderDetail].[OrderDetailQty],
[TblOrderDetail].[OrderDetailDescription],
[TblOrderDetail].[OrderDetailPrice],
[TblOrderDetail].[OrderDetailFor],
[TblOrderDetail].[OrderDetailDelivered] FROM [TblOrderDetail] WHERE
(((TblOrderDetail.LUOrderId)= " & ([TbxOrderId].[Value]) & ")) ORDER
BY [OrderDetailId]"
LstBxOrderDetail.RowSource = QryOrderDetail
DoCmd.Requery "LstBxOrderDetail"

The problem is that the listbox displays nothing after the first
record is added, the first record after the second is added, etc.

Doing a .Refesh or .Repaint does not help. If I add a MsgBox(vbokonly)
displaying QryOrderDetail before doing the requery it displys
correctly but this is annoying.

Does anybody have any hints?

Perhaps it helps if you insert

Me.Dirty = False

in front of your code.
HTH
Matthias Kläy
--
www.kcc.ch

----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----

[bruce]

What happens when you replace DoCmd.Requery... with
LstBxOrderDetail.Requery? Also, at what point are you executing the
code above, i.e., is it called from a particular form or control event?
This code should work fine from the form's afterupdate event.

Bruce