[求助]谁有切换按扭的制作方法啊。

fengyunhun

谁有切换按扭的制作方法啊。我是新手。了解一些编程，但是自己编写很困难。我这个数据库就差这一招就做好了。。。

fan0217

不是有切换按钮控件吗?用向导.

fengyunhun

我想用切换按扭做：当按扭按下去的时候连接主字段、子字段清空。当按扭弹起来的时候又被附值。。运用在窗体中，因为主字段、子字段有筛选的功能，我想切换筛选（有时候要筛选、有时后不要筛选）。

一点通

用IF判断切换按钮的状态,当有真时执行你写的代码,假时不执行你写的代码就行了

fengyunhun

Private Sub Toggle24_KeyDown(KeyCode As Integer, Shift As Integer)
If Toggle24.Value = "yes" Then [01-精品任务单].LinkMasterFields = ""
Me.[02-精品任务单_子窗体].Requery
Else
[01-精品任务单].LinkMasterFields = "任务编号;下达时间"
Me.[02-精品任务单_子窗体].Requery
End Sub

这样有什么问题啊？一点反映都没有，系统也不给点提示郁闷，像个大嘴巴只吃不吐。呵呵！

[此贴子已经被作者于2006-4-6 23:01:41编辑过]

一点通

if me.切换按钮的名称＝true then

.......

else

......

end if

fengyunhun

弄了半天，原来是

Private Sub Toggle24_KeyDown(KeyCode As Integer, Shift As Integer)
这个错了，哈哈，成功了！

fengyunhun

Private Sub Command32_Click()
If (Me.Command32.Caption = "查看全部") Then
Me.[02-精品任务单_子窗体].LinkMasterFields = ""
Me.[02-精品任务单_子窗体].LinkChildFields = ""
Me.[02-精品任务单_子窗体].Requery
Me.Command32.Caption = "正常输入"
Else
Me.Command32.Caption = "正常输入"
Me.[02-精品任务单_子窗体].LinkMasterFields = "任务编号;下达时间"
Me.[02-精品任务单_子窗体].LinkChildFields = "任务编号;下达时间"
Me.[02-精品任务单_子窗体].Requery
Me.Command32.Caption = "查看全部"
End If
End Sub

这是我运行完好的代码