Listbox works and then it doesn't

[Colleyville Alan]

I have an app in which users are displayed a list of mutual fund from which
they can choose. There is a listbox embedded in a two-tabbed notebook
control. When the form is initally opened, the listbox loads info:

Private Sub Form_Open(Cance l As Integer)
TabControl.Valu e = 0
Tab_Label1.Capt ion = "Select Alternatives from the Select List"
FundAlternative sList.RowSource = "Load_Select_Al ternatives_Form "
Call Highlight_Defau lts
End Sub

The RowSource "Load_Select_Al ternatives_Form " is a query that populates the
listbox. Then I have this sub to change the values displayed depending upon
which tab is selected:

Sub TabControl_Chan ge()
If TabControl.Valu e = 0 Then
FundAlternative sList.RowSource = "Load_Select_Al ternatives_Form "
FundAlternative sList.ColumnCou nt = 3
Tab_Label1.Capt ion = "Select Alternatives from the Select List"
Call Highlight_Defau lts
Else
FundAlternative sList.RowSource = "Select_Gap_Fun ds"
FundAlternative sList.ColumnCou nt = 1
Tab_Label1.Capt ion = "Select Alternatives from the Revenue Sharing
List"
End If
End Sub

This works fine too. But the whole point of the two tabs is to allow one to
choose funds from two different sources. If someone is on tab #1 and clicks
a button to run a sub based on the funds that are selected, that sub works
fine. But if they then click on tab #2 immediately after that is finished
running, the listbox is empty.

Reclicking on tab1 and then tab2 refreshes it properly, but that is not the
way it is supposed to work. I have stepped through the code and watched it
go right through the command that should refresh the data, but nothing
happens.

Can anyone tell me why this is occurring?

[Reggie]

After setting/changing the rowsource of the listbox/combo box try requerying
it (i.e.. Me.mylistbox.Re query)

--
Reggie

www.smittysinet.com
----------
"Colleyvill e Alan" <ae***********@ nospam.comcast. net> wrote in message
news:MXBoc.3651 1$z06.5767180@a ttbi_s01...

I have an app in which users are displayed a list of mutual fund from which they can choose. There is a listbox embedded in a two-tabbed notebook
control. When the form is initally opened, the listbox loads info:

Private Sub Form_Open(Cance l As Integer)
TabControl.Valu e = 0
Tab_Label1.Capt ion = "Select Alternatives from the Select List"
FundAlternative sList.RowSource = "Load_Select_Al ternatives_Form "
Call Highlight_Defau lts
End Sub

The RowSource "Load_Select_Al ternatives_Form " is a query that populates the listbox. Then I have this sub to change the values displayed depending upon which tab is selected:

Sub TabControl_Chan ge()
If TabControl.Valu e = 0 Then
FundAlternative sList.RowSource = "Load_Select_Al ternatives_Form "
FundAlternative sList.ColumnCou nt = 3
Tab_Label1.Capt ion = "Select Alternatives from the Select List"
Call Highlight_Defau lts
Else
FundAlternative sList.RowSource = "Select_Gap_Fun ds"
FundAlternative sList.ColumnCou nt = 1
Tab_Label1.Capt ion = "Select Alternatives from the Revenue Sharing
List"
End If
End Sub

This works fine too. But the whole point of the two tabs is to allow one to choose funds from two different sources. If someone is on tab #1 and clicks a button to run a sub based on the funds that are selected, that sub works
fine. But if they then click on tab #2 immediately after that is finished
running, the listbox is empty.

Reclicking on tab1 and then tab2 refreshes it properly, but that is not the way it is supposed to work. I have stepped through the code and watched it go right through the command that should refresh the data, but nothing
happens.

Can anyone tell me why this is occurring?

[david epsom dot com dot au]

> After setting/changing the rowsource of the listbox/combo box try
requerying

it (i.e.. Me.mylistbox.Re query)
And if that doesn't work, refresh the count:

