Office中国论坛/Access中国论坛

标题: 求助：如何按照下面的规则生成字段内容 [打印本页]

作者: asia2158 时间: 2003-4-7 22:30
标题: 求助：如何按照下面的规则生成字段内容
数据库名：SXZZ.MDB(ACCESS);表名：CODE_BUFF;主键字段CID：110001200304011005300005；
主键字段是在录入记录时由系统自动产生的，它的生成规则如下：
1:前6位是固定值110001；
2:中间的8位是录入记录时的当前机器日期:2003年4月1日；
3:接下来的6位是录入记录时的当前机器时间:上午10点5分30秒；
4:最后的4位是顺序码，由来已久0001开始递增，用以确保同时录入的记录不会重号；
5:此字段为“文本类型”,它的值要在操作人员在向CODE_BUFF表中录入数据时自动生成；
请问高手，如何在录入过程中生成此字段，请给出相应的VB6代码，或者在ACCESSXP内
用VBA实现的代码，谢谢！

作者: zhaobeaut 时间: 2003-5-10 21:54
VB6的代码：
Public db As Database
Public rs As Recordset

Private Sub Command1_Click() '保存
Dim day As String
Dim str As String
Dim num As Integer

num = GetSetting("data", "data", "num", 0) ‘从注册表中获得上次的数字

day = Format(Date, "yyyymmdd") ’获得6位日期
str = Format(Time, "hhnnss") ‘获得6为时间
num = num + 1

Set rs = db.OpenRecordset("select * from CODE_BUFF")

rs.AddNew
rs.Fields(0) = "110001" & day & str & Format(num, "0000") ’组合为字段
rs.Fields…… ‘其他字段

rs.Update

SaveSetting "data", "data", "num", num ‘保存到注册表中
End Sub

Private Sub Form_Load()
Set db = opendatabase(App.Path & "\SXZZ.MDB")
End Sub

[此贴子已经被作者于2003-5-12 12:47:44编辑过]

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