Office中国论坛/Access中国论坛

标题: 求助：如何能使这个窗体使用更方便 [打印本页]

作者: zj167304 时间: 2009-8-6 20:38
标题: 求助：如何能使这个窗体使用更方便
我是一个新手，从事零售行业管理工作。前几天和一个业务朋友谈起access,学习试着做一个自己的进销存软件。主要学习来源是内置的帮助文件，不懂任何编程语言～感觉很困难。
做了一个出货单的窗体，双击物资代码会打开选择物资，并读取物质的资料，追加到订货单草稿。
基本功能可以用，但是很麻烦。
比如一次选择多个商品追加到订货单草稿，这个功能怎么也做不了。有高手能提示一下吗？
另外，我在物质面板里面查找只能查找组合框的商品名称，不能同时对代码，条形码查找。怎么才能实现对商品各个信息的查找呢？请高手给点提示

作者: zj167304 时间: 2009-8-6 20:40
我想一开始使用组合框就是一个错误，我应该使用什么方法呢

作者: jackysu78 时间: 2009-8-6 21:26
在物资表中增加一个复选框字段，可以简单实现选中追加的目标
查找就用控件向导生成即可按任一列查找

作者: lanshai 时间: 2009-8-7 10:13
关注

作者: zj167304 时间: 2009-8-9 21:47
3# jackysu78
我想实现那种按住鼠标拖选；按Ctrl+鼠标点击选多一条记录；按Shift选择范围记录的那种。

作者: tz-chf 时间: 2009-8-9 22:50
窗口蛮整齐。关键是要快速方便地找到要添加的商品。

作者: lanshai 时间: 2009-8-10 09:39
把例子拿出来分享下吧

作者: luhao 时间: 2009-8-13 12:12
1# zj167304
你作修改可以达成你的心愿.................................
Dim i As Integer
Dim rst As New ADODB.Recordset
rst.Open "生产计划明细", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 0 To List0.ListCount - 1
If List0.Selected(i) = True Then
rst.AddNew
rst("流水单号ID") = Forms![frm-排产订划单]![流水单号]
rst("模具编码") = List0.Column(0, i)
rst("物料名称") = List0.Column(1, i)
rst("表色") = List0.Column(2, i)
rst("材质") = List0.Column(3, i)
rst("销售订单") = List0.Column(4, i)
rst("生产订单数量") = List0.Column(5, i)
rst("单重") = List0.Column(6, i)
rst("重量") = List0.Column(7, i)
' rst("isfinish") = List0.Column(8, I)
List0.Selected(i) = False
End If
Next
' DoCmd.close
rst.Update
Forms![frm-排产订划单].Child.Form.Requery
Forms![frm-排产订划单].List0.Requery

作者: luhao 时间: 2009-8-13 12:12
你作修改可以达成你的心愿.................................
Dim i As Integer
Dim rst As New ADODB.Recordset
rst.Open "生产计划明细", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 0 To List0.ListCount - 1
If List0.Selected(i) = True Then
rst.AddNew
rst("流水单号ID") = Forms![frm-排产订划单]![流水单号]
rst("模具编码") = List0.Column(0, i)
rst("物料名称") = List0.Column(1, i)
rst("表色") = List0.Column(2, i)
rst("材质") = List0.Column(3, i)
rst("销售订单") = List0.Column(4, i)
rst("生产订单数量") = List0.Column(5, i)
rst("单重") = List0.Column(6, i)
rst("重量") = List0.Column(7, i)
' rst("isfinish") = List0.Column(8, I)
List0.Selected(i) = False
End If
Next
' DoCmd.close
rst.Update
Forms![frm-排产订划单].Child.Form.Requery
Forms![frm-排产订划单].List0.Requery

作者: luhao 时间: 2009-8-13 12:12
标题: RE: 求助：如何能使这个窗体使用更方便...
你作修改可以达成你的心愿.................................
Dim i As Integer
Dim rst As New ADODB.Recordset
rst.Open "生产计划明细", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 0 To List0.ListCount - 1
If List0.Selected(i) = True Then
rst.AddNew
rst("流水单号ID") = Forms![frm-排产订划单]![流水单号]
rst("模具编码") = List0.Column(0, i)
rst("物料名称") = List0.Column(1, i)
rst("表色") = List0.Column(2, i)
rst("材质") = List0.Column(3, i)
rst("销售订单") = List0.Column(4, i)
rst("生产订单数量") = List0.Column(5, i)
rst("单重") = List0.Column(6, i)
rst("重量") = List0.Column(7, i)
' rst("isfinish") = List0.Column(8, I)
List0.Selected(i) = False
End If
Next
' DoCmd.close
rst.Update
Forms![frm-排产订划单].Child.Form.Requery
Forms![frm-排产订划单].List0.Requery

作者: luhao 时间: 2009-8-13 12:13
5# zj167304

你作修改可以达成你的心愿.................................
Dim i As Integer
Dim rst As New ADODB.Recordset
rst.Open "生产计划明细", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 0 To List0.ListCount - 1
If List0.Selected(i) = True Then
rst.AddNew
rst("流水单号ID") = Forms![frm-排产订划单]![流水单号]
rst("模具编码") = List0.Column(0, i)
rst("物料名称") = List0.Column(1, i)
rst("表色") = List0.Column(2, i)
rst("材质") = List0.Column(3, i)
rst("销售订单") = List0.Column(4, i)
rst("生产订单数量") = List0.Column(5, i)
rst("单重") = List0.Column(6, i)
rst("重量") = List0.Column(7, i)
' rst("isfinish") = List0.Column(8, I)
List0.Selected(i) = False
End If
Next
' DoCmd.close
rst.Update
Forms![frm-排产订划单].Child.Form.Requery
Forms![frm-排产订划单].List0.Requery

作者: hosam 时间: 2009-8-19 16:48
谢谢分享~~~~~~~~

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