|
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim strSQL As String
Dim lngID 'As Boolean (这个变量定义为string或boolean或long,都会提示下面的isnull定义错,不定义类型就没问题,为什么呢?)
lngID = DLookup("AutoNum", "tbl编号", "Date=#" & Date & "#")
If IsNull(lngID) Then
Set Conn = CurrentProject.Connection
strSQL = "SELECT * FROM tbl编号;"
Rs.Open strSQL, Conn, adOpenDynamic, adLockOptimistic
Rs.AddNew
Rs("AutoNum") = 0
Rs("Date") = Date
Rs.Update
Rs.close
Set Rs = Nothing
Set Conn = Nothing
lngID = 0
End If
Me.送货单号 = "JA" & Right(Year(Date), 1) & Format(Date, "mmdd") & Format(lngID + 1, "00") |
|