[RESOLVED] Another Access VBA RS Question

[FishGuy]

I am getting an invalid operation error on the underlined section of code. I cant understand it im copying straight from a book for this stuff and the book always seems to be wrong.

rs.Open strSQL, cnn, adOpenDynamic, adLockOptimistic, adCmdText
StatetoAdd = Me.lstStateList.ListIndex
With rs
[U].AddNew[/U]!FK_State = StatetoAdd
.Update
.Close
Populate_lstEmpStates
End With

[RobDog888]

rs.Open strSQL, cnn, adOpenDynamic, adLockOptimistic, adCmdText
StatetoAdd = Me.lstStateList.ListIndex
With rs
    .AddNew
    .Fields("FK_State").Value = StatetoAdd
    .Update
    .Close
    Populate_lstEmpStates
End With

[FishGuy]

I still get the error Invalid operation on the .AddNew Line

rs.Open strSQL, cnn, adOpenDynamic, adLockOptimistic, adCmdText
StatetoAdd = Me.lstStateList.ListIndex
With rs
    .AddNew
    .Fields("FK_State").Value = StatetoAdd
    .Update
    .Close
    Populate_lstEmpStates
End With

[FishGuy]

I have changes the underlying record sets SQL to a more simlple - select star from employee states which clears the above error but sticks on the .update line with ODBC call failed. any ideas..

[si_the_geek]

Are there other fields in the table which need to be set? (ie: do not allow Null)

If so, you'll need to add more lines like .Fields("FK_State").Value = StatetoAdd

[FishGuy]

Yes Si that was the problem... Cheers.