strSQL = "INSERT INTO tempPerson ( PostCode, HouseNumber, Name )" & vbCrLf _
& "select distinct Combined_Data.Postcode, Combined_Data.HouseNumber, Combined_Data.Name " & vbCrLf _
& " FROM Combined_Data " & vbCrLf _
& " WHERE "
If Me.AddressCombo.Value <> "" Then
strFilters = strFilters & " Combined_Data.HouseNumber=""" & Me.AddressCombo.Value & """"
End If
If Me.NameCombo.Value <> "" Then
If Len(strFilters) > 0 Then strFilters = strFilters & " AND "
strFilters = strFilters & " Combined_Data.Name = """ & Me.NameCombo.Value & """"
End If
If Me.PostCodeCombo.Value <> "" Then
If Len(strFilters) > 0 Then strFilters = strFilters & " AND "
strFilters = strFilters & " Combined_Data.PostCode=""" & Me.PostCodeCombo.Value & """"
End If
strSQL = strSQL & strFilters
DoCmd.RunSQL (strSQL)