请教下自动编号问题??

yxf614

目前显示为: 1004200001 想要编号为;JH2010042001 这样显示不知如何修改,请教下各位哟.谢谢指点! 代码如下:
Private Sub Command6_Click() On Error GoTo Err_Command6_Click DoCmd.GoToRecord , , acNewRec Dim a As String a = Nz(DMax("结算编号", "特殊客户销售清单", ""), 0) If Left(a, 6) <> Format(Date, "yymmdd") Then 结算编号 = Format(Date, "yymmdd") & "0001" Else 结算编号 = Format(Date, "yymmdd") & Format(Val(Right(a, 4)) + 1, "0000") 票据号码.SetFocus End If Exit_Command6_Click: Exit Sub Err_Command6_Click: MsgBox Err.Description Resume
Exit_Command6_Click End Sub
请各位看看如何修改,我也是用别人的例子.谢谢大家.

yxf614

yxf614

没有人呀.

yxf614

yxf614

没有人呀.请看看中

yxf614

下面代码目前显示为:  1004200001 想要编号为;JH2010042001    这样显示不知如何修改下面代码,请教下各位哟.谢谢指点!

代码如下:
Private Sub Command6_Click()
On Error GoTo Err_Command6_Click

    DoCmd.GoToRecord , , acNewRec
  Dim a As String
a = Nz(DMax("结算编号", "特殊客户销售清单", ""), 0)
If Left(a, 6) <> Format(Date, "yymmdd") Then
结算编号 = Format(Date, "yymmdd") & "0001"
Else
结算编号 = Format(Date, "yymmdd") & Format(Val(Right(a, 4)) + 1, "0000")
票据号码.SetFocus
End If
Exit_Command6_Click:
    Exit Sub
Err_Command6_Click:
    MsgBox Err.Description
    Resume Exit_Command6_Click
   
End Sub

mm4518

看看先，谢谢分享

loginwjd303

http://www.office-cn.net/forum.p ... ight=%2Bloginwjd303

michael100

我是用的以下方法,不知道对你有没有用
Dim Ntot, AutoNO As String
Dim Record As Integer

Record = DCount("结算编号", "特殊客户销售清单", "日期=" & DATE()) + 1
Ntot = String(3 - Len(STR(Record)), "0")
AutoNO = "JH" & Right(DatePart("yyyy", Date), 4) & String(3 - Len(STR(MONTH(Date))), "0") & MONTH(Date) & String(3 - Len(STR(Day(Date))), "0") & Day(Date) & Ntot & Record
If (Me.结算编号 = "") Then
    Me.结算编号 = AutoNO
Else
End If