Populating a Combo Box 1

[carpetbelly]

Hi,

I'm struggling with a bit of code in my database at the moment.

Unless it's a reference error I cannot see why it isn't working (tuesday morning blues otherwise hehe)

I just cannot get the .additem to work. It isn't even an option to do on my combo box.

Private Sub form_load()
Set mc = New clsMonthCal
mc.hWndForm = mc.hWnd
Me.txtEndDate.Enabled = False



Set cnn = CurrentProject.Connection

Set rst = New ADODB.Recordset
rst.Open "SELECT [StaffName] FROM tblStaff ORDER BY [StaffName];", cnn, adOpenStatic
rst.MoveLast
rst.MoveFirst

With Me.cmbName.Value = ""
        Do
            .additem rst![StaffName]
            rst.MoveNext
        Loop Until rst.EOF
End With

End Sub

 

[KenReay]

Should it be

WHILE Me.cmbName.Value = ""
Do
.additem rst![StaffName]
rst.MoveNext
Loop Until rst.EOF
End WHILE

but why not simply

SET Me.cmbName.recordset = rst


Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[carpetbelly]

Thanks for that, at least that's what I tried at first. I cant seem to have access to the .rescordset property of the combo box or to perform .additem either.

 

[lewds]

Hi...

Prior to version Access 2002, the additem method was not available.(straight form Microsoft)

You should probably use rowsource property when assigning a recordset to a combobox(personal preference)

 

[carpetbelly]

Ahhh typical, serves me right for using 2002 at home and in my new job being given 2000 =P