窗体的打开问题!

Ajoe

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

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

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

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

数据如山

土豆老大的意思是，
  IF 符合条件的记录数大于0 则。。。。

Ajoe

以下是引用土豆在2004-4-22 14:17:27的发言：
If DCount("*", "个人", "[案件序号] = '" & Me.案件序号 & "'")>0 Then

土豆兄，你这句有何用意？

土豆

If DCount("*", "个人", "[案件序号] = '" & Me.案件序号 & "'")>0 Then

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

数据如山

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

不会用DLookup。帮我看看：

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

Ajoe

OK.Let me try.

akesaisi

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

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

Ajoe

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