Update new record 1

[goobil]

Hi all,
I am working on the form that list employee hours and i have add a save button
But what i want is when i press the save button the record is save to a new table so i can run the report from that table

Kenneth
kennethg@act2000.net

 

[Rolliee]

Open the table and add the data. I am sure there is code in the FAQ that will show you how to do that. All the tipmasters have written the code in answer dozens of times.


Rollie E

 

[Rolliee]

I just checked and did not find one soooo....


dim rs as dao.recordset

set rs = currentdb.openrecordset("NuTable&quot

rs.addnew
rs("FieldOne&quot = me![FieldOne]
rs("FieldTwo&quot = me![FieldTwo]
.... ditto other fields ....
rs.update
rs.close
set rs = nothing

This should do it.

Rollie E

 

[goobil]

Thanks Rolliee
I have a clear understand know of what im doing but i am getting a "TYPE MISMATCH" Error.
Below is the code behind the save button.

option Compare Database
Option Explicit

Private Sub Comsave_Click()
On Error GoTo Err_Comsave_Click
Dim xname As String
Dim xreghours As Integer
Dim xovertime1 As Integer
Dim xovertime2 As Integer
Dim xSick As Integer
Dim rs As ADODB.Recordset
'Dim rs As DAO.Recordset

Set rs = CurrentDb.Openrecordset("update_employee&quot

xname = Me.Cbo21
xreghours = Me.RegHoure
xovertime1 = Me.OTx1
xovertime2 = Me.OTx2
xSick = Me.sick_hrs

If IsNull(Me.Cbo21) Then
MsgBox "Pleaase select a employee name."
Exit Sub
End If
If IsNull(Me.RegHoure) Then
MsgBox "Please Enter the Regular hours"
Exit Sub
End If

rs.AddNew
rs("fullname&quot = Me!xname
rs("reghours&quot = Me!xRegHoure
rs("overtime1&quot = Me!xovertime1
rs("overtime2&quot = Me!xovertime2
rs("sick&quot = Me!xSick


'rs("FieldTwo&quot = Me![FieldTwo]
rs.update
'DoCmd.GoToRecord , , acNewRec

rs.Close
Set rs = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Comsave_Click:
Exit Sub

Err_Comsave_Click:
MsgBox Err.Description
Resume Exit_Comsave_Click

End Sub

 

[Rolliee]

You forgot to go to the design mode and press Tools/ References and place a check in the MS DAO 3.6 Library. You are using the DAO protocol and your computer is using the ADO. That check mark will pu things right.

Glad you understood it.


Rollie E

If this is helpful click the "Mark this post as helpful..."

 

[goobil]

Yes that work and thanks allot


And thanks every one

Kenneth
kennethg@act2000.net