v = me.mylistbox.Li stCount

Getting the count actually forces it to collect all of the rows, like
MoveLast.

(david)
"Reggie" <no**********@s mittysinet.com> wrote in message
news:jv******** ************@co mcast.com... After setting/changing the rowsource of the listbox/combo box try requerying it (i.e.. Me.mylistbox.Re query)

--
Reggie

www.smittysinet.com
----------
"Colleyvill e Alan" <ae***********@ nospam.comcast. net> wrote in message
news:MXBoc.3651 1$z06.5767180@a ttbi_s01...

I have an app in which users are displayed a list of mutual fund from which

they can choose. There is a listbox embedded in a two-tabbed notebook
control. When the form is initally opened, the listbox loads info:

Private Sub Form_Open(Cance l As Integer)
TabControl.Valu e = 0
Tab_Label1.Capt ion = "Select Alternatives from the Select List"
FundAlternative sList.RowSource = "Load_Select_Al ternatives_Form "
Call Highlight_Defau lts
End Sub

The RowSource "Load_Select_Al ternatives_Form " is a query that populates

the

listbox. Then I have this sub to change the values displayed depending

upon

which tab is selected:

Sub TabControl_Chan ge()
If TabControl.Valu e = 0 Then
FundAlternative sList.RowSource = "Load_Select_Al ternatives_Form "
FundAlternative sList.ColumnCou nt = 3
Tab_Label1.Capt ion = "Select Alternatives from the Select List"
Call Highlight_Defau lts
Else
FundAlternative sList.RowSource = "Select_Gap_Fun ds"
FundAlternative sList.ColumnCou nt = 1
Tab_Label1.Capt ion = "Select Alternatives from the Revenue Sharing List"
End If
End Sub

This works fine too. But the whole point of the two tabs is to allow one to

choose funds from two different sources. If someone is on tab #1 and

clicks

a button to run a sub based on the funds that are selected, that sub

works fine. But if they then click on tab #2 immediately after that is finished running, the listbox is empty.

Reclicking on tab1 and then tab2 refreshes it properly, but that is not

the

way it is supposed to work. I have stepped through the code and watched

it

go right through the command that should refresh the data, but nothing
happens.

Can anyone tell me why this is occurring?

[Colleyville Alan]

"david epsom dot com dot au" <david@epsomdot comdotau> wrote in message
news:40******** **************@ news.syd.swiftd sl.com.au...

After setting/changing the rowsource of the listbox/combo box try

requerying

it (i.e.. Me.mylistbox.Re query)

And if that doesn't work, refresh the count:

v = me.mylistbox.Li stCount

Getting the count actually forces it to collect all of the rows, like
MoveLast.

(david)
"Reggie" <no**********@s mittysinet.com> wrote in message
news:jv******** ************@co mcast.com...

After setting/changing the rowsource of the listbox/combo box try

requerying

it (i.e.. Me.mylistbox.Re query)

--
Reggie

Thanks for the try, but neither solution worked. The listbox goes blank
when it hits the line:
FundAlternative sList.RowSource = "Select_Gap_Fun ds"

That is the same line of code that works when the box is first opened and
the user clicks on the tab. It also works after the box goes blank on that
command but then the first tab is clicked and the second tab is clicked once
again.

But while stepping through the code, I noticed that the block of code for
the first tab:

If TabControl.Valu e = 0 Then
FundAlternative sList.RowSource = "Load_Select_Al ternatives_Form " FundAlternative sList.ColumnCou nt = 3
Tab_Label1.Capt ion = "Select Alternatives from the Select List" Call Highlight_Defau lts
Also set the listbox blank (almost) and that my sub Highlight_Defau lts
(which selects funds that were highlighted on a spreadsheet) was what reset
the listbox. When I said it almost sets the box blank - once column is
displayed even though there are three columns. In fact, the third column is
the only one showing. I see that my code sets the ColumnCount to 3, and
that is what I want - 3 columns to show. But not column #3 in the first
position! And after the call to Highlight_Defau lts, the ColumnCount
actually is 3 with each field in the correct position.

