代码求助

wenjie592

如题：麻烦哪位大哥帮我写一个ACCESS查询、新增、保存代码，
要求在新开票据窗体中：
       1.输入线路名称，查询到线路相关信息；
       2.点击新增按钮，获得提货单号最大值的后一位，并能在型号、规格、单价、数量输入数据，并且在已查询到的线路名称、负责人、身份证号、联系电话、设计里程、所在乡镇的信息不变；
       3. 点击保存按钮，线路名称、负责人、身份证号、线路电话、设计里程、所在乡镇、开票日期、提货单号、型号、规格、单价、数量、合计都能保存到开票信息表里 。
       因为ACCESS太大就分卷压缩了，在此先感谢了！                                   

siliconxu

1. 在按钮的事件中使用以下代码可以找到所需线路信息。（注意，我修改了线路名称这个文本框的名字）
Me.Recordset.FindFirst "[线路名称]='" & txt线路名称.Value & "'"

2. 我建议先将“型号”、“规格”这些需要填写信息的控件设置为不可用；等到点击“新增”按钮后，再允许用户录入信息（同时可以把其它查询到的，不允许用户修改的控件设置为不可用。至于获取“提货单号"最大值的，可以使用下面的代码：
txt提货单号 = DMax("提货单号", "开票信息")

3. 点击保存后，可以使用SQL的UPDATE语句，把相关的信息更新到对应的表中。另外一种方法是，你把这些需要填写的信息（型号、规格等）的相关控件也放到窗体中（这些控件是绑定相关字段的），然后设置隐藏。在用户点击保存后，把那些填写的信息复制到相关的控件中，然后保存记录就可以了。比如用户录入的型号的控件是“txt型号”（这个控件是没有绑定的），你还有一个隐藏的、跟【型号】这个字段绑定的叫做“txt型号绑定”的控件。那么在用户点击保存后，你可以使用这样的代码来保存记录：
txt型号绑定=txt型号.Value
DoCmd.RunCommand acCmdSaveRecord

另外，搞不懂为什么你的Access怎么那么大？有什么秘密吗？ :)

wenjie592

siliconxu 发表于 2018-5-2 16:30
1. 在按钮的事件中使用以下代码可以找到所需线路信息。（注意，我修改了线路名称这个文本框的名字）
Me.Re ...

非常感谢这位大哥，但是小弟才开始学VBA代码一事点都不会，麻烦大哥能不能帮我写一下 我也不知道我的ACCESS为什么这么大
没有什么秘密