John Henry

I am using the code below to try and put some records into a database. It runs through all the code without reporting any errors, but for some reason it won't work. When I view the table it's supposed to be editing, there's nothing but a couple of 0s in a couple of fields. Any ideas?


Private Sub cmdAdd_Click()

Dim strDbName As String
Dim dbDatabase As Database, rsProperty As Recordset
strDbName = App.Path & "\EstateAgent.mdb"
Set dbDatabase = DBEngine.Workspaces(0).OpenDatabase(strDbName)
Set rsProperty = dbDatabase.OpenRecordset("properties")

rsProperty.AddNew

rsProperty!Property_ref_no = txtPropertyRef.Text
rsProperty!Cl...

rsProperty.Update

rsProperty.Close
dbDatabase.Close

End Sub

Edit: I've just spotted that the fields which are coming up as 0 are the ones which are being read from the comboboxes, so something is obviously going in there.

I also tried adding a record from within access, then writing a similar bit of code to this to read it. That didn't work either.

__________________
"No one was behaving from very Buddhist motives. Then, thought Pigsy, he was hardly a Buddha, nor was he a monkey. Presently, he was a pig spirit changed into a little girl pretending to be a little boy to be offered to a water monster. It was all very simple to a pig spirit."

magua

I'm confused. Are you unable to write code to read from this database, either?

Also, have you stepped through the code to make sure that the fields in the recordset are actually being set to the values you think they are -- is it possible they are legimitately being set to a bunch of empty strings and zeroes?