Recent content by James Dudden

Nice job! Thanks for posting back.

Would it help to know the screen size? If so this link should help http://stackoverflow.com/questions/11843310/how-to-retrieve-screen-size-resolution-in-ms-access-vba-to-re-size-a-form

...also, this may be a genuine error so I would recommend compiling your database from the VBA window.

Are you using Access 2010? I have seen this error randomly occur in several databases and it normally goes away if I open the form in design view and then close the form and then dbl-click to open the form from the side bar. Or just do a compact. Something like that.... I haven't figured out an...

I think he's trying to add a value to a control on the open. I assume you have gone to a new record?

I would dbl-check all the names of the controls in your code to make sure they are spelled correctly and exist. Also make sure you are not trying to add a value to a calculated control.

It could be the use 'Windows Themed controls' is ticked in one database and not the other. Look in the Current Database section of Options in 2010 and Tools/Options in 2003

Your example above is different to the working one so I would suggest making them them same. Then see where your at...

Thanks for posting back as I was going to have another look at this shortly. Oh, and well done for figuring it out. Always the best way to learn :)

Is database1 the database you have open and are trying to run code in? If so then you don't need to re-open it. All you need is to set the recordset with teh current database as below: CurrentDb.OpenRecordset "SELECT * FROM employees"

As Cronk pointed out the code was lacking a .Edit and .Update which I have now added below. As for the error - again as Cronk says - it is due to a field being missing from your recordset. So either ![txtQuantity_Called_Off] or ![Quantity] is not in your recordset. Private Sub...

The error is because you are trying to open the database that is already open? What exactly are you trying to achieve here?

Try this: Private Sub cmdComplete_Call_Click() With Me.fsub_Call_Off_Quantities.Form.RecordsetClone If .RecordCount <> 0 Then .MoveFirst Do Until .EOF ![txtQuantity_Called_Off] = ![Quantity] .MoveNext Loop End If End With End Sub

It may be because you are doing it in VBA and therefore the AfterUpdate of the textbox doesn't run to confirm a new entry has been made. You could try saving the data once it is in the textbox using DoCmd.RunCommand acCmdSaveRecord

How many records to you expect to have? If it's only a few 1000 you have nothing to worry about. If it's nearer 1,000,000 then you may want to split it out and save valuable storage space.