如何在原有代码上通过字符串判断插入位置，并插入新代码？

pyh512

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

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

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

Benjamin_luk

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

Henry D. Sy

可以建立个公共过程,
然后在不同的事件中调用

pyh512

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

相同的代码

pyh512

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

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

Benjamin_luk

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

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

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

pyh512

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

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

本来你都有方案了。

大概是这么个例子吧！

Henry D. Sy

1.描述清楚你的目的
2.传上你的例子
不要让人猜着解决问题

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

pyh512

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

简单例子上传了，看看吧