Does this sound like a familiar problem? It sure seems that there is
something odd here!

BTW, I tried using each command separately and together both before and
after setting the rowsource property.

www.smittysinet.com
----------
"Colleyvill e Alan" <ae***********@ nospam.comcast. net> wrote in message
news:MXBoc.3651 1$z06.5767180@a ttbi_s01...

I have an app in which users are displayed a list of mutual fund from

which

they can choose. There is a listbox embedded in a two-tabbed notebook
control. When the form is initally opened, the listbox loads info:

Private Sub Form_Open(Cance l As Integer)
TabControl.Valu e = 0
Tab_Label1.Capt ion = "Select Alternatives from the Select List"
FundAlternative sList.RowSource = "Load_Select_Al ternatives_Form "
Call Highlight_Defau lts
End Sub

The RowSource "Load_Select_Al ternatives_Form " is a query that

populates

the

listbox. Then I have this sub to change the values displayed

depending upon

which tab is selected:

Sub TabControl_Chan ge()
If TabControl.Valu e = 0 Then
FundAlternative sList.RowSource =

"Load_Select_Al ternatives_Form " FundAlternative sList.ColumnCou nt = 3
Tab_Label1.Capt ion = "Select Alternatives from the Select List" Call Highlight_Defau lts
Else
FundAlternative sList.RowSource = "Select_Gap_Fun ds"
FundAlternative sList.ColumnCou nt = 1
Tab_Label1.Capt ion = "Select Alternatives from the Revenue

Sharing List"
End If
End Sub

This works fine too. But the whole point of the two tabs is to allow one

to

choose funds from two different sources. If someone is on tab #1 and

clicks

a button to run a sub based on the funds that are selected, that sub

works fine. But if they then click on tab #2 immediately after that is finished running, the listbox is empty.

Reclicking on tab1 and then tab2 refreshes it properly, but that is

not the

way it is supposed to work. I have stepped through the code and

watched it

go right through the command that should refresh the data, but nothing
happens.

Can anyone tell me why this is occurring?

[Colleyville Alan]

"Colleyvill e Alan" <ae***********@ nospam.comcast. net> wrote in message
news:OTJoc.3935 0$536.7125415@a ttbi_s03...

Also set the listbox blank (almost) and that my sub Highlight_Defau lts
(which selects funds that were highlighted on a spreadsheet) was what reset the listbox. When I said it almost sets the box blank - once column is
displayed even though there are three columns. In fact, the third column is the only one showing. I see that my code sets the ColumnCount to 3, and
that is what I want - 3 columns to show. But not column #3 in the first
position! And after the call to Highlight_Defau lts, the ColumnCount
actually is 3 with each field in the correct position.

Does this sound like a familiar problem? It sure seems that there is
something odd here!

BTW, I tried using each command separately and together both before and
after setting the rowsource property.

Never mind, I found the problem. It seems that having the line that sets
the ColumnCount:
FundAlternative sList.ColumnCou nt = 1
after the code that sets the RowSource property is the problem. Putting it
before that code executes fixes it.

So this does not work:
Else
FundAlternative sList.RowSource = "Select_Gap_Fun ds"
FundAlternative sList.ColumnCou nt = 1
Tab_Label1.Capt ion = "Select Alternatives ..."
End If

But this does:
Else
FundAlternative sList.ColumnCou nt = 1
FundAlternative sList.RowSource = "Select_Gap_Fun ds"
Tab_Label1.Capt ion = "Select Alternatives ..."
End If

Does anyone know why that is the case? I'm happy to have a solution, but
I'm also trying to understand the logic.

[Reggie]

