VB初学者求注释
private sub 全部 _Click()
on Error GoTo EXIT1
Dim RST As Recordset 插入号码 As Single
Set RST = Ne![部品说明].Form.RecordsetCl one
RST.MoveLast
IF RST.RecordCount=7 Then
Beep
MsgBox
Exit Sub
End If
插入号码=RST.RecordCount + 1
If Isnul(Me![部品说明].Form![受注番号])Then
Beep
MsgBox
Exit Sub
End If
With RST
.AddNew
![部品说明]=Me![部品说明]
![数量]=0
.Update
.Close
End With
set RST=Nothinig
Me![部品说明].Requery
Me![部品说明].SetFocus
Exit Sub
参考答案:private sub 全部 _Click()
On Error GoTo EXIT1 '如果有错误,跳到exit1执行
Dim RST As Recordset 插入号码 As Single '定义一个记录集RST
Set RST = Ne![部品说明].Form.RecordsetCl one '给rst一个记录集,相当于给它赋值了
RST.MoveLast '移到尾记录
If RST.RecordCount = 7 Then '如果记录为7条
Beep '发出嘀一声响
MsgBox '显示消息框
Exit Sub '退出
End If
插入号码 = RST.RecordCount + 1 '给“插入号码”赋值
If Isnul(Me![部品说明].Form![受注番号]) Then '如果为空值
Beep
MsgBox
Exit Sub
End If
With RST '对RST操作
.AddNew '添加新记录
![部品说明] = Me![部品说明] '以下两条分别为给各字段赋值
![数量] = 0
.Update '修改记录
.Close ' 关闭记录集
End With
Set RST = Nothinig '释放记录集
Me![部品说明].Requery
Me![部品说明].SetFocus '相应的控件获得焦点
Exit Sub