Urgent help needed!!!!

[louisa]

Hi Everyone,

I have a Split Database and i have been trying to arrange for one value in a field to duplicate in another, post is called (

Duplicating a value from one field to another)
After trying to get the below coding to work:
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("KitCost", dbOpenTable)
Do Until rst.EOF
rst.MoveFirst
If rst.Fields("TotalKitCost").Value > 0 Then
esle: rst.Edit
rst.Fields("TotalKitCost").Value = Me.Text8.Value
rst.Update
End If
rst.MoveNext
Loop

i found that you could not use the "dbOpenTable in a split database and you should use "dbOpenDynaset" after changing this information and saving i can no longer even get into my database.
This is a shared db on a server but only i have edited it on the network, if i attempt to gain access through the network and click the database the curser just scrolls and scrolls and it then states Not Responding, does anyone know if what i have done has affected this and how i can get back into it?

 

[JamesMcS]

I'm a bit green to DAO stuff but are you not supposed to close the objects after playing with them? Don't know but maybe a reboot of the PC the DB is on will help... And, again guessing here, but you might have to delete the .ldb files before re-opening the DB.

 

[louisa]

I have deleted the ldb files and rebooted but it is still not working.

 

[JamesMcS]

That's me out of ideas then, sorry!

Does everyone else who uses the DB have this problem?

Oh - try holding down shift when opening the DB. That bypasses any startup forms etc... but if it's got objects left open then that might not help.

 

[louisa]

Thank you so much by holding the shift down i managed to get in and delete the code. You are a life saver.

 

[JamesMcS]

Hooray for shift! Glad it worked... I can live without those "oh my good god" moments