操纵变量和检索报告

时间:2015-06-03 10:22:26

标签: access-vba

我试图解决问题并需要一些帮助。我有3种类型的用户(T8XXXXX,P9XXXXX和XXXXX),每个用户都有不同的元素,因此有不同的报告。前两个if语句有效,就打开报告而言,一个报告为空白,第三个报告全部失败。我不确定如何解决这个问题,我希望得到专业人士的帮助。非常感谢任何帮助!

Private Sub cmdPrintIndRep_Click()
Dim strUser As String
strUser = Forms.frmsupresults.subfrmUsrRes!UserName
        If Left(strUser, 2) Like "t8" Then
            DoCmd.OpenReport "FedInvest - ISSR Recertification Report", acViewPreview
            ElseIf Left(strUser, 2) Like "p9" Then
                DoCmd.OpenReport "Courts - ISSR Recertification Report", acViewPreview
            Else Left(strUser, 2) not Like "p9" and not like "t8"" Then
                DoCmd.OpenReport "FedInvest - ISSR Internal Users Recertification Report", acViewPreview
End If
End Sub

1 个答案:

答案 0 :(得分:0)

免责声明:我没有专业人士,但希望我可以提供帮助。

我通过引用引用here找到的控件来调整document.querySelector('.grid').addEventListener('mouseover', function(e) { if (e.target.tagName === 'IMG') { ulNode = e.target.parentNode.parentNode; var getAtt = e.target.getAttribute('src'); var imgLoc = getAtt.substring(0,getAtt.length-7)+".jpg"; console.log(imgLoc); //images/Hassum_Harrod_03.jpg //images/Hassum_Harrod.jpg var createElement = document.createElement("img"); createElement.setAttribute("src",imgLoc); ulNode.innerHTML=""; ulNode.appendChild(createElement); } // check to see that I clicked on IMG only }, false); // click event 的定义。

假设只有3种类型的用户,我只是删除了最后一个strUser语句。如果它不是第一种类型,也不是第二种类型,它必须是第三种类型的用户。

最后,我们应该在if语句的条件中使用=而不是Like

if

至于您的报告是空白的,他们的Record Source是什么?