我要手动按钮生成一个自动编号，，应该如何写代码？用的是平台的自动编号。

小清　发表于：2015-12-10 10:22:05 　

Private Sub autoPI_Click()
    
    Dim strSQL As String
    Dim rst As Object           'ADODB.Recordset
    Dim cnn As Object
    
    strSQL = "SELECT * FROM [tbl客户订单表] WHERE [PiNo]=" & SQLText(Me![PiNo])
    Set rst = OpenADORecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then
        rst.AddNew
        rst![PiNo] = GetAutoNumber("pino随机生成")
    End If
    

End Sub

Top

杨雪发表于：2015-12-10 10:23:32

Private Sub autoPI_Click()
Me.PiNo = GetAutoNumber("pino随机生成")
End Sub

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

[5分]我要手动按钮生成一个自动编号，，应该如何写代码？用的是平台的自动编号。