That works as individual check boxes, but if both are checked then its looking for a record with both a high and a low priority not high OR low.
Private Sub Command198_Click()
sWhere = "1=1"
If High_check.Value Then sWhere = sWhere & " AND [priority] = 'High'"
If low_check.Value Then sWhere =...
I can get a check box to apply a filter when selected and to remove the filter when not selected;
Private Sub High_check_Click()
If High_check = True Then
Me.Filter = "Priority = 'High'"
Me.FilterOn = True
Else
Me.FilterOn = False
End If
End Sub
But I don't know how to get it so that if...
Hi Guys,
I have got the code working on my DB so that any attachments associated with a record can be saved into a specific folder with the click of a button:
Private Sub command453_Click()
Dim rsA As Recordset2
Dim strFilename As String
Dim cnt As Integer
Dim PathToSaveTo As...