Office中国论坛/Access中国论坛

标题: 如何在原有代码上通过字符串判断插入位置，并插入新代码？ [打印本页]

作者: pyh512 时间: 2016-12-9 12:08
标题: 如何在原有代码上通过字符串判断插入位置，并插入新代码？

我自已编写了一些代码，需要在不同编辑窗体中重复录入相同信息，

感觉浪费了很多时间，有没有相关函数实现一键录入当前编辑窗体中，

实现自动判断位置自动插入功能，节省许多时间！

作者: Benjamin_luk 时间: 2016-12-9 13:23
需要在不同编辑窗体中重复录入相同信息
说明程序设计得不好。
对于数据，基本都按表头、明细分别建立数据表。
没看到你重复的数据是什么，所以不知道怎么帮你。

作者: Henry D. Sy 时间: 2016-12-9 15:16
可以建立个公共过程,
然后在不同的事件中调用

作者: pyh512 时间: 2016-12-10 13:27

Benjamin_luk 发表于 2016-12-9 13:23
需要在不同编辑窗体中重复录入相同信息
说明程序设计得不好。
对于数据，基本都按表头、明细分别建立数据 ...

相同的代码

作者: pyh512 时间: 2016-12-10 13:29

Henry D. Sy 发表于 2016-12-9 15:16
可以建立个公共过程,
然后在不同的事件中调用

这样只能说少录代码而己
那也得在相关位置重复输入调用指令

作者: Benjamin_luk 时间: 2016-12-10 22:44

pyh512 发表于 2016-12-10 13:27
相同的代码

实现自动判断位置自动插入功能，节省许多时间！

本来你都有方案了。
自动判断，得你自己设好条件。
满足条件就执行插入功能
不满足就下一步，
一个IF就好，但你得理清条件怎么设
同是两个有点差异的模块怎么合并

作者: pyh512 时间: 2016-12-12 09:50
本帖最后由 pyh512 于 2016-12-12 10:29 编辑

Private Sub 粘贴当前记录_Click()
Dim strSQL As String
Dim cnn As Object
Dim rst As Object
Set cnn = CurrentProject.Connection
strSQL = "SELECT * FROM tbl钢筋原材 where 炉批号= " & SQLText(Me.炉批号)
Set rst = OpenADORecordset(strSQL, , cnn)
Me![工程名称] = rst![工程名称]
Me![材料名称] = rst![材料名称]

rst.Close
Set rst = Nothing
Set cnn = Nothing

End Sub

在"frm钢筋原材"窗体中的"粘贴当前记录_Click()"过程中的“Me![材料名称] = rst![材料名称]"后面插入以下代码：

Me![品种] = rst![品种]
Me![牌号] = rst![牌号]
Me![规格] = rst![规格]
Me![尺寸] = rst![尺寸]
Me![合格证编号] = rst![合格证编号]
Me![炉批号] = rst![炉批号]
Me![生产厂家] = rst![生产厂家]
Me![进场日期] = rst![进场日期]

作者: pyh512 时间: 2016-12-12 09:51

Benjamin_luk 发表于 2016-12-10 22:44
实现自动判断位置自动插入功能，节省许多时间！

本来你都有方案了。

大概是这么个例子吧！

作者: Henry D. Sy 时间: 2016-12-12 10:00
1.描述清楚你的目的
2.传上你的例子
不要让人猜着解决问题

感觉你是要复制上一条记录.

作者: pyh512 时间: 2016-12-12 10:39

Henry D. Sy 发表于 2016-12-12 10:00
1.描述清楚你的目的
2.传上你的例子
不要让人猜着解决问题

简单例子上传了，看看吧

作者: Henry D. Sy 时间: 2016-12-12 11:10

pyh512 发表于 2016-12-12 10:39
简单例子上传了，看看吧

你到底要做什么??

作者: pyh512 时间: 2016-12-12 15:42
本帖最后由 pyh512 于 2016-12-12 15:44 编辑

Henry D. Sy 发表于 2016-12-12 11:10
你到底要做什么??

表达有问题

作者: Henry D. Sy 时间: 2016-12-12 20:09
看不懂

作者: pyh512 时间: 2016-12-14 09:51

Henry D. Sy 发表于 2016-12-12 20:09
看不懂

不是吧！

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