Office中国论坛/Access中国论坛

标题: 关于按钮的代码！ [打印本页]

作者: Ajoe 时间: 2004-3-22 06:21
标题: 关于按钮的代码！
我想在按钮里实现：当窗体设计界面中，某个字段（假设是“主体”字段）的内容为“个人”时，则打开“个人信息录入窗口”；如果“主体”字段的内容为“单位”时，则打开“单位信息录入窗口。
那么我的按钮代码要怎么写呢？
请指教！

作者: petrelai 时间: 2004-3-22 06:50
在按钮代码中加入以下代码:
if me.主体="个人" then
docmd.openform "个人信息录入窗口"
else if me.主体="单位" then
docmd.openform "单位信息录入窗口"
end if

以上代码没有测试,不知有没有错误,先试试看.

作者: Ajoe 时间: 2004-3-22 06:56
petrelai，谢谢你，你真得很热心。
我是新手，能否给我一个按钮事件的全代码？（也就是从Private Sub 按钮名_Click()开始的全代码），因为我不知道，你上面的代码应该加入到哪里？

作者: Ajoe 时间: 2004-3-22 06:57
我的按钮代码是这样的：(我看不大懂啊)

Private Sub Command26_Click()
On Error GoTo Err_Command26_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(20010) & ChrW(20154) & ChrW(-29372) & ChrW(26009)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command26_Click:
Exit Sub

Err_Command26_Click:
MsgBox Err.Description
Resume Exit_Command26_Click

End Sub

作者: cathybeibei 时间: 2004-3-23 00:06
标题: 回复：（petrelai）在按钮代码中加入以下代码:if me...

以下是引用petrelai在2004-3-21 22:50:03的发言：
在按钮代码中加入以下代码:
if me.主体="个人" then
docmd.openform "个人信息录入窗口"
else if me.主体="单位" then
docmd.openform "单位信息录入窗口"
end if

以上代码没有测试,不知有没有错误,先试试看.

请问这个me.xxx是什么意思呀？[em13]

作者: sea.er 时间: 2004-3-23 03:10
me指的是当前窗体，xxx指的是当前窗体上的某一控件

作者: petrelai 时间: 2004-3-23 05:13
标题: 不好意思!我也是新手!也看不太懂你那些个代码1
至于在哪加入那些代码的问题,就是在你想按的那个按钮的"单击事件"呀!

作者: Ajoe 时间: 2004-3-24 22:13
你的代码经过我的调试，出现错误，你的Else语句有错，应该这样：
Private Sub Command26_Click()
If Me.违法主体 = "个人" Then
  DoCmd.OpenForm "个人资料"
Else
  Me.违法主体 = "单位"
  DoCmd.OpenForm "单位资料"
End If
End Sub

作者: petrelai 时间: 2004-3-24 23:31
呵^^^^不好意思!

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