Office中国论坛/Access中国论坛

标题: 关于超出项的的问题？ [打印本页]

作者: fxtest 时间: 2007-3-2 19:50
标题: 关于超出项的的问题？
一点通：

　　Private Sub Form_Current()
Dim rs As Recordset
Dim a As Integer

Set rs = Me.Recordset

a = rs.RecordCount

If a < 8 Then
Me.AllowAdditions = True
Else
Me.AllowAdditions = False
MsgBox "多余8项"
End If
End Sub

上面的老是出错，是那里出错了？还有简单的吗？

作者: 一点通 时间: 2007-3-2 20:09
请上传例子

作者: fxtest 时间: 2007-3-3 03:08
这句子有些窗体能用，有些不能用啊！！头痛啊！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)