Please add the following code.
rst.update
after assigning values to the fields
Also instead of using rst.fields(0), --- you can use
rst.fields("fileno") which will be more legible and readable.
Private Sub cmdsave_Click()
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("select * from t_main")
rst.AddNew
rst.Fields(0) = txtfileno
rst.Fields(1) = txtempname
rst.Fields(2) = txtempdesign
rst.Fields(3) = txtdob
rst.Fields(4) = txtdoj
rst.Fields(5) = txtdor
rst.Fields(6) = ttotyrs
rst.Fields(7) = ttotmths
rst.Fields(8) = ttotdays
rst.Fields(9) = txtnonyrs
rst.Fields(10) = txtnonmths
rst.Fields(11) = txtnondays
rst.Fields(12) = txtnetyrs
rst.Fields(13) = txtnetmths
rst.Fields(14) = txtnetdays
rst.Update
End Sub
Regards,
Kishan Reddy, K
--
FORUM RULES (934+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
