如何实现增加记录时,编号自动加一

tszysun

在做一些票据记录时,要记录票据编号,如何实现增加记录时,票据编号自己加一呀,而且有跳号时还可以自己输入
谢谢

qw7912

[em06]

lanchong

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Nz(ID) = 0 Then ' id没填时跳号
        Dim Rst2TBDBVEN As New ADODB.Recordset
       Dim strSQL As String
        
       strSQL = "SELECT TOP 25 Max(表1.ID) AS ID之Max FROM 表1"
        Rst2TBDBVEN.Open strSQL, CurrentProject.Connection, adOpenStatic
        If Rst2TBDBVEN.RecordCount > 0 Then
        
            ID = rst(0) + 1
        Else
            ID = 1 '第一个纪录为空时
        End If
End If


End Sub

fan0217

在坛子上有好多这样的例子，问问题前最好搜索一下。

yxl361

刚好用到,谢谢!

nxin

ding

nxin

good

nxin

可以下了!

gaofei186

好好看看