error in loading dll

Question

access 2007 under windows 7

such a msg appears as soon as I want to insert, say, a combox in a form.

In addition I've got a runtime error 48 (at set...) at the following:

Private Sub Combo18_AfterUpdate()

    ' Find the record that matches the control.

    Dim rs As Object

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[id] = " & CStr(Nz(Me![Combo18], 0))

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Thanks for your help

Answer 1

Hi, Many thanks for your answer that was useful ... just to have allowed me to think of creating a new database by downloading one of the featured online templates. In design view, I immediately checked that I was able to create a combo box, without any fuss around - reply to my first question. In a second instance, I realised that, by downloading the template, I could have downloaded something missing in my access installation. It turn out to be true: my application worked ok after that, without "error in loading dll" and the subroutine worked as well. So my two querries were apparently linked. Thanks again. JG

Answer 2

For your errors with just inserting a combo box, I would suggest you try creating a new blank database, and then import everything from the old database. It sounds like the old database is corrupted or damaged. If after importing everything into a fresh just made database this still occurs, then I would run a detect and repair on your office install.

As for your 2nd question (probably would have been a good idea to post that as seperate, is it quite differnt from your 1st part/question).

In your code for some strange reason are using

Dim rst as object

The above means you not defining what type of object. You are MUCH better here to use

   Dim rs as DAO.RecordSet

After you change the above code, make SURE you do a debug->compile. You MUST remove any errors you get when you compile BEFORE you attempt to run your code.

Albert D. Kallal (Access MVP)

Edmonton, Alberta Canada

*** Email address is removed for privacy ***