Office中国论坛/Access中国论坛

标题: [求助]怎样在子过程里编写按钮的单击事件? [打印本页]

作者: nofuture 时间: 2006-3-7 22:47
标题: [求助]怎样在子过程里编写按钮的单击事件?
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 时间: 2006-3-7 23:57
一定要这样吗？在cmd_add单击事件中调用焦点控件值组合不行吗？

MsgBox me！list_select & "IS SELECTED "

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

作者: nofuture 时间: 2006-3-7 23:59
简化就不行了,我只是把我原来的代码简化成那个样子!

全部的代码是这样的:

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 时间: 2006-3-8 00:05
传例子上来看看

作者: nofuture 时间: 2006-3-8 00:09
上面贴的代码的已经够了!再弄个简化的东西就太麻烦了!

作者: sgrshh29 时间: 2006-3-8 01:18
调用这个属性的正确语法，可以查看帮助：

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

作者: nofuture 时间: 2006-3-8 17:13
我想做的是在cmd_add的单击事件中添加sql insert into语句或者delete语句,这样怎么做?

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

是这样吗?

作者: nofuture 时间: 2006-3-8 18:33
没人会吗?~~~~?郁闷呀!

作者: 青青 时间: 2006-3-8 19:27
cmd_del的单击事件中也设置Select Case 来判断。

作者: nofuture 时间: 2006-3-8 19:53
晕~!那样太复杂了!

作者: sgrshh29 时间: 2006-3-8 20:27

以下是引用nofuture在2006-3-8 9:13:00的发言：

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

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

是这样吗?

不能，cmd_add.onclick 后面必须是“宏名”、“事件过程”、“函数”。

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