小编rel*_*0ne的帖子

我编写了一个脚本,该脚本连接到Oracle数据库以选择特定表中的多个条目.

声明如下:

rs.open "SELECT PATH301 FROM NC301B WHERE EDIPROC like 'P30_' AND (LF301M > 0) AND (PATH301 NOT LIKE '%saptemp%') AND (PATH301 NOT LIKE '%SAPTEMP%') AND (PATH301 NOT LIKE '%usr%') AND (PATH301 NOT LIKE '%Windows%');", cn, 3

现在我想知道是否可以将此语句拆分为多行.例如这样:

rs.open "SELECT PATH301 FROM NC301B 
WHERE EDIPROC like 'P30_' 
AND (LF301M > 0) 
AND (PATH301 NOT LIKE '%saptemp%') 
AND (PATH301 NOT LIKE '%SAPTEMP%') 
AND (PATH301 NOT LIKE '%usr%') 
AND (PATH301 NOT LIKE '%Windows%');", cn, 3

第一个SELECT声明是大而不好看的方式.我希望你明白我的意思.

我想用我的默认浏览器打开一个 URL。

我尝试使用“ Call Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe -url" & strUrl, 1)”，但 Firefox 无法打开该 URL。相反，Firefox 从我的默认页面开始。

当我使用“ Call Shell(strURL,1)”时，我收到“文件未找到”错误。

Private Sub openurl_Click()
    Dim urlopen As String
    Dim User As String
    Dim pass As String

        urlopen = URL.Value
        User = Username.Value
        'pass = Passwort.Value
        pass = InputBox("Passwort eingeben")
        strUrl = "https://" & User & ":" & pass & "@" & urlopen

        'MsgBox strURL <- TEST OUTPUT

        'Call Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe -t" & strUrl, 1)
        'Call Shell(strURL, 1)

    End …

我想创建一个报告date作为标准.

我有一个名为TextBox(未绑定)ber-datum,我想选择我的表中与日期匹配的每个条目.

我创建了一个按钮,后面有以下代码.

Private Sub ber_datum_button_Click()
    DoCmd.OpenReport "ber-planung", acViewReport, , "[Datum]='" & Me.[ber-datum] & "'"
End Sub

但我总是得到"数据类型不匹配"错误.Datum我表中的数据类型设置为Date.

除此之外,其他每份报告都可以正常工作

例:

Private Sub ber_hid_button_Click()
    DoCmd.OpenReport "ber-planung", acViewReport, , "[HID]='" & Me.[ber-hid] & "'"
End Sub