Vba 在表单之间传递数据。 Private Sub FLower_Click() Dim catType As Integer catType = 2 DoCmd.OpenForm "frm_RespondentUseCat", Ope

在表单之间传递数据。

Private Sub FLower_Click()
    Dim catType As Integer
    catType = 2

    DoCmd.OpenForm "frm_RespondentUseCat", OpenArgs:=2


End Sub

Private Sub Form_Open(Cancel As Integer)
    Dim catType As Integer
    catType = Forms.frm_RespondentUseCat!OpenArgs

    Dim userID As Integer
    userID = Forms!Respondent.RespondentID.Value

    Dim strSQL As String
    strSQL = "SELECT * From RespondentUseCategories WHERE RespondentID = " & userID & " AND UseCategoryID = " & catType & ";"

    Dim results As DAO.Recordset
    Set results = CurrentDb.OpenRecordset(strSQL)

    If results.RecordCount > 0 Then
        Set Forms("frm_RespondentUseCat").Recordset = results

    Else
        Me.UseCategoryID.Value = catType
        Me.RespondentID.Value = userID

    End If

End Sub

    Private Sub cmbUserName_AfterUpdate()
Me.Filter = "UserID = " & Me.cmbUserName.Value
Me.FilterOn = True
End Sub

'TODO ADD CODE TO CHANGE BUTTON CAPTION BASED ON WHETHER BUTTON WILL ADD OR REMOVE CATEGORY
Private Sub cmdCommand_Click()
AddRemoveRecordFromUserCategoryTable 1
End Sub
Private Sub cmdScience_Click()
AddRemoveRecordFromUserCategoryTable 2
End Sub
Private Sub AddRemoveRecordFromUserCategoryTable(ID As Integer)
DoCmd.SetWarnings False
If IsNull(DLookup("UserCategoryID", "UserCategory", "UserID = " & Me.cmbUserName.Value & " AND CategoryID = " & ID)) Then
DoCmd.RunSQL ("INSERT INTO UserCategory (UserID, CategoryID) VALUES(" & Me.cmbUserName.Value & ", " & ID & ")")
Else
DoCmd.RunSQL ("DELETE * FROM UserCategory WHERE UserID = " & Me.cmbUserName.Value & " AND CategoryID = " & ID)
End If
DoCmd.SetWarnings True
Me.Refresh
End Sub