Private Sub Check261_Click()
Dim SQL As String
Dim strCriteria As String
Dim strCriteria2 As String
'Room Number = All; Memo = All; Check Box Room = No; Check Box Memo = No
If Me!Text206 = "All" And Me!Text208 = "All" Then
strCriteria = "[Estimate Data.Room Number] Like '*'"
strCriteria2 = "[Estimate Data.Memo] Like '*'"
'Room Number = All; Memo = Selected; Check Box Room = No; Check Box Memo = No
ElseIf Me!Text206 = "All" And Me!Text208 <> "All" Then
strCriteria2 = Me.Text208
strCriteria2 = Replace(strCriteria2, "Included: ", "")
strCriteria2 = Left(strCriteria2, Len(strCriteria2) - 1)
strCriteria2 = "[Estimate Data].[Memo] IN('" & Replace(strCriteria2, ", ", "','") & "')"
strCriteria = "[Estimate Data.Room Number] Like '*'"
'Room Number = Selected; Memo = All; Check Box Room = No; Check Box Memo = No
ElseIf Me!Text206 <> "All" And Me!Text208 = "All" Then
strCriteria = Me.Text206
strCriteria = Replace(strCriteria, "Included: ", "")
strCriteria = Left(strCriteria, Len(strCriteria) - 1)
strCriteria = "[Estimate Data].[Room Number] IN('" & Replace(strCriteria, ", ", "','") & "')"
strCriteria2 = "[Estimate Data.Memo] Like '*'"
'Room Number = Selected; Memo = Selected; Check Box Room = No; Check Box Memo = No
Else
If Me!Text206 <> "All" And Me!Text208 <> "all" Then
strCriteria = Me.Text206
strCriteria = Replace(strCriteria, "Included: ", "")
strCriteria = Left(strCriteria, Len(strCriteria) - 1)
strCriteria = "[Estimate Data].[Room Number] IN('" & Replace(strCriteria, ", ", "','") & "')"
strCriteria2 = Me.Text208
strCriteria2 = Replace(strCriteria2, "Included: ", "")
strCriteria2 = Left(strCriteria2, Len(strCriteria2) - 1)
strCriteria2 = "[Estimate Data].[Memo] IN('" & Replace(strCriteria2, ", ", "','") & "')"
End If
End If
SQL = "UPDATE [Estimate Data] " & _
"SET Completed = True " & _
"WHERE [Project Number] = [Forms]![Workorders1]![Project Number] AND[Class] = [Forms]![Workorders1]![cboClass] AND (" & strCriteria & ") AND (" & strCriteria2 & ");"
DoCmd.RunSQL SQL
End Sub