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

pyh512

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

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

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

pyh512

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

不是吧！

Henry D. Sy

看不懂

pyh512

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

表达有问题

Henry D. Sy

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

你到底要做什么??

pyh512

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

简单例子上传了，看看吧

Henry D. Sy

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

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

pyh512

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

本来你都有方案了。

大概是这么个例子吧！

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![进场日期]

Benjamin_luk

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

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

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