Question

我在数据表视图中有一个表单，第一列显示所显示记录的自动编号主键。

此字段显示为超链接，用于打开表单以操作记录的数据。

我希望这个超链接打开两种不同形式中的一种，具体取决于特定字段是否为空。

这是我用来打开相关记录的表格的代码

Private Sub ISP_ID_Click()

    TempVars.Add "CurrentRecord", ISP_ID.Value
    DoCmd.OpenForm "frmModifyISP", acNormal, "", "[ISP_ID]=[TempVars]![CurrentRecord]", acEdit, acNormal

End Sub

如果当前记录的名为“AddressID”的字段不为空，我想打开一个名为“frmModifyISP_Address”的表单。

对此的任何帮助将不胜感激。

Answer 1

怎么样：

Private Sub ISP_ID_Click()

    If IsNull(Me!AddressID.Value) Then
        DoCmd.OpenForm "frmModifyISP_Address"
    Else
        TempVars.Add "CurrentRecord", ISP_ID.Value
        DoCmd.OpenForm "frmModifyISP", acNormal, "", "[ISP_ID]=[TempVars]![CurrentRecord]", acEdit, acNormal
    End If

End Sub

或查找值：

Private Sub ISP_ID_Click()

    If IsNull(DLookup("AddressID", "YourTable", "ID = " & Me!ISP_ID.Value & "")) Then
        DoCmd.OpenForm "frmModifyISP_Address"
    Else
        TempVars.Add "CurrentRecord", ISP_ID.Value
        DoCmd.OpenForm "frmModifyISP", acNormal, "", "[ISP_ID]=[TempVars]![CurrentRecord]", acEdit, acNormal
    End If

End Sub

访问条件超链接

1 个答案: