Question

我正在创建一个应该打开访问权限的.vbs文件，并在内部访问表单调用“问题详细信息”，但是传递一个参数，这意味着如果我在“问题”表中有10个问题，则创建一个vbs文件每一个和单击时应该打开正确的记录（将是表中每个记录的一个ID）。到目前为止，它是打开访问权限并打开表单（问题详细信息），但它是空白的。我错过了什么？帮助，在这里变得疯狂...检查下面的代码。这里奇怪的是，如果我再次双击它将刷新并打开正确的记录而不再打开窗口.. 我该如何解决这个问题？我不想做两次：）

Public Sub sendMRBmail(mrbid)
DoCmd.OpenForm "Issue Details", , , "[ID] = " & mrbid
End Sub

Private Sub Create_Click()
On Error GoTo Err_Command48_Click
Dim snid As Integer
snid = Me.ID
Dim filename As String
filename = "S:\Quality Control\vbs\QC" & snid & ".vbs" 
Dim proc As String
proc = Chr(34) & "sendMRBmail" & Chr(34)

Dim strList As String

strList = "On Error Resume Next" & vbNewLine
strList = strList & "dim accessApp" & vbNewLine
strList = strList & "set accessApp = createObject(" & Chr(34) & "Access.Application" & Chr  (34)")" & vbNewLine
strList = strList & "accessApp.OpenCurrentDataBase(" & Chr(34) & "S:\Quality Control\Quality  DB\Quality Database.accdb" & Chr(34) & ")" & vbNewLine
strList = strList & "accessApp.Run " & proc & "," & Chr(34) & snid & Chr(34) & vbNewLine
strList = strList & "set accessApp = nothing" & vbNewLine
Open filename For Output As #1
Print #1, strList
Close #1

Err_Command48_Click:

If Err.Number <> 0 Then
 MsgBox "Email Error #: " & Err.Number & ", " & "Description: " & Err.Description
  Exit Sub
End If
End Sub

Answer 1

发现问题。改变了下面的说明，向它添加了acFormEdit并且它起作用了：

DoCmd.OpenForm "Issue Details", , , "[ID] = " & mrbid, acFormEdit

vbs传递参数奇怪的行为

1 个答案: