Question

access怎么把相同的字段值进行生成序号并排序

解决窗体通过表达式计算的值无法更新到表中

窗体有值，表的值却是空的





Answer 1

1）先解答第二问——“解决窗体通过表达式计算的值无法更新到表中”

窗体的里计算控件是无法绑定的到数据表字段的，其表达式计算值自然也就无法直接更新数据表。

其实“库存”字段根本就没有真实存在的必要，维护它是脱裤子放屁多此一举。如果确实需要可以添加一个虚拟的计算字段来显示“库存”（2007及以后版本支持计算字段）

2）定向提问中的编码规则不太明确，暂时按如下理解提供解决方案

例如订单编码：LAJ6070204

表示该订单是2016年7月份下的单，这是全部“家装”类型的第2笔订单并且是2016年7月份不分类型情况下的第4笔订单。

提示：此编码规则可容纳的合同数目非常有限，可根据实际需求调整，下面的代码还是按这个编码规则设计的

先创建一张类型表并录入数据

在创建一张订单表，表结构如下：

跟着用窗体向导创建一个自动创建窗体（表格式）

为窗体编写下列插入后时间过程

Private Sub Form_AfterInsert()
[合同编号] = "LA" & DLookup("首字母", "类型表", "类型='" & [类型] & "'") _
  & Right(Year([日期]), 1) & Format([日期], "mm") _
  & Right(DMax("Val(mid(Nz(合同编号,0),7,2))", "订单表", "类型='" & [类型] & "'") + 101, 2) _
  & Right(DMax("Val(right(Nz(合同编号,0),2))", "订单表", "Format(日期,'yyyy-mm')='" _
  & Format([日期], "yyyy-mm") & "'") + 101, 2)
End Sub

保存窗体设计后，在窗体上的[日期]和[类型]组合框输入日期和选择类型后，跳到其他记录，合同编号就会按规则自动填好。运行效果如图，图中合同号均为自动产生

追问

我输入日期和类型后，合同编号没有生成值

追答

新增输入数据跳到新行才有效果

追问

解决了

我能问你最后一个问题吗，就剩最后一个想法没实现，我可以再加50分

追答

采纳后另提问，无需悬赏

追问

谢谢

Answer 2

你说的“窗体”指的是什么？总的来说通过vba或者.net应该是可以容易实现你的需求。

追问

access窗体

vba怎么实现

请问如果用vba，代码要怎么写？

追答

如果你不会vba，还谈什么access窗体？

追问

目前只实现了前六位数的，后面四位实在不知道怎么写

追答

access里面你还用什么lookup函数？那是excel的。应该用sql。