自定义自动编号的问题

loginwjd303

附档中我自定义自动编号为何老是出错,但将"ABC"改成"123"又可以.谢谢!
出错窗体为 订单_ADO事务
如何才能将其中的订单ID改成如 RA-100324-001 增量为1的自定义编号



解决如下:
Dim stID As String
    If IsNull(Me.OpenArgs) Then
             Dim day As String
       If IsNull(DLookup("订单ID", "订单")) Then           '检查表内是否有数据
            stID = "RK" & Format(Date, "yyyymm") & "001"
       Else
            day = Mid(DMax("订单ID", "订单"), 3, 6)          '取出编号中的日期
             If day = Format(Date, "yyyymm") Then                              '对比日期
                 stID = "RK" & Format(Date, "yyyymm") & Format(CLng(Mid(DMax("订单ID", "订单"), 9, 11) + 1), "000")
             Else
                 stID = "RK" & Format(Date, "yyyymm") & "001"
             End If
       End If
   
    Else
        stID = Me.OpenArgs
    End If

    Set mADOTransForm = New ADOTransForm
    mADOTransForm.InitForm Me, "Select * From 订单 Where 订单ID='" & stID & "'", Me.订单明细_子窗体, "Select * From 订单明细 Where 订单ID='" & stID & "'"

    If mADOTransForm.FormDataMode Then
        Me.Caption = "添加订单"
         Me.订单ID.DefaultValue = "'" & stID & "'"
    Else
        Me.Caption = "编辑订单"
    End If
   
  Me.订单明细_子窗体.Form.订单ID.DefaultValue = "'" & stID & "'"

在这里要感谢HI-WZJ版主一对一的辅导,版主当时提到引号的问题.对于帮助本帖的其他老师一并致谢!

hi-wzj

建议将问题所在窗体标识出来，便于大家查看。

loginwjd303

如何才能将其中的订单ID改成如 RA-100324-001 增量为1的自定义编号

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

loginwjd303

感谢chuang0321 ,但还是不行,出错

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

loginwjd303

改后提示数据类型不对.

wanghaishen

为了看东西,所以回复东西!

icefox2008

学习下,希望有更简单的代码.上面看到我头大

bujiu01

好厉害