Question

access如何在字段输入id后获取该id某字段的值并再添加一个字符

排序解决了，那按输入的ID数字取它的合同编号怎么实现

Answer 1

为绑定文本框[非正常单]编写下列更新后事件过程

Private Sub 非正常单_AfterUpdate()
   If Right([非正常单], 1) Like "[A-Z]" Then 
       [合同编号] = [合同编号] & "-" & Right([非正常单], 1)
   End If
End Sub

保存设计后，如果在文本框[非正常单]输入"18Y"后，将光标移到其他控件里，就会自动为合同编号添加"-Y"了

追问

可是这样写后四位数的序号会有问题

追答

其实没看懂你的需求，你就按这个原理自己调整。
另外自动填写多种内容可能会互相影响的这个要做整体上的构思，有时是要做取舍的。如何去做你要好好想一想，如何做才是最恰当的。

追问

嗯，我试试

追答

自动化是个好东西，vba 提供了几乎无限的可能，但是实施起来需要考虑的东西非常多，只有精心布局和设计才能完美实现，否则情况可能更糟糕。具体的做法这里无法三言两语讲清楚

追问

弄了半天还是没实现

你还是帮我看下吧

追答

表的"非正常单"字段的有效性规则设置为限于数字与一个字母的组合，窗体文本框"非正常单"的有效性规则也一样，在窗体更新后事件过程里，利用判断流程或iif函数，有“非正常单”内容的一种号码，反之经一种号码就可以实现了

追问

让他继续按日期排序怎么写

还是搞不懂，能帮我写下代码吗

尤其是输入12X要取出id为12的合同编号 ，这个怎么实习

追答

这个不难办，但是你有没有想过有“非正常单”号码的记录出现后，它会对后面正常合同号自动生成产生干扰，以后自动生成的正常合同号要不要计算它的影响？忽略它的影响还是包含它的影响，整个自动生成团号的算法因此得重新设计，算法可能会变得很复杂且难于设计。

另外合同编号原则上应该是业务的唯一标识，一旦生成就应该固定不变的，合同记录有可能被删，新增的合同编号不应该使用那些已经被删除过的合同编号，否则就可能导致同一合同号被多用的可能进而使得业务流程管理上的混乱，你想过没有？这些影响在编制合同号规则时都要考虑的。我认为合同编号最重要的功能是唯一标识业务，在不影响这一要求的的基础上再附加一些其他信息是可以的，但是附加信息不得对唯一性有负面影响，否则必须让步于唯一性的要求。

追问

非正常但是会对其他正常单造成影响，其实就是把它当做一个正常单，但是编号不一样

或者可以当成取代了编号前面8个字符

追答

你手动添加一个非正常单，再添加一个普通团号看看自动求出来的合同号有什么不同

追问

就是没有把它算进这个月的总单数

而且现在还没解决序号取值问题

追答

给你一个关键代码，自己试一试，看看实现后，再看看然后的然后你要解决什么事情，应该是状况不断
[合同编号]=DLookup("合同编号","订单表","ID=" & Val([非正常单])） & "月份序数-尾字母(这两个参数请自己求）"

追问

可以生成，但是它把这个非正常单独立起来了，就是下一个正常单没有在它的基础上继续排序

把它跳过了

追答

你还可以输入一个不存在的ID，看看发生什么事情？删除几条记录后再增加几条记录后又发生些什么情况

追问

输入不存在的id，就取不到编号值只显示一个序号-字母

删除记录这个没有问题，删除后他就从根据上一个编号开始排序

现在的问题就是他不把非正常单算进排序，排序把它忽略了

追答

但是有可能出现被删除的号又自动算出来用在a客户，但是那个被删除的合同号是b客户用的只是中途废止了合同，这样财务记帐可能出现混淆。另外你还可以填写一个id是非正常单的试一试结果

追问

id是非正常单的话就在非正常单的编号后面再加一个序号和字母

那个删除问题，是不会删除的，写非正常单就是一个字母代表一个合同的特殊情况

追答

用户的操作行为不是你说怎样就怎样的，即使是你自己也不能保证都做到是吧？你自己先看看如何解决这些特殊情况，不能解决的程序里为用户提示一下也行

追问

我设置成不允许编辑和删除，只允许添加了

追答

很好

追问

提示的话等功能完善的时候再加进去吧

那应该怎么解决那个问题

追答

你要决定正常团号是否要受“非正常单”号码的影响，如果决定不受它影响，就要剔除它，如果要包含它的影响，那么就要重写正常合同号的编码算法。

其实两种情况都要重回写代码，只是包含影响的算法更复杂

追问

要受影响，就是把它当做一个正常单，然后继续排序，就是正常单是1,非正常单就是2，如果下一个是正常单的话就是3

要把非正常单算进去

如果可以，希望大神帮我把那个按类型排序的改成按这个月这个类型的第几单进行排序，感激不尽

追答

写个代码很累，我有空闲有心情才考虑帮你。你先按我的提示自己写看看

追问

嗯，我知道，我这几天都在写，头都炸了，这是其中一个功能，其他完善的差不多了，如果有空就帮我写写吧，谢谢

实在不会了，大神

追答

您这种编号规则需要解决很多问题：
1）首先添加了非正常号后会导致类别参照序号的丢失，尽管可以用计数的方法算出来已有的各类别总数+1，但是计数的手段在有记录被删除的情况下，新算出来的序列号会小于等于已有的序号，你也许说不允许删除不就行了吗？但是现实是删除功能还是必须保留的，例如因手误添加的记录我们总不能将它保留下来是吧，因此始终还是要使用查找最大序号的办法来算出最新的序列号，但是这给又被编号规则限制了，必须设法克服这个矛盾；

2）解决了问题1）后，还要保证确保合同编号、日期、非正常单和类型在生成后不再可以改变，否则新生成的合同号将无法准确跟随编号规则，也就是合同编号、日期、非正常单、类型、合同编号在新增时是可以被编辑的，但是一旦新增成功后它们就不得允许被修改了；

3）编号规则是基于日期、类型和非正常单产生的，因此还要确保存在日期、类型资料的情况下才可生成合同编号，另外非正常单依赖已经存在的正常合同编号，对应的ID只有能找到正常合同编号的情况下才能生成非正常单合同编号。

必须解决上述三大项需求的情况下，编出来的程序才有实用价值，这么复杂的需求以你目前的水平恐怕够呛。反过来看让我编写具体解决方案，你看这得花多少精力？我愿意提供帮助，但是不愿意代劳

With [非正常单]
.ValidationRule = validRule
.ValidationText = Msg
End With
End Sub