Office中国论坛/Access中国论坛

标题: 怎么能使双击点出的新窗体为添加项 并带有原有的窗体的信息 [打印本页]

---

作者: zhylee    时间: 2011-12-16 11:53
标题: 怎么能使双击点出的新窗体为添加项 并带有原有的窗体的信息
{:soso_e121:}

---

作者: andymark    时间: 2011-12-16 12:01
主子窗体吧，主窗体是显示需要录入的项目，子窗体则显示已保存的数据

---

作者: zhylee    时间: 2011-12-16 13:17
不是；
我想在不同的窗体中实现
就想存销货物一样
我要在存货单上点出销货单

---

作者: Henry D. Sy    时间: 2011-12-16 13:27
你要做个例子上来
然后，说明你想要得到的结果！

---

作者: zhylee    时间: 2011-12-16 14:12
就是实现发货单的效果
点击订单管理中的一条订单
提示发货弹出发货单窗口
显示新建的发货单并将订单的基本信息显示在发货单上
保存发货单后
订单上已发数量相应调整{:soso_e121:}

---

作者: fawkes    时间: 2011-12-16 14:32
看看，学学

---

作者: Henry D. Sy    时间: 2011-12-16 15:00

1. Function Openfrm()
   
2.     DoCmd.OpenForm "发货单", acNormal, , , acFormAdd
   
3. End Function
   
4. 
   
5. Private Sub Form_Current()
   
6. strNo = Me.订单编号
   
7. blno = Me.原始编号
   
8. strName = Me.公司名称
   
9. End Sub
   
10. 
    
11. Private Sub Form_Load()
    
12.     Dim ctl As Control
    
13.     For Each ctl In Me.Controls
    
14.         If TypeOf ctl Is TextBox Then
    
15.             ctl.OnClick = "=openfrm()"
    
16.         End If
    
17.     Next
    
18. End Sub

复制代码

[attach]47696[/attach]

---

作者: zhylee    时间: 2011-12-16 16:29
能不能改成双击完成任务
还有数量没有在订单管理中显示
发货单也没有此单的明细！！！

---

作者: roych    时间: 2011-12-16 19:31
把里面的：
ctl.OnClick = "=openfrm()"
改成
ctl.OnDblClick = "=openfrm()"
试试。

---

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

Powered by Discuz! X3.3