Office中国论坛/Access中国论坛

标题: 请问怎样自动生成一串数字 [打印本页]

作者: feichuan 时间: 2006-9-1 02:48
标题: 请问怎样自动生成一串数字
字段“A”是作为主键，比如今天是2006年8月31日，我想在添加记录时“A”字段能自动生成2006083101这个样子，后面的01表示第一条记录，然后再输入第二条记录的时候就自动生成2006083102，接着2006083103……

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

作者: tz-chf 时间: 2006-9-1 04:22
问题不完全，不同天是不是要重新累加。这种方法不好。

作者: 6831860 时间: 2006-9-1 05:34
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 时间: 2006-9-1 06:15
xiexie

作者: LIXIANACCP 时间: 2006-9-1 06:20

以下是引用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 时间: 2006-9-1 18:00
我是纯ACCESS数据库，不连网页的，应该怎么设置该字段啊？

谢谢了～

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

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)