VBA入库单改进版(窗体录入的完美例子)

twtthduu

xtanuihazfh 发表于 2011-5-16 20:05
------------------------------------------------------------------------------------
存的就是xl ...

老师实在是不好意思，因为我就是一个菜鸟，我按您的要求注册了，可是还是这样的，请教老师如何办呀？

知不足

楼主，晚上好！
非常感谢您的分享。看过您的大作，收益非浅！
在此，我想请教您一个问题：如果我想在工具栏加入其他内容（比如发退料单据录入，欠料计算，工单结算等），要怎么做？
请您抽空教我。谢谢！

zhao99315

飞哥，支持下！

知不足

楼主：
       您好！
       制造业的仓库物料进出总体上有二类，一类是接收供应商交付过来的物料，将不良来料退回供应商；另一类是企业内部生产用料的发放和回仓。
       您的入库单中有一个录入单据按钮，我想增加一个类似按钮，录入车间物料进出单据。我在加载项中增加了“车间物料进出单据录入”按钮，并将您“单据录入”代码复制过去，在视窗的命令按钮“增加记录”“删除记录”等不断出问题。
       特此想你赐教！

mark_wb

支持,学习.

cathylu1983

知不足 发表于 2012-12-28 22:18
楼主，晚上好！
非常感谢您的分享。看过您的大作，收益非浅！
在此，我想请教您一个问题：如果我想在工具 ...

你想随意操作工具栏，这个作品的代码是这样的：
Sub CreateToolBar()     
    Dim ArrCaption(), ArrAction(), ArrFaceID(), ArrToolTip()      
    Dim i As Integer
    ArrCaption = Array(数组元素)        这行的意思是：定义添加在工具栏的按钮的标题
    ArrAction = Array("Action_Input", "Action_Query", "Action_MonthEnd")   这行利用数组记录每个按钮点击后的事件
    ArrToolTip = Array("数组元素")  这行定义提示
    ArrFaceID = Array(8, 25, 0) 这行记录 faceid
    With Application.CommandBars.Add(Name:="名称", temporary:=True)   这行是工具栏commandbars的添加
        For i = 0 To 2
            With .Controls.Add(Type:=msoControlButton, temporary:=True)  这行是按钮的添加  
                .Caption = ArrCaption(i)    按钮标题为数组定义标题                              
                .OnAction = ArrAction(i)    动作为刚才数组定义的动作                              
                .FaceId = ArrFaceID(i)  faceid为数组定义的id号                                    
                .Style = msoButtonIconAndCaptionBelow   这行是按钮的style,标题在下面               
                .TooltipText = ArrToolTip(i)  定义按钮提示
            End With
        Next
        .Visible = True     可见性变为真     
End With
End Sub

cathylu1983

所以如果你想把其它元素加到工具栏的话，首先要添加一个按钮，然后再为按钮编写一个点击之后的事件的代码。比如说你想添加一个工单结算功能的按钮。已经为该按钮的点击写好了一个事件"action_工单结算"
可以这样写：
with application.commandbars.add(name:="名称",temporary:=true)
with .controls.add(type:=msocontrolbutton,temporary:=true)
.caption="工单结算"
.onaction="action_工单结算"
.faceid=定义一个数字
.Style = msoButtonIconAndCaptionBelow   
.tooltiptext="该按钮功能为工单结算"
end with
end with

cathylu1983

知不足 发表于 2012-12-29 13:07
楼主：
       您好！
       制造业的仓库物料进出总体上有二类，一类是接收供应商交付过来的物料，将不 ...

这个要上传附件才能知道问题了。还有。。。。那个。。。。。我想先在重庆那个地方有一份工作

Crazy_Wu

漂亮，学习学习{:soso_e179:}

cathylu1983

哦，不，其实是，我想有份工作，稳定下来，好好享受下充实、积极、快乐的生活。最好在重庆那个公司