Glad you fixed it. Didn't notice your sequence at first. I believe once
you start changing the properties (column count) it resets the control. If
you think about it, it makes sense. Lets assume your other piece of code
which changes it from 1 column to 3. The first thing you "were" doing was
trying to cram 3 columns of data into a 1 column listbox, then you were
adding the other 2 columns. Not much of an answer, but just trying to
figure it out and this "seems" to be a logical answer.

--
Reggie

www.smittysinet.com
----------
"Colleyvill e Alan" <ae***********@ nospam.comcast. net> wrote in message
news:H0Koc.243$ Dz.58013@attbi_ s52...

"Colleyvill e Alan" <ae***********@ nospam.comcast. net> wrote in message
news:OTJoc.3935 0$536.7125415@a ttbi_s03...

Also set the listbox blank (almost) and that my sub Highlight_Defau lts
(which selects funds that were highlighted on a spreadsheet) was what reset

the listbox. When I said it almost sets the box blank - once column is
displayed even though there are three columns. In fact, the third

column is

the only one showing. I see that my code sets the ColumnCount to 3, and
that is what I want - 3 columns to show. But not column #3 in the first
position! And after the call to Highlight_Defau lts, the ColumnCount
actually is 3 with each field in the correct position.

Does this sound like a familiar problem? It sure seems that there is
something odd here!

BTW, I tried using each command separately and together both before and
after setting the rowsource property.
Never mind, I found the problem. It seems that having the line that sets
the ColumnCount:
FundAlternative sList.ColumnCou nt = 1
after the code that sets the RowSource property is the problem. Putting

it before that code executes fixes it.

So this does not work:
Else
FundAlternative sList.RowSource = "Select_Gap_Fun ds"
FundAlternative sList.ColumnCou nt = 1
Tab_Label1.Capt ion = "Select Alternatives ..."
End If

But this does:
Else
FundAlternative sList.ColumnCou nt = 1
FundAlternative sList.RowSource = "Select_Gap_Fun ds"
Tab_Label1.Capt ion = "Select Alternatives ..."
End If

Does anyone know why that is the case? I'm happy to have a solution, but
I'm also trying to understand the logic.

[Colleyville Alan]

"Reggie" <no**********@s mittysinet.com> wrote in message
news:Q5******** ************@co mcast.com...

Glad you fixed it. Didn't notice your sequence at first. I believe once
you start changing the properties (column count) it resets the control. If you think about it, it makes sense. Lets assume your other piece of code
which changes it from 1 column to 3. The first thing you "were" doing was
trying to cram 3 columns of data into a 1 column listbox, then you were
adding the other 2 columns. Not much of an answer, but just trying to
figure it out and this "seems" to be a logical answer.
Well I thought it worked - sometimes it does and sometimes it does not.
I've stepped through the code and the correct lines are being executed, the
variables are being set. But they simply do not seem to affect anything. I
have to re-write this section anyway, so I may not have this problem when I
am done. But for now, it seems intermittent, though there is probably an
underlying pattern that I am missing.

CA

--
Reggie

www.smittysinet.com
----------
"Colleyvill e Alan" <ae***********@ nospam.comcast. net> wrote in message
news:H0Koc.243$ Dz.58013@attbi_ s52...

"Colleyvill e Alan" <ae***********@ nospam.comcast. net> wrote in message
news:OTJoc.3935 0$536.7125415@a ttbi_s03...

Also set the listbox blank (almost) and that my sub Highlight_Defau lts
(which selects funds that were highlighted on a spreadsheet) was what

reset

the listbox. When I said it almost sets the box blank - once column is displayed even though there are three columns. In fact, the third column

is

the only one showing. I see that my code sets the ColumnCount to 3, and that is what I want - 3 columns to show. But not column #3 in the first position! And after the call to Highlight_Defau lts, the ColumnCount
actually is 3 with each field in the correct position.

Does this sound like a familiar problem? It sure seems that there is
something odd here!

BTW, I tried using each command separately and together both before and after setting the rowsource property.

Never mind, I found the problem. It seems that having the line that

sets the ColumnCount:
FundAlternative sList.ColumnCou nt = 1
after the code that sets the RowSource property is the problem. Putting

it

before that code executes fixes it.

So this does not work:
Else
FundAlternative sList.RowSource = "Select_Gap_Fun ds"
FundAlternative sList.ColumnCou nt = 1
Tab_Label1.Capt ion = "Select Alternatives ..."
End If

But this does:
Else
FundAlternative sList.ColumnCou nt = 1
FundAlternative sList.RowSource = "Select_Gap_Fun ds"
Tab_Label1.Capt ion = "Select Alternatives ..."
End If

Does anyone know why that is the case? I'm happy to have a solution, but I'm also trying to understand the logic.

[david epsom dot com dot au]

> Well I thought it worked - sometimes it does and sometimes it does not.

Also watch for errors caused by binding to an empty recordset.
As you know, the detail section of a form is not rendered if
the form is bound to an empty recordset: sometimes there are
problems associated with this.

(david)
"Colleyvill e Alan" <ae***********@ nospam.comcast. net> wrote in message
news:Zt3pc.4762 8$z06.6823157@a ttbi_s01...

"Reggie" <no**********@s mittysinet.com> wrote in message
news:Q5******** ************@co mcast.com...

Glad you fixed it. Didn't notice your sequence at first. I believe once

you start changing the properties (column count) it resets the control. If

you think about it, it makes sense. Lets assume your other piece of code
which changes it from 1 column to 3. The first thing you "were" doing was trying to cram 3 columns of data into a 1 column listbox, then you were
adding the other 2 columns. Not much of an answer, but just trying to
figure it out and this "seems" to be a logical answer.

Well I thought it worked - sometimes it does and sometimes it does not.
I've stepped through the code and the correct lines are being executed,

the variables are being set. But they simply do not seem to affect anything. I have to re-write this section anyway, so I may not have this problem when I am done. But for now, it seems intermittent, though there is probably an
underlying pattern that I am missing.

CA

--
Reggie

www.smittysinet.com
----------
"Colleyvill e Alan" <ae***********@ nospam.comcast. net> wrote in message
news:H0Koc.243$ Dz.58013@attbi_ s52...

"Colleyvill e Alan" <ae***********@ nospam.comcast. net> wrote in message
news:OTJoc.3935 0$536.7125415@a ttbi_s03...
> Also set the listbox blank (almost) and that my sub Highlight_Defau lts > (which selects funds that were highlighted on a spreadsheet) was what reset
> the listbox. When I said it almost sets the box blank - once column is > displayed even though there are three columns. In fact, the third

column

is
> the only one showing. I see that my code sets the ColumnCount to 3, and > that is what I want - 3 columns to show. But not column #3 in the first > position! And after the call to Highlight_Defau lts, the ColumnCount
> actually is 3 with each field in the correct position.
>
> Does this sound like a familiar problem? It sure seems that there is > something odd here!
>
> BTW, I tried using each command separately and together both before and > after setting the rowsource property.

Never mind, I found the problem. It seems that having the line that sets the ColumnCount:
FundAlternative sList.ColumnCou nt = 1
after the code that sets the RowSource property is the problem.

Putting it

before that code executes fixes it.

So this does not work:
Else
FundAlternative sList.RowSource = "Select_Gap_Fun ds"
FundAlternative sList.ColumnCou nt = 1
Tab_Label1.Capt ion = "Select Alternatives ..."
End If

But this does:
Else
FundAlternative sList.ColumnCou nt = 1
FundAlternative sList.RowSource = "Select_Gap_Fun ds"
Tab_Label1.Capt ion = "Select Alternatives ..."
End If

Does anyone know why that is the case? I'm happy to have a solution,

but I'm also trying to understand the logic.