problem in Combo Box

[ram_Sathish]

Hi all,

I have two fields one is text box and the other one is a combo box. The text box is called total no.of pages and the combo box is called page no.

The moment i enter a number in the text box then it should be created that many rows in a combo box.

Let me explain through an example. When i entered the number 50 in the text box then the combo box should capture / show me like

Page 1 of 50
Page 2 of 50
.
.
.
Page 50 of 50

Similarly if i enter a number say 45 it has to show

Page 1 of 45
Page 2 of 45
.
.
.
Page 45 of 45


I think do loop or for statment will help me. Am i Correct?

Anyone please help me.


Thanks in advance.


Regards,


Ramsathish S

 

[Andrew Fergus]

Hi

Try using something like this in the after update event of the text box that contains the number of pages :

Private Sub MyTextBox_AfterUpdate()

Dim TotCount As Integer, LoopCount As Integer

TotCount = Nz(Me.MyTextBox.Value)

If TotCount = 0 Then
    MyComboBox.Enabled = False
Else
    MyComboBox.Enabled = True
    MyComboBox.RowSource = ""
    MyComboBox.RowSourceType = "Value List"
    For LoopCount = 1 To TotCount
        MyComboBox.AddItem LoopCount & " of " & TotCount
    Next LoopCount
End If

End Sub

Make sure you use your actual text box and combo box names where I have used MyTextBox and MyComboBox.

You will need to add error checking to pick up if the user has entered non-numerical characters into the text box.

HTH, Andrew

 

[ram_Sathish]

Thanks Andrew,

I got it.

Once again thanks a lot.