- 当我们 进入到修改课程的时候, 各个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 都不会再出现。、
- 当没有记录 要修改该记录时。 这样就可以提示框
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