自定义自动编号的问题

chuang0321

利用VBA语言,X代表需要递增的ID文本数据，y用于进行最后三位数的递增计算
Private Sub Form_Load()
Dim x As String
Dim y As Integer

x = "RA-100324-099"
y = Right(x, 3) + 1

If y < 10 Then
   x = Left(x, 12)
   Else
     If y >= 10 And y < 100 Then
       x = Left(x, 11)
       Else
         If y >= 100 Then
           x = Left(x, 10)
        End If
    End If
End If

MsgBox x & y   ;此处显示的结果就是递增后的结果，可以直接赋值给新的ID

End Sub

chuang0321

我在你的“订单_子”中加入了如下语句，可以实现该窗体id的自动增加，不过数据库数据录入、保存等其他问题需要你自己解决

Private Sub Form_Load()

Dim x As String
Dim y As Integer

If Me.NewRecord Then
If DCount("[订单ID]", "订单") = 0 Then
  订单ID = "RA-100324-001"
Else
x = DMax("[订单ID]", "订单")
y = Right(x, 3) + 1

If y < 10 Then
   x = Left(x, 12)
   Else
     If y >= 10 And y < 100 Then
       x = Left(x, 11)
       Else
         If y >= 100 Then
           x = Left(x, 10)
        End If
    End If
End If


订单ID = x & y
'MsgBox x & y   '此处显示的结果就是递增后的结果，可以直接赋值给新的ID
End If
End If
End Sub