msg = MsgBox("是否确定录用", vbYesNo, "确定录用") If msg = vbyes Then
If Adodc1.Recordset.Fields("是否录用") = -1 Then
msg = MsgBox("你已经录用", vbYesNo, "确定")
Else
Adodc1.Recordset.Fields("是否录用") = -1
Adodc1.Recordset.Update
End If
If Adodc1.Recordset.Fields("是否录用") = -1 Then
msg = MsgBox("你已经录用", vbYesNo, "确定")
Else
Adodc1.Recordset.Fields("是否录用") = -1
Adodc1.Recordset.Update
End If
该为
Adodc1.Recordset.UpdateBatch