就问题，编号，如果能达就这样效果，那就是最好了，

爱在深秋　发表于：2009-04-02 22:15:05 　

我要求在添加新记录时，编号在上个基础上加1，（上个编号有文本+数字，如"明字第2009001，明字第2009002，明字第2009003"等，如果我本次手工输入如：“三字第001”那么下一个，自动加为1如：“三字第002”）本人觉的这是最实用的，恳请各位帮助，请并个例子，请修改

点击下载此附件

Top

符鸿敏发表于：2009-04-02 22:51:14

请参考：http://www.accessoft.com/blog/article-show.asp?userid=2251&Id=2085

四位数自增号示例

Top

善裕发表于：2009-04-02 23:08:56

不符合我的题意呀，我要求是文本和数字的结合，自动加1

Top

边城浪子发表于：2009-04-03 08:27:13

Private Sub cmdNew_Click()
    On Error GoTo Err_cmdNew_Click
    Dim MaxNumber As String
    MaxNumber = DLookup("[起始号]", "档案起始号")

    DoCmd.GoToRecord , , acNewRec
    Me.文本编码 = "明字第"
    Me.家庭档案号.SetFocus
    Me.家庭档案号 = (文本编码) & Format(Val(Right$(MaxNumber, 3) + 1), "0000")
    DoCmd.SetWarnings False
    DoCmd.RunSQL "update 档案起始号 set 档案起始号.起始号 = '" & Me.家庭档案号 & "'"
    Me.Refresh
Exit_cmdNew_Click:
    Exit Sub

Err_cmdNew_Click:
MsgBox Err.Description
Resume Exit_cmdNew_Click

End Sub

我是这样设计文本自动编号的，希望对有帮助

Top

豆豆发表于：2009-04-03 09:51:43

请参考

点击下载此附件

Top

善裕发表于：2009-04-03 21:40:34

4楼的朋友,我试过你的例子,怎么在编号文本框内没显示呀,不够还是感谢你的例子,我想会有所学习的

Top

豆豆发表于：2009-04-04 13:21:20