Question

我有一点不寻常的问题（或者至少我觉得它很不寻常）。我有一个连续的表单，显示基于我更改组合框中的值后更新的查询的某些记录。我有一个＆＃34;查看全部＆＃34;超链接文本框，以便我可以切换到我想要的时间查看所有记录，但是当我选择了具有记录的组合框值时，只发现它。例如，如果我想查找分配给Joe Shmo的记录并且分配了一条记录，则会显示超链接。如果我想找到分配给Susie Seashell的记录并且她没有分配给她，它就会消失。问题在于，如果我点击屏幕上显示超链接的区域，它仍然按预期工作 - 没有任何可见的信息会引导您点击那里。文本字段的可见性已打开，我甚至尝试在txtfield.visible = true中进行编码，但它什么也没做。任何帮助将不胜感激！

注意：超链接控制源是=＆＃34;查看全部＆＃34;。不确定这是否重要。

此表单上使用的所有VBA代码如下：

Option Compare Database

Private Sub cboFindNotice_AfterUpdate()
getSearchResults

End Sub


Private Function getSearchResults()
    Dim sql As String
    Dim errMsg As String
    '== Sets value of string 'sql'

    sql = "SELECT tblNotice.ID, tblNotice.noticeSEIFnoticeNumber, tblNotice.noticeJurisdiction, tblNotice.noticeDueDate, tblNotice.noticeTitle, " _
        & "tblAnalysts.[analyst_lName] & "", "" & [analyst_fName] AS Expr1, tblNotice.noticeStatus" _
        & " FROM tblAnalysts INNER JOIN tblNotice ON tblAnalysts.ID = tblNotice.noticeAnalyst" _
        & " WHERE tblNotice.noticeAnalyst LIKE '*" & Me.cboFindNotice & "*'" _
        & " ORDER BY tblNotice.noticeDueDate"


    '== Displays records based on query
    Me.Form.RecordSource = sql
    Me.Form.Requery
End Function

Private Sub noticeSEIFnoticeNumber_Click()
    DoCmd.OpenForm "frmNoticeDetails"
    [Forms]![frmNoticeDetails].Controls("txtControlField").Value = Me.Controls("ID").Value
Call Forms.frmNoticeDetails.txtControlField_AfterUpdate
End Sub


Private Sub txtViewAll_Click()
    Me.cboFindNotice.Value = ""
    Call cboFindNotice_AfterUpdate

End Sub

超链接文本基于连续表单上的组合框值消失

0 个答案: