Trouble adding new record to Access DB

[Rick LV]

I keep getting "Compile Error - Method or data member not found" for .AddNew in my code. What am I doing wrong here?

Dim sql As String
adcPayroll.CommandType = adCmdText
sql = "SELECT * FROM Employees_pay"
adcPayroll.RecordSource = sql
adcPayroll.Refresh
adcPayroll.AddNew
    adcPayroll!FirstName = txtFirstName.Text
    adcPayroll!LastName = txtLastName.Text
    adcPayroll!DepartmentName = cmbDepartment.Text
    adcPayroll!Shift = lstShift.Text
    adcPayroll!SocialSecurityNumber = mskID.Text
    adcPayroll!Salary = txtSalary.Text
    adcPayroll!PayrollEndingDate = mskDate.Text
    adcPayroll!Dependents = lstDependents.Text
    adcPayroll!HoursWorked = txtHours.Text
    adcPayroll!Shift = lstShift.Text
    adcPayroll.Update
End Sub

[AmmerBow]

    Dim Db As ADODB.Connection
    Set Db = New ADODB.Connection
    With Db
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Open "c:\accessdatabase.mdb"
    End With

    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    
    rs.Open "Select * From [Employees_pay]", Db, adOpenKeyset, adLockOptimistic

adcPayroll.AddNew
    adcPayroll!FirstName = txtFirstName.Text
    adcPayroll!LastName = txtLastName.Text
    adcPayroll!DepartmentName = cmbDepartment.Text
    adcPayroll!Shift = lstShift.Text
    adcPayroll!SocialSecurityNumber = mskID.Text
    adcPayroll!Salary = txtSalary.Text
    adcPayroll!PayrollEndingDate = mskDate.Text
    adcPayroll!Dependents = lstDependents.Text
    adcPayroll!HoursWorked = txtHours.Text
    adcPayroll!Shift = lstShift.Text
    adcPayroll.Update
End Sub

[AmmerBow]

If this code is inside Access and not VB then use

    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    
    rs.Open "Select * From [Employees_pay]", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

adcPayroll.AddNew
    adcPayroll!FirstName = txtFirstName.Text
    adcPayroll!LastName = txtLastName.Text
    adcPayroll!DepartmentName = cmbDepartment.Text
    adcPayroll!Shift = lstShift.Text
    adcPayroll!SocialSecurityNumber = mskID.Text
    adcPayroll!Salary = txtSalary.Text
    adcPayroll!PayrollEndingDate = mskDate.Text
    adcPayroll!Dependents = lstDependents.Text
    adcPayroll!HoursWorked = txtHours.Text
    adcPayroll!Shift = lstShift.Text
    adcPayroll.Update
End Sub

[McGenius]

You'd need to declare or set your object variable as new adodb.recordset first and then try to open.

assuming your connection (adoCNN) is already open then:
Set adcPayroll = New ADODB.recordset
adcPayroll.Open strSQL, adoCNN

[Rick LV]

I am still getting the same error for some reason.

[Rick LV]

Basically when I type adcPayroll. and all the options come up in the drop down box, "AddNew" isn't there. Is there some sort of property I need to change?

[Armbruster]

is adcPayroll an ado control? if yes, it should be . . .

adcPayroll.Recordset.AddNew

That should get you going, but to save headaches in the future, learn ADO. Because if I've said it once, I've said it a thousand times . . . DATA-BOUND CONTROLS SUCK!

[Rick LV]

Originally posted by Armbruster
is adcPayroll an ado control? if yes, it should be . . .

adcPayroll.Recordset.AddNew

That should get you going, but to save headaches in the future, learn ADO. Because if I've said it once, I've said it a thousand times . . . DATA-BOUND CONTROLS SUCK!

Thanks.