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."