学生信息管理系统优化篇（三） 之修改课程提示

1. 当我们 进入到修改课程的时候， 各个text box控件 里的内容是不可修改的。 除非点完 修改记录， 其他的才会可以修改。当点击多次 上一条记录 ，一般都会 在第一条记录那 停止。 不会再变化， 也不会提示

这个是怎么实现的呢？

Private Sub previousCommand_Click()
  On Error GoTo 1
        mrc.MovePrevious
    If mrc.BOF Then
      MsgBox "已经是第一条记录了！"
    End If
    Call viewData
1:
  If Error = 3021 Then

  End If

End Sub

这样联 同 3021 都不会再出现。、

2. 当没有记录 要修改该记录时。 这样就可以提示框

Private Sub modifysinfo_Menu_Click()
   Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    txtSQL = "select * from student_Info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)

    If mrc.RecordCount = 0 Then
    MsgBox "当前没有记录，请添加记录"
    Exit Sub
    End If

    frmModifysinfo.Show

End Sub