A
Aliennation2002
Hi
CbodesktopFilter is supposed to Filter out what ever is select from the
dropdown Window, but it doesn’t seem to work.
CboSoftware need to have its selection restricted by only showing in the
dropdown window software that also has a matching field to CbodesktopFilter.
I’ve included my code below
Can anyone help?
Err_BtnFirstRec_Click:
MsgBox Err.Description
Resume Exit_BtnFirstRec_Click
End Sub
Private Sub Toggle40_Click()
End Sub
Private Sub Combo46_AfterUpdate()
End Sub
Private Sub Cb0Software_AfterUpdate()
End Sub
Private Sub CboDesktopVerFilter_AfterUpdate()
Dim SProcessID
With CboDesktopVerFilter
If CboDesktopVerFilter.ListIndex <> -1 Then
SProcessID = CboDesktopVerFilter.SelText
Filter = DesktopVer = " & sProcessId"
FilterOn = True
End If
End With
End Sub
Private Sub CboDesktopVerFilter_Click()
FilterOn = False
End Sub
Private Sub Combo48_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[IssuelogID] = " & Str(Nz(Me![Combo48], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
CbodesktopFilter is supposed to Filter out what ever is select from the
dropdown Window, but it doesn’t seem to work.
CboSoftware need to have its selection restricted by only showing in the
dropdown window software that also has a matching field to CbodesktopFilter.
I’ve included my code below
Can anyone help?
Err_BtnFirstRec_Click:
MsgBox Err.Description
Resume Exit_BtnFirstRec_Click
End Sub
Private Sub Toggle40_Click()
End Sub
Private Sub Combo46_AfterUpdate()
End Sub
Private Sub Cb0Software_AfterUpdate()
End Sub
Private Sub CboDesktopVerFilter_AfterUpdate()
Dim SProcessID
With CboDesktopVerFilter
If CboDesktopVerFilter.ListIndex <> -1 Then
SProcessID = CboDesktopVerFilter.SelText
Filter = DesktopVer = " & sProcessId"
FilterOn = True
End If
End With
End Sub
Private Sub CboDesktopVerFilter_Click()
FilterOn = False
End Sub
Private Sub Combo48_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[IssuelogID] = " & Str(Nz(Me![Combo48], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub