关于按钮的代码！

Ajoe

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

petrelai

在按钮代码中加入以下代码:
if me.主体="个人" then
  docmd.openform "个人信息录入窗口"
else if me.主体="单位" then
  docmd.openform "单位信息录入窗口"
end if

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

Ajoe

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

Ajoe

我的按钮代码是这样的：(我看不大懂啊)

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

以下是引用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

me指的是当前窗体，xxx指的是当前窗体上的某一控件

petrelai

至于在哪加入那些代码的问题,就是在你想按的那个按钮的"单击事件"呀!

Ajoe

你的代码经过我的调试，出现错误，你的Else语句有错，应该这样：
Private Sub Command26_Click()
If Me.违法主体 = "个人" Then
  DoCmd.OpenForm "个人资料"
Else
  Me.违法主体 = "单位"
  DoCmd.OpenForm "单位资料"
End If
End Sub

petrelai

呵^^^^不好意思!