以新形式顯示記錄集

Question

以下代碼從表單中獲取參數並將其傳遞到vba中的存儲過程。我正確返回值，並且存儲過程在使用debug.Print時工作。現在我需要以「cat_percent_match」的形式顯示存儲過程的結果。所有這些都是在點擊按鈕時發生的。下面的代碼打開窗體，但現在我需要將記錄集傳遞給它並顯示結果。 任何幫助，不勝感激。

Dim Cmd1 As ADODB.Command 
Dim lngRecordsAffected As Long 
Dim rs1 As ADODB.Recordset 
Dim intRecordCount As Integer 
'----- 
Dim cnnTemp As ADODB.Connection 
Set cnnTemp = New ADODB.Connection 
cnnTemp.ConnectionString = "DRIVER=SQL Server;SERVER=***;" & _ 
"Trusted_Connection=No;UID=***;PWD=***;" & _ 
"Initial Catalog=IKB_QA;" 
cnnTemp.ConnectionTimeout = 400 
'Open Connection 
cnnTemp.Open 
Set Cmd1 = New ADODB.Command 
Cmd1.ActiveConnection = cnnTemp 
'--- 
With Cmd1 
Dim localv As Integer 
Dim inputv 


localv = [Forms]![Start]![Selection]![cat_code] 
.CommandText = "dbo.ix_spc_planogram_match_cat_percent " & inputv 
.CommandType = adCmdStoredProc 
Set inputv = Cmd1.CreateParameter("@deptcode", 3, 1, 10000, localv) 
Cmd1.Parameters.Append inputv 
Set rs1 = Nothing 
Set rs1 = Cmd1.Execute 

DoCmd.OpenForm "Cat_Percent_Match" 

End With 
End Sub 

Answer 1

相關文章http://support.microsoft.com/kb/281998

Private Sub Form_Open(Cancel As Integer) 
    Dim cn As ADODB.Connection 
    Dim rs As ADODB.Recordset 

    'Use the ADO connection that Access uses 
    Set cn = CurrentProject.AccessConnection 

    'Create an instance of the ADO Recordset class, and 
    'set its properties 
    Set rs = New ADODB.Recordset 
    With rs 
     Set .ActiveConnection = cn 
     .Source = "SELECT * FROM Customers" 
     .LockType = adLockOptimistic 
     .CursorType = adOpenKeyset 
     .Open 
    End With 

    'Set the form's Recordset property to the ADO recordset 
    Set Me.Recordset = rs 

    Set rs = Nothing 
    Set cn = Nothing 
End Sub 

因此，在這種特殊情況下，你可以試試：

DoCmd.OpenForm "Cat_Percent_Match" 
Set Forms.Cat_Percent_Match.Recordset = rs1