AddNew/Update table

[Ann]

I am trying to have an AfterUpdate event on a text box in
a form that adds a record that you put in the text box to
a table. My code is:

Private Sub Text8_AfterUpdate()
Dim Sample_Date As Date
Dim rs As DAO.recordset

rs.AddNew [Sample_Date]
rs.UpDate [Sample_Date]

End Sub

where Sample_Date is the field to be updated.

Can someone help me with the code and/or suggest a good
VBA refernce book for a beginner? Thank you very much.

 

[Marshall Barton]

I am trying to have an AfterUpdate event on a text box in
a form that adds a record that you put in the text box to
a table. My code is:

Private Sub Text8_AfterUpdate()
Dim Sample_Date As Date
Dim rs As DAO.recordset

rs.AddNew [Sample_Date]
rs.UpDate [Sample_Date]

End Sub

where Sample_Date is the field to be updated.

Can someone help me with the code and/or suggest a good
VBA refernce book for a beginner? Thank you very much.

That should be more like:

Dim db As Database
Dim rs As DAO.recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("table")
rs.AddNew
rs![Sample_Date] = Me.thetextbox???
rs.UpDate
rs.Close
Set rs = Nothing
Set db = Nothing

There's actually a relevant example of this in Help - AddNew

Somehow, I get the feeling that this is not what you really
want to do to meet whatever need this code was attempting to
address.

I'm not familiar with beginner books, but maybe someone else
can make a suggestion.

 

[Guest]

Thanks,

I'll have to try it on Tuesday.

-----Original Message-----

I am trying to have an AfterUpdate event on a text box in
a form that adds a record that you put in the text box to
a table. My code is:

Private Sub Text8_AfterUpdate()
Dim Sample_Date As Date
Dim rs As DAO.recordset

rs.AddNew [Sample_Date]
rs.UpDate [Sample_Date]

End Sub

where Sample_Date is the field to be updated.

Can someone help me with the code and/or suggest a good
VBA refernce book for a beginner? Thank you very much.

That should be more like:

Dim db As Database
Dim rs As DAO.recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("table")
rs.AddNew
rs![Sample_Date] = Me.thetextbox???
rs.UpDate
rs.Close
Set rs = Nothing
Set db = Nothing

There's actually a relevant example of this in Help - AddNew

Somehow, I get the feeling that this is not what you really
want to do to meet whatever need this code was attempting to
address.

I'm not familiar with beginner books, but maybe someone else
can make a suggestion.