Я столкнулся с ошибкой времени выполнения '3075', не уверен, что пошло не так. Пожалуйста, помогите.
Private Sub btnUpdate_Click()
If Me.cobDepartment <> "" Then
CurrentDb.Execute "UPDATE tblSite " & _
" SET DepartmentID= " & Me.cobDepartment & _
" WHERE Payroll number=" & Me.Payroll_number.Value & ""
MsgBox "Updated"
Else
MsgBox "Select Department"
End If
End Sub