[求助]怎样在子过程里编写按钮的单击事件?

nofuture

Private Sub checkproduct()
    Select Case list_select
           Case "A"
           cmd_add.OnClick = MsgBox("A IS SELECTED")
           Case "B"
           cmd_add.OnClick = MsgBox("B IS SELECTED")
           Case "C"
           cmd_add.OnClick = MsgBox("C IS SELECTED")
     End Select
End Sub

这样设置不正确,该怎么设置呀?怎么来在子过程里来编写控件的事件代码呢?

[此贴子已经被作者于2006-3-7 15:56:07编辑过]

msf

一定要这样吗？ 在cmd_add单击事件中调用焦点控件值组合不行吗？


               MsgBox  me！list_select & "IS SELECTED "     

[此贴子已经被作者于2006-3-7 16:00:01编辑过]

nofuture

简化就不行了,我只是把我原来的代码简化成那个样子!

全部的代码是这样的:

Private Sub checkproduct()
    Select Case list_select
           Case "底漆"
           showall
           
           '设置组合框的选项
           child_product.SourceObject = "查询.product_dq"
           Com1.RowSource = "SELECT 底漆产品表.配方编号 FROM 底漆产品表;"
           com2.RowSource = "SELECT 底漆产品表.配方名称 FROM 底漆产品表;"
           Label_com3.Caption = "大分类"
           com3.RowSource = "SELECT distinct 底漆产品表.底漆大分类 FROM 底漆产品表;"
           Label_com4.Caption = "小分类"
           Label_com4.Visible = True
           com4.Visible = True
           com4.RowSource = "SELECT distinct 底漆产品表.底漆小分类 FROM 底漆产品表;"
           
           '设置按钮的选项
           Me.cmd_add.OnClick = MsgBox("asdfasdf")
           
           Case "底漆辅料"
           showall
           
           '设置组合框的选项
           child_product.SourceObject = "查询.product_fl"
           Com1.RowSource = "select 面漆辅料表.配方编号 from 面漆辅料表;"
           com2.RowSource = "select distinct 面漆辅料表.配方名称 from 面漆辅料表;"
           Label_com3.Caption = "面漆辅料分类"
           com3.RowSource = "select distinct 面漆辅料表.面漆辅料分类 from 面漆辅料表;"
           Label_com4.Visible = False
           com4.Visible = False
         
          '设置按钮的选项
         
           Case "面漆"
           showall
           
           '设置组合框的选项
           child_product.SourceObject = "查询.product_mq"
           Com1.RowSource = "select 面漆产品表.配方编号 from 面漆产品表;"
           com2.RowSource = "select 面漆产品表.配方名称 from 面漆产品表;"
           Label_com3.Caption = "颜色"
           com3.RowSource = "select distinct 面漆产品表.颜色 from 面漆产品表;"
           Label_com4.Caption = "面漆一级分类"
           com4.RowSource = "select distinct 面漆产品表.面漆一级分类 from 面漆产品表;"
           Label_com4.Visible = True
           com4.Visible = True
          '设置按钮的选项 颜色，面漆以及分类
         
    End Select
child_product.Form.NavigationButtons = False
child_product.Form.AllowEdits = False
child_product.Form.AllowAdditions = False
child_product.Form.AllowDeletions = False
End Sub

我想实现的效果是由checkproduct程序将cmd_del的单击事件分别设置为三条SQL命令!

[此贴子已经被作者于2006-3-7 16:02:00编辑过]

msf

传例子上来看看

nofuture

上面贴的代码的已经够了!再弄个简化的东西就太麻烦了!

sgrshh29

调用这个属性的正确语法，可以查看帮助：

Cmd_add.OnClick = "= MsgBox('A IS SELECTED')"

nofuture

我想做的是在cmd_add的单击事件中添加sql insert into语句或者delete语句,这样怎么做?

cmd_add.onclick  = "docmd.runsql'insert into *******************;'"

是这样吗?

nofuture

没人会吗?~~~~?郁闷呀!

青青

cmd_del的单击事件中也设置Select Case 来判断。

nofuture

晕~!那样太复杂了!