Record Display not refreshed (1 Viewer)

[Tupacmoche]

Hi All,

I have several outstanding issue that, I would like to bring to rest. The first is that this code:

Me.lblRecCnt.Caption = _
"Record " & Me.CurrentRecord & " of " & Me.Recordset.RecordCount

does not refresh as I use the vba navagation buttons on the form. In order to see the total amt of rows, I first have to go to the last row and then back. Any suggestions on how to fix this?

I have a form that I want to filter on load and have the Combobox filter set to that default. The options are 'All', 'Complete', and 'Incomplete'. This is the code I use : Me.CboIsComplete.Value = Me.CboIsComplete.Selected(0)

Being a zero based control 'All' should be zero (0) but, I get 'Incomplete' the third item in the list showing in the combo box when the form loads. What am I doing wrong?

 

[theDBguy]

Hi. For issue #1, where are you using the code? For issue #2, Me.ComboName.Selected(0) is probably not returning what you thought it would return. If you knew you want All, then you could just as simply use Me.ComboName = "All"

 

[Tupacmoche]

For issue #2, I did as you said and changed Me.CboIsComplete.Value = Me.CboIsComplete.Selected(0) to Me.CboIsComplete = "All" and there is no text = All in the combo box. The code is in the onload event of the form.

Issue #1 - The code mentioned above is in the on Current event of the form.

 

[theDBguy]

For Issue #1, try the following code in the Load event of the form:

DoCmd.GoToRecord, , acLast
DoCmd.GoToRecord, , acFirst

For Issue #2, can you please post the Row Source of your Combobox? Thanks.

 

[Gasman]

Put that code in the Current event of the form

 

[Tupacmoche]

Issue #2 row source is a query:
SELECT DISTINCT
tblEgateDone.Description, tblEgateDone.Complete
FROM tblEgateDone;
Please see screen shot.


I added code:
DoCmd.GoToRecord, , acLast DoCmd.GoToRecord, , acFirst
There was not change.

 

[theDBguy]

Hi. Is the Bound Column property of the combo set to 1?

 

[Tupacmoche]

No it was not so now it works. Issue #1 still pending can a label be refreshed.
As in : Me.lblRecCnt.refreshe I don't thing this method is associated with this control. Any other way?

 

[isladogs]

No it was not so now it works. Issue #1 still pending can a label be refreshed.
As in : Me.lblRecCnt.refreshe I don't thing this method is associated with this control. Any other way?

Yes it can but not using a Refresh command as that doesn't apply to labels.
For one approach, see my Student Target Grade Explorer example app

The label showing the total records is updated after each change to the form filters using 2 lines of code

GetListTotal = rst.RecordCount

and in the Form_Current event

Me.lblCount.Caption = "Total records = " & GetListTotal

You might also need Me.Requery to refresh the form

 

[Gasman]

Ok, Confused here (not hard I admit) but I would like to find out the difference.

I copied your code into the Current event of a form of mine, and added the label.

When I use the record navigation buttons it refreshes on it's own, which is what I was expecting, but wanted to be sure before posting.

So why does it not work for you.?

No it was not so now it works. Issue #1 still pending can a label be refreshed.
As in : Me.lblRecCnt.refreshe I don't thing this method is associated with this control. Any other way?