请问怎样自动生成一串数字

feichuan

字段“A”是作为主键，比如今天是2006年8月31日，我想在添加记录时“A”字段能自动生成2006083101这个样子，后面的01表示第一条记录，然后再输入第二条记录的时候就自动生成2006083102，接着2006083103……

哪位高人指点下小妹？小妹偶菜的厉害～

tz-chf

问题不完全，不同天是不是要重新累加。这种方法不好。

6831860

Function addid(tablename As String) As String
    Dim a, b, c
    Dim i As Integer
    '流水号生成
    a = DMax("[id]", tablename) + 1
    'Debug.Print a
    b = Format(Date, "yyyymm") & 0
    If IsNull(a) Then
      c = b
    Else
      a = CStr(a)
    End If
    If a > b Then
        c = a
    Else
        c = b + 1
    End If
    addid = c
End Function

leez_net

xiexie

LIXIANACCP

以下是引用6831860在2006-8-31 21:34:00的发言：
Function addid(tablename As String) As String
    Dim a, b, c
    Dim i As Integer
    '流水号生成
    a = DMax("[id]", tablename) + 1
    'Debug.Print a
    b = Format(Date, "yyyymm") & 0
    If IsNull(a) Then
      c = b
    Else
      a = CStr(a)
    End If
    If a > b Then
        c = a
    Else
        c = b + 1
    End If
    addid = c
End Function

一个窗体中名称为A的文本框,怎么可以利用它呢?

[此贴子已经被作者于2006-8-31 22:26:28编辑过]

feichuan

我是纯ACCESS数据库，不连网页的，应该怎么设置该字段啊？

谢谢了～

6831860

忘记说明了。。你调用这个函数的时候，函数中DMax("[id]", tablename) + 1
id为数字类型的字段（我的表里编号基本是用id表示咯。你也可以用其他来代替id，例如bh），tablename就是id所在那在的表名

如下例：me.a＝ addid（“tablename”）

[此贴子已经被作者于2006-9-1 11:18:54编辑过]