By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
432,462 Members | 799 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 432,462 IT Pros & Developers. It's quick & easy.

Run-time error 2176

P: 37
Hi all,

This has been bugging me for some time.

All I want it to do is a combo box and it doen't like me!!

Can anyone assist

Expand|Select|Wrap|Line Numbers
  1. Dim DescrSQL As String
  2. Dim db As DAO.Database
  3. Dim rs1 As DAO.Recordset
  4. Set db = CurrentDb()
  5. DescrSQL = "SELECT contacttype.ID, contacttype.Type FROM contacttype ORDER BY [ID];"
  6. Set rs1 = db.OpenRecordset(DescrSQL)
  7. rs1.MoveLast
  8. rs1.MoveFirst
  10. Do Until rs1.EOF
  11.     Combo106.AddItem rs1![ID]
  12. Loop
  14. rs1.Close
May 11 '07 #1
Share this Question
Share on Google+
1 Reply

P: 37
found out why, didn't do rs1.movenext
May 11 '07 #2

Post your reply

Sign in to post your reply or Sign up for a free account.