Private Sub 修改_Click()
On Error GoTo Err_修改_Click
Dim I As Integer
Dim STemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
STemp = "select * from 学生基本信息表"
rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If IsNull(Me![学号]) Then
MsgBox "请输入“学号”它不可以为空 ！ ", vbCritical, "提示："
Me.学号.SetFocus
Exit Sub
End If
If MsgBox("你要修改记录吗 ？", vbExclamation + vbYesNo, "修改提示") = vbYes Then
rs.MoveFirst
For I = 1 To rs.RecordCount
If rs("编号") = Me![编号] Then
rs("学号") = Me![学号]
rs("性别") = Me![性别]
rs("联系电话") = Me![联系电话]
rs("出生年月") = Me![出生年月]
rs("家庭住址") = Me![家庭住址]
rs("姓名") = Me![姓名]
rs("专业") = Me![专业]
rs("班级") = Me![班级]
rs("备注") = Me![备注]
rs.Update
MsgBox "修改成功!", , "修改提示!"
Exit Sub
Else
rs.MoveNext
End If
Next I
End If
rs.Close
Set rs = Nothing
Exit_修改_Click:
Exit Sub
Err_修改_Click:
MsgBox Err.Description
Resume Exit_修改_Click
End Sub
