Question

ACCESS设置自动编号的问题

表中的字段怎设置成自己想要的格式如图，自动编号主表中的ID字段 在款式输入内容后自动生产JS2015060001 JS（前缀）2015（当前年）06（当前月）0001（自动编号），谢谢大家给与解决，请一定详细 谢谢

Answer 1

1）自动编号字段只能为数字字段，长整型，不可能设为文本型。
2）可以在表中另设一个字段保存JS2015060001格式的文本序号，但必须有个动作触发过程
比如，在窗体中，自动编号字段控件ID,JS2015060001格式的控件名为“序号”，设置窗体的插入后事件代码如下即可自动生成文本序号：
Private Sub Form_AfterInsert()
If IsNull(Me.序号.Value) Then Me.序号.Value = "JS" & Format(Date, "yyyymm") & Format(Me.ID.Value, "0000")
End Sub

追问

怎么设置

追答

说说你的表的字段名

追问

字段名为"ID"

追答

1）在表中添加一个字段“序号”
2）基于此表生成一个数据表窗体
3）在窗体的设计视图中，在窗体的属性栏事件选项卡中，将插入后事件设为“[事件过程]”，然后点击右边的“…”按钮，调出VBA编辑器界面，此时会自动出现过程代码：
Private Sub Form_AfterInsert()

End Sub
4）在过程中插入语句：
If IsNull(Me.序号.Value) Then Me.序号.Value = "JS" & Format(Date, "yyyymm") & Format(Me.ID.Value, "0000")
5）保存。切换到窗体视图，尝试输入，查看效果。