窗体的打开问题!

Ajoe

....我想在“立案审批”窗口中，打开“基本资料”录入窗口，需实现如下功能：

    1、当“违法主体=个人”时，打开个人“资料窗口”；
      当“违法主体=单位”时，打开单位“资料窗口”。
    2、打开的窗口要满足和前一个窗口记录相同。(但是，当打开的窗口没有相同的记录时，按钮就不起作用了，我就是想解决这个问题)

    以上两点要能同时实现，而且当没有相同记录时，就把打开的新窗口变成新记录的录入状态。这样的设想，能行吗？我不知道怎么来设置条件语句。请指教!

[此贴子已经被作者于2004-4-21 22:04:21编辑过]

简

不好意思喔，我也帮不上你的忙呢，我的问题，还有劳于你帮我讲讲呢。：）

Ajoe

Up↑

我同意

＝个人或＝单位来判断开哪个窗解决了对吗？
实际上就差一步了，再加一句 dlookup判断在相应表中是否有记录，即可根据结果决定是打开数据窗还是输入窗，主要是判断。坚决判断到底。。。。。呵呵

Ajoe

判断语句里有判断语句，我不知道该怎么写这代码。能指点一下吗？

akesaisi

IF ...then
   if ....then
   .....
   esle
   .....
   end if
else
   if ....then
   ....
   esle
   .....
   end if
end if

关键是判断的逻辑关系要搞清,嵌套判断的If..esle..end if要对应.写时注意缩进对齐,以免把自己搞晕.

Ajoe

OK.Let me try.

Ajoe

不会用DLookup。帮我看看：

Private Sub Command26_Click()
    If Me.违法主体 = "个人" Then
    DoCmd.OpenForm "个人资料"
    ElseIf Me.违法主体 = "单位" Then
    DoCmd.OpenForm "单位资料"
    End If
End Sub

数据如山

Private Sub Command26_Click()
    If Me.违法主体 = "个人" Then
       If  Not IsNull(Dlookup("[]","个人资料表","[表内某字段]='"&me.某对象&"'" then
           DoCmd.OpenForm "个人资料"
       Else
          打开输入窗
       End If  
  ElseIf Me.违法主体 = "单位" Then
        If  Not IsNull(Dlookup("[]","单位资料表","[表内某字段]='"&me.某对象&"'" then
           DoCmd.OpenForm "单位资料"
       Else
          打开输入窗.....
       End If  
  End If
End Sub

我也常常"某某语句不会",不过要会还得自己到系统自带的"帮助"里找.
注意,代码编辑状态窗里的帮助更针对语句语法

[此贴子已经被作者于2004-4-22 12:18:15编辑过]

Ajoe

我这样可以实现，请教还有没有需要改进的地方：

Private Sub Command26_Click()
    If Me.违法主体 = "个人" Then
        If Not IsNull(DLookup("[案件序号]", "个人", "[案件序号] = '" & Me.案件序号 & "'")) Then
        DoCmd.OpenForm "个人资料", , , "[案件序号] = '" & Me.案件序号 & "'"
        Else
        DoCmd.OpenForm "个人资料"
        DoCmd.GoToRecord , , acNewRec
        End If
    ElseIf Me.违法主体 = "单位" Then
        If Not IsNull(DLookup("[案件序号]", "单位", "[案件序号] = '" & Me.案件序号 & "'")) Then
        DoCmd.OpenForm "单位资料", , , "[案件序号] = '" & Me.案件序号 & "'"
        Else
        DoCmd.OpenForm "单位资料"
        DoCmd.GoToRecord , , acNewRec
        End If
    End If
End Sub