如何做一个切换按钮

不务实　发表于：2009-06-25 22:12:48 　

如何写切换按钮的代码?

如默认按钮上显示A 点击后打开A表并按钮上显示变为了B,

点击后打开B表,再点又回到A

曹光耀发表于：2009-06-25 23:13:54

新建窗体1,在窗体中添加一按钮"Cmd0",其单击事件代码:

Private Sub Cmd0_Click()
If Me.Cmd0.Caption = "A" Then
    DoCmd.OpenTable "A表"
    Me.Cmd0.Caption = "B"
ElseIf Me.Cmd0.Caption = "B" Then
    DoCmd.OpenTable "B表"
    Me.Cmd0.Caption = "A"

End If
End Sub
请查看示例中的窗体1

点击下载此附件

Top

trynew 发表于：2009-06-26 08:27:58

楼上的还可简化点:)

Private Sub Cmd0_Click()

DoCmd.OpenTable Me.Cmd0.Caption & "表"

Me.Cmd0.Caption = iif(Me.Cmd0.Caption = "A","B","A")
End Sub

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

如何做一个切换按钮