我用adodc控件连接数据库后,设置了新增后自动编号,数据库有数据的时候运行无问题,但是当数据库只有一个表,没有数据时就提示![](http://imgsrc.baidu.com/forum/w%3D580/sign=8817c123a9773912c4268569c8188675/5415728b4710b912b6e87160c3fdfc0392452203.jpg)
源码如下,希望有人能帮我解决,非常感谢
Private Sub Command1_Click()
Dim c As String '定义变量
c = Format$(Now(), "yyyymmdd") '当前日期字符
sn = Adodc1.Recordset.Fields("产品 ID").Value Adodc1.Recordset.MoveLast '最后一条记录
If c <> Mid$(sn, 1, 8) Then '与最后一条记录比较
Adodc1.Recordset.AddNew
sn = c & "01"
T1 = sn
Else
Adodc1.Recordset.AddNew
sn = Right$(sn, 10) + 1
T1 = sn
End If
End Sub
![](http://imgsrc.baidu.com/forum/w%3D580/sign=8817c123a9773912c4268569c8188675/5415728b4710b912b6e87160c3fdfc0392452203.jpg)
源码如下,希望有人能帮我解决,非常感谢
Private Sub Command1_Click()
Dim c As String '定义变量
c = Format$(Now(), "yyyymmdd") '当前日期字符
sn = Adodc1.Recordset.Fields("产品 ID").Value Adodc1.Recordset.MoveLast '最后一条记录
If c <> Mid$(sn, 1, 8) Then '与最后一条记录比较
Adodc1.Recordset.AddNew
sn = c & "01"
T1 = sn
Else
Adodc1.Recordset.AddNew
sn = Right$(sn, 10) + 1
T1 = sn
End If
End Sub