此句中如何加上查询项

wyh99999　发表于：2008-10-31 20:30:23 　

复制

me.编号=IIf(IsNull(DLookup("编号", "表名称")), "000001",Format(DMax("[编号]","表名称")+1,"000000")

我在贵坛中学到上面语句.很好用的.谢谢作者!

我有一问:我在一个表中存放几个不同单位的职工,我要的是分单位职工编号,不要整表连续编号.请问,如何实现.

Top

符鸿敏发表于：2008-10-31 20:34:15

请参考：

点击下载此附件

Top

wyh-感谢各位老师。发表于：2008-10-31 20:42:03

谢谢您!我看了,对我有价值

Top

wyh-感谢各位老师。发表于：2008-10-31 20:56:26

以下的语句我实现了自动编号:

    Dim bh As Long
    Dim a, b As String
    b = Me.所在单位 'Me.部门ID
    If b <> a Then
        bh = Val(Nz(Right(DMax("ID", "师基表", "所在单位 = '" & Me.所在单位 & "'"), 2))) + 1
        Me.ID = Format(bh, "00")
    Else
        Me.ID = Me.ID & "01"
    End If

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

此句中如何加上查询项