I am working on a piece of code that updates a table field based on a value in an unbound listbox but am getting an error from line 22.
Error is: Run-time error '3061': Too few parameters. Expected 2.
I am sure that this is just a syntax issue but am not sure where I've gone wrong.
Private Sub Command12_Click()
'--- only process Save if there is data
If IsNull(ROLEUPDATE) Then
MsgBox "Please select a role."
'--- transfer data from text boxes to table fields
Dim myVar As Byte
myVar = MsgBox("Are you sure?", vbYesNo + vbQuestion)
If myVar = vbNo Then
MsgBox "Edit cancelled."
CurrentDb.Execute "Update ROSTER set MBR_ROLE=" & Me.ROLEUPDATE & " Where MBR_NAME=" & Me.Combo23