Filter - Unable to Filter between Spanish and English in Form

[claskew]

Good Morning All,

I am unable to filter in my Advanced Search form. I am unable to pull back just the Spanish selections instead it pulls back all English and Spanish publications. I have adjusted the query as well as the vba script and still unable to pull back just the Spansih pubs. Help!!!!!!!

 

[randy700]

Perhaps if you showed us the query?


Randy

 

[claskew]

Randy,

I apologize for the delay in getting back with you. I was out the rest of the afternoon yesterday. Listed below is the Advanced Search Form vba:

Option Compare Database
Dim QueryFields As String, WhereClause As String, Rpt_AdvSearchQuery As String

Private Sub btn_CloseForm_Click()
DoCmd.Close acForm, "Frm_NewAdv_Search"
End Sub

Private Sub C_CheckClient_Click()
C_ComboClient = ""
End Sub
Private Sub C_CheckEconomicEditor_Click()
C_ComboEconEditors = ""
End Sub
Private Sub C_CheckLeadDesigner_Click()
C_ComboLeadDesigner = ""
End Sub
Private Sub C_CheckLeadEditor_Click()
C_ComboLeadEditor = ""
End Sub
Private Sub C_CheckLeadWebDesigner_Click()
C_ComboLeadWebDesigner = ""
End Sub
Private Sub C_CheckLeadWebEditor_Click()
C_ComboLeadWebEditor = ""
End Sub
Private Sub C_CheckProjectLead_Click()
C_ComboProjectLead = ""
End Sub
Private Sub C_ComboClient_Click()
C_CheckClient = False
End Sub
Private Sub C_ComboEconEditors_Click()
C_CheckEconomicEditor = False
End Sub
Private Sub C_ComboLeadDesigner_Click()
C_CheckLeadDesigner = False
End Sub
Private Sub C_ComboLeadEditor_Click()
C_CheckLeadEditor = False
End Sub
Private Sub C_ComboLeadWebDesigner_Click()
C_CheckLeadWebDesigner = False
End Sub
Private Sub C_ComboLeadWebEditor_Click()
C_CheckLeadWebEditor = False
End Sub
Private Sub C_ComboProjectLead_Click()
C_CheckProjectLead = False
End Sub
Private Sub G_CheckAudience_Click()
G_InternalAudience = False
G_ExternalAudience = False
G_ExternalAudType = ""
G_ExternalAudType.Enabled = False
G_ExternalAudTypeOther = ""
G_ExternalAudTypeOther.Enabled = False
End Sub
Private Sub G_CheckFrequency_Click()
G_ComboFreq = ""
End Sub
Private Sub G_CheckFrequencyCycle_Click()
G_ComboFreqCyc = ""
End Sub
Private Sub G_CheckIndexing_Click()
G_UnknownIndexing = False
G_InternalIndexing = False
G_ExternalIndexing = False
G_InternalIndexType = ""
G_InternalIndexType.Enabled = False
G_IndexVendor = ""
G_IndexVendor.Enabled = False
End Sub
Private Sub G_CheckPDFType_Click()
ComboPDFType = ""
End Sub
Private Sub G_CheckProductionLocation_Click()
G_ProductionInternal = False
G_ProductionExternal = False
G_ProdLocVendor = ""
G_ProdLocVendor.Enabled = False
End Sub
Private Sub G_CheckPubCost_Click()
G_PubCost = ""
End Sub
Private Sub G_CheckPubSubType_Click()
G_ComboPubSubType = ""
End Sub
Private Sub G_CheckPubType_Click()
G_ComboPubType = ""
G_TextPubSubTypeOther = ""
End Sub
Private Sub G_ComboDiv_Click()
G_CheckDivision = False
End Sub
Private Sub G_ComboFreq_Click()
G_CheckFrequency = False
End Sub
Private Sub G_ComboFreqCyc_Click()
G_CheckFrequencyCycle = False
End Sub
[highlight]Private Sub G_CheckSpanish_Click()

End Sub[/highlight]

Private Sub G_ComboPDFType_Click()
G_CheckPDFType = False
End Sub
Private Sub G_ComboPubSubType_Click()
G_CheckPubSubType = False
End Sub
Private Sub G_ComboPubType_Click()
G_CheckPubType = False
End Sub
Private Sub CommandSearch_Click()
Dim objControl As Control
QueryFields = "PubName, PubType "
WhereClause = ""
For Each objControl In Controls
If TypeOf objControl Is TextBox Then
If objControl.Value <> "" Then
QueryFields = QueryFields & GetFieldName(Mid(objControl.Name, 3)) & ", "
WhereClause = WhereClause & GetFieldName(Mid(objControl.Name, 3)) & " = '" & Replace(objControl.Value, "'", "''") & "' and "
End If
ElseIf TypeOf objControl Is CheckBox Then
If objControl.Value = True Then
Select Case Mid(objControl.Name, 8)
Case "Client"
QueryFields = QueryFields & "Contacts_LastName, Contacts_FirstName, Contacts_Phone, "
Case "ProjectLead"
QueryFields = QueryFields & "ProjectLead_LastName, ProjectLead_FirstName, ProjectLead_Phone, "
Case "LeadDesigner"
QueryFields = QueryFields & "LeadDesigner_LastName, LeadDesigner_FirstName, LeadDesigner_Phone, "
Case "LeadEditor"
QueryFields = QueryFields & "LeadEditor_LastName, LeadEditor_FirstName, LeadEditor_Phone, "
Case "LeadWebDesigner"
QueryFields = QueryFields & "LeadWebDesigner_LastName, LeadWebDesigner_FirstName, LeadWebDesigner_Phone, "
Case "LeadWebEditor"
QueryFields = QueryFields & "LeadWebEditor_LastName, LeadWebEditor_FirstName, LeadWebEditor_Phone, "
Case "EconomicEditor"
QueryFields = QueryFields & "EconEditors_LastName, EconEditors_FirstName, EconEditors_Phone, "
Case "Print"
QueryFields = QueryFields & "PrintLoc, Print_Vendor, Print_LastName, Print_FirstName, Print_VendorPhone, Print_VendorAddress, "
Case "Distribution"
QueryFields = QueryFields & "DistribLoc, Distribution_Vendor, Distribution_LastName, Distribution_FirstName, Distribution_VendorPhone, Distribution_VendorAddress, "
Case "Audience"
QueryFields = QueryFields & "AudLoc, AudType, ExtAudOther, "
Case "Indexing"
QueryFields = QueryFields & "IndexType, Index_Vendor, Index_LastName, Index_FirstName, Index_VendorPhone, Index_VendorAddress, "
Case "ProductionLocation"
QueryFields = QueryFields & "ProdLoc, ProdLoc_Vendor, ProdLoc_LastName, ProdLoc_FirstName, ProdLoc_VendorPhone, ProdLoc_VendorAddress, "
Case Else
QueryFields = QueryFields & GetFieldName(Mid(objControl.Name, 8)) & ", "
End Select
End If
ElseIf TypeOf objControl Is OptionButton Then
If objControl.Value Then
Select Case objControl.Name
Case "G_InternalAudience"
QueryFields = QueryFields & "AudLoc, "
WhereClause = WhereClause & "AudLoc = 'Internal' and "
Case "G_ExternalAudience"
QueryFields = QueryFields & "AudType, AudLoc, "
WhereClause = WhereClause & "AudLoc = 'External' and "
If Nz(G_ExternalAudType, "") <> "" Then WhereClause = WhereClause & "AudType = '" & G_ExternalAudType & "' and "
Case "G_UnknownIndexing"
QueryFields = QueryFields & "AudLoc, "
WhereClause = WhereClause & "AudLoc = 'Unknown' and "
Case "G_InternalIndexing"
QueryFields = QueryFields & "IndexLoc, IndexType, "
WhereClause = WhereClause & "IndexType = '" & G_InternalIndexType & "' and "
Case "G_ExternalIndexing"
QueryFields = QueryFields & "IndexLoc, IndexType, Index_Vendor, Index_LastName, Index_FirstName, Index_VendorPhone, Index_VendorAddress, "
WhereClause = WhereClause & IIf(Nz(G_IndexVendor.Column(1), "") = "", "", "Index_Vendor = '" & G_IndexVendor.Column(1) & "' and ")
Case "G_ProductionInternal"
QueryFields = QueryFields & "ProdLoc, "
WhereClause = WhereClause & "ProdLoc = 'Internal' and "
Case "G_ProductionExternal"
QueryFields = QueryFields & "ProdLoc, ProdLoc_Vendor, ProdLoc_LastName, ProdLoc_FirstName, ProdLoc_VendorPhone, ProdLoc_VendorAddress, "
WhereClause = WhereClause & "ProdLoc = 'External' and "
Case "P_DistributionInternal"
QueryFields = QueryFields & "DistribLoc, "
WhereClause = WhereClause & "DistribLoc = 'Internal' and "
Case "P_DistributionExternal"
QueryFields = QueryFields & "DistribLoc, Distribution_Vendor, Distribution_LastName, Distribution_FirstName, Distribution_VendorPhone, Distribution_VendorAddress, "
WhereClause = WhereClause & "DistribLoc = 'External' and Distribution_Vendor = '" & P_DistributionVendor.Column(1) & "' and "
Case "W_Compliant508Yes"
QueryFields = QueryFields & "Compliant508, "
WhereClause = WhereClause & "Compliant508 and "
Case "W_Compliant508No"
QueryFields = QueryFields & "Compliant508, "
WhereClause = WhereClause & "not Compliant508 and "
Case "W_HTMLPostYes"
QueryFields = QueryFields & "PubWeb_HTML, "
WhereClause = WhereClause & "PubWeb_HTML and "
Case "W_HTMLPostNo"
QueryFields = QueryFields & "PubWeb_HTML, "
WhereClause = WhereClause & "not PubWeb_HTML and "
Case "P_PrintInternal"
QueryFields = QueryFields & "PrintLoc, "
WhereClause = WhereClause & "PrintLoc = 'Internal' and "
Case "P_PrintExternal"
QueryFields = QueryFields & "PrintLoc, Print_Vendor, Print_LastName, Print_FirstName, Print_VendorPhone, Print_VendorAddress, "
WhereClause = WhereClause & "PrintLoc = 'External' and Print_Vendor = '" & P_PrintVendor.Column(1) & "' and "
End Select
End If
ElseIf TypeOf objControl Is ComboBox Then
If objControl.Value <> "" And Mid(objControl.Name, 3, 5) = "Combo" Then
Select Case Mid(objControl.Name, 8)
Case "Client"
QueryFields = QueryFields & "Contacts_LastName, Contacts_FirstName, Contacts_Phone, "
WhereClause = WhereClause & "Contacts_LastName = '" & C_ComboClient.Column(1) & "' and Contacts_FirstName = '" & C_ComboClient.Column(2) & "' and "
Case "ProjectLead"
QueryFields = QueryFields & "ProjectLead_LastName, ProjectLead_FirstName, ProjectLead_Phone, "
WhereClause = WhereClause & "ProjectLead_LastName = '" & C_ComboProjectLead.Column(1) & "' and ProjectLead_FirstName = '" & C_ComboProjectLead.Column(2) & "' and "
Case "LeadDesigner"
QueryFields = QueryFields & "LeadDesigner_LastName, LeadDesigner_FirstName, LeadDesigner_Phone, "
WhereClause = WhereClause & "LeadDesigner_LastName = '" & C_ComboLeadDesigner.Column(1) & "' and LeadDesigner_FirstName = '" & C_ComboLeadDesigner.Column(2) & "' and "
Case "LeadEditor"
QueryFields = QueryFields & "LeadEditor_LastName, LeadEditor_FirstName, LeadEditor_Phone, "
WhereClause = WhereClause & "LeadEditor_LastName = '" & C_ComboLeadEditor.Column(1) & "' and LeadEditor_FirstName = '" & C_ComboLeadEditor.Column(2) & "' and "
Case "LeadWebDesigner"
QueryFields = QueryFields & "LeadWebDesigner_LastName, LeadWebDesigner_FirstName, LeadWebDesigner_Phone, "
WhereClause = WhereClause & "LeadWebDesigner_LastName = '" & C_ComboLeadWebDesigner.Column(1) & "' and LeadWebDesigner_FirstName = '" & C_ComboLeadWebDesigner.Column(2) & "' and "
Case "LeadWebEditor"
QueryFields = QueryFields & "LeadWebEditor_LastName, LeadWebEditor_FirstName, LeadWebEditor_Phone, "
WhereClause = WhereClause & "LeadWebEditor_LastName = '" & C_ComboLeadWebEditor.Column(1) & "' and LeadWebEditor_FirstName = '" & C_ComboLeadWebEditor.Column(2) & "' and "
Case "EconEditors"
QueryFields = QueryFields & "EconEditors_LastName, EconEditors_FirstName, EconEditors_Phone, "
WhereClause = WhereClause & "EconEditors_LastName = '" & C_ComboEconEditors.Column(1) & "' and EconEditors_FirstName = '" & C_ComboEconEditors.Column(2) & "' and "
Case "PubName"
WhereClause = WhereClause & GetFieldName(Mid(objControl.Name, 8)) & " = '" & Replace(G_ComboPubName.Column(1), "'", "''") & "' and "
Case "StartYear"
Case "EndYear"
Case "PubType"
WhereClause = WhereClause & GetFieldName(Mid(objControl.Name, 8)) & " = '" & G_ComboPubType.Column(1) & "' and "
Case Else
QueryFields = QueryFields & GetFieldName(Mid(objControl.Name, 8)) & ", "
WhereClause = WhereClause & GetFieldName(Mid(objControl.Name, 8)) & " = '" & objControl.Column(1) & "' and "
End Select
End If
End If
Next
QueryFields = Mid(QueryFields, 1, Len(QueryFields) - 2)
If A_ComboStartYear <> "" And A_ComboEndYear <> "" Then WhereClause = WhereClause & " year(CreationDate) >= " & A_ComboStartYear & " and year(CreationDate) <= " & A_ComboEndYear & " and "
If WhereClause <> "" Then WhereClause = " where " & Mid(WhereClause, 1, Len(WhereClause) - 5)
Dim qdfNew As QueryDef, QueryLoop As QueryDef
DeleteQueryFromDatabase ("Rpt_AdvSearchQuery" & UsersID())
With CurrentDb
Set qdfNew = .CreateQueryDef("Rpt_AdvSearchQuery" & UsersID(), "select " & QueryFields & " from qry_PubDataRecord " & WhereClause & " order by PubName")
.QueryDefs.Refresh
.Close
End With
If CurrentProject.AllReports("Rpt_Adv_Search").IsLoaded Then
DoCmd.Close acReport, "Rpt_Adv_Search", acSavePrompt
End If
DoCmd.OpenReport "Rpt_Adv_Search", acViewReport
End Sub
Private Sub Form_Load()
Form.Caption = "Search Publication Records"
Call ClearForm("A_")
End Sub
Private Sub ComboStartYear_Click()
If Val(Nz(A_ComboStartYear, 2030)) > Val(Nz(A_ComboEndYear, 0)) Then
A_ComboEndYear = A_ComboStartYear
End If
End Sub
Private Sub ComboEndYear_Click()
If Val(Nz(ComboStartYear, 0)) > Val(Nz(ComboEndYear, 0)) Then
ComboEndYear = ComboStartYear
End If
End Sub
Private Sub CommandClearForm_Click()
Call ClearForm("A_")
End Sub
Private Sub CommandClearContact_Click()
Call ClearForm("C_")
End Sub
Private Sub CommandClearGeneral_Click()
Call ClearForm("G_")
End Sub
Private Sub CommandClearLifecycle_Click()
Call ClearForm("L_")
End Sub
Private Sub CommandClearPrint_Click()
Call ClearForm("P_")
End Sub
Private Sub CommandClearWeb_Click()
Call ClearForm("W_")
End Sub
Public Sub ClearForm(strSection As String)
A_ComboEndYear = ""
A_ComboStartYear = ""
For Each objControl In Controls
If strSection = "A_" Or Nz(Left(objControl.Name, 2), "") = strSection Then
If TypeOf objControl Is TextBox Then
objControl.Value = ""
ElseIf TypeOf objControl Is ComboBox Then
objControl.Value = ""
If Mid(objControl.Name, 3, 5) <> "Combo" Then
objControl.Enabled = False
End If
ElseIf TypeOf objControl Is CheckBox Then
objControl.Value = False
ElseIf TypeOf objControl Is OptionButton Then
objControl.Value = False
ElseIf TypeOf objControl Is ComboBox Then
objControl.Value = ""
End If
End If
Next
End Sub
Private Sub G_CheckDivision_Click()
G_ComboDivision = ""
End Sub
Private Sub G_InternalAudience_Click()
If G_InternalAudience Then
G_ExternalAudType.Enabled = False
G_ExternalAudience = False
G_ExternalAudType = ""
G_ExternalAudTypeOther = ""
G_ExternalAudTypeOther.Enabled = False
G_CheckAudience = False
End If
End Sub
Private Sub G_ExternalAudience_Click()
If G_ExternalAudience Then
G_ExternalAudType.Enabled = True
G_InternalAudience = False
G_CheckAudience = False
Else
G_ExternalAudType.Enabled = False
G_ExternalAudType = ""
G_ExternalAudTypeOther = ""
G_ExternalAudTypeOther.Enabled = False
End If
End Sub
Private Sub G_ExternalAudType_Click()
If G_ExternalAudType = "Other" Then
G_ExternalAudTypeOther.Enabled = True
G_ExternalAudTypeOther.SetFocus
Else
G_ExternalAudTypeOther = ""
G_ExternalAudTypeOther.Enabled = False
End If
End Sub
Private Sub G_ProductionExternal_Click()
If G_ProductionExternal Then
G_ProdLocVendor.Enabled = True
G_ProductionInternal = False
G_CheckProductionLocation = False
Else
G_ProdLocVendor.Enabled = False
G_ProdLocVendor = ""
End If
End Sub
Private Sub G_ProductionInternal_Click()
If G_ProductionInternal Then
G_ProductionExternal = False
G_ProdLocVendor.Enabled = False
G_ProdLocVendor = ""
G_CheckProductionLocation = False
End If
End Sub
Private Sub G_TextPubCost_Click()
CheckPubCost = False
End Sub
Private Sub G_PubCost_Click()
G_CheckPubCost = False
End Sub
Private Sub G_UnknownIndexing_Click()
If G_UnknownIndexing Then
G_InternalIndexing = False
G_ExternalIndexing = False
G_InternalIndexType = ""
G_InternalIndexType.Enabled = False
G_IndexVendor = ""
G_IndexVendor.Enabled = False
G_InternalIndexType.Enabled = False
G_CheckIndexing = False
End If
End Sub
Private Sub G_InternalIndexing_Click()
If G_InternalIndexing Then
G_ExternalIndexing = False
G_UnknownIndexing = False
G_IndexVendor = ""
G_IndexVendor.Enabled = False
G_InternalIndexType.Enabled = True
G_CheckIndexing = False
Else
G_InternalIndexType.Enabled = False
G_InternalIndexType = ""
End If
End Sub
Private Sub G_ExternalIndexing_Click()
If G_ExternalIndexing Then
G_InternalIndexing = False
G_UnknownIndexing = False
G_IndexVendor = ""
G_IndexVendor.Enabled = True
G_InternalIndexType.Enabled = False
G_InternalIndexType = ""
G_CheckIndexing = False
Else
G_IndexVendor.Enabled = False
G_IndexVendor = ""
End If
End Sub
Private Sub PrintExternal_Click()
If PrintExternal Then
PrintInternal = False
PrintVendor.Enabled = True
Else
PrintVendor.Enabled = False
PrintVendor = ""
End If
End Sub
Private Sub PrintInternal_Click()
If PrintInternal Then
PrintExternal = False
PrintVendor.Enabled = False
PrintVendor = ""
End If
End Sub
Private Sub DistributionExternal_Click()
If DistributionExternal Then
DistributionVendor.Enabled = True
DistributionInternal = False
Else
DistributionVendor.Enabled = False
DistributionVendor = ""
End If
End Sub
Private Sub DistributionInternal_Click()
If DistributionInternal Then
DistributionExternal = False
DistributionVendor.Enabled = False
DistributionVendor = ""
End If
End Sub
Public Function GetFieldName(FormFieldName As String) As String
GetFieldName = DLookup("QueryFieldName", "tbl_QueryAndFormFieldNames", "FieldFormName = '" & FormFieldName & "'")
End Function
Private Sub ComboFreq_AfterUpdate()
ComboFreqCyc.Requery
End Sub
Private Sub ComboPubType_AfterUpdate()
ComboPubSubType.Requery
End Sub
Private Sub P_CheckBindery_Click()
P_ComboBindery = ""
End Sub
Private Sub P_CheckCovFin_Click()
P_ComboCovFin = ""
End Sub
Private Sub P_CheckCovStock_Click()
P_ComboCovStock = ""
End Sub
Private Sub P_CheckDistribution_Click()
P_DistributionInternal = False
P_DistributionExternal = False
P_DistributionVendor = ""
P_DistributionVendor.Enabled = False
End Sub
Private Sub P_CheckFinSize_Click()
P_ComboFinSize = ""
End Sub
Private Sub P_CheckPaperSize_Click()
P_ComboPaperSize = ""
End Sub

Private Sub P_CheckPrint_Click()
P_PrintVendor = ""
P_PrintVendor.Enabled = False
P_PrintInternal = False
P_PrintExternal = False
End Sub

Private Sub P_CheckPrintCost_Click()
P_TextPrintCost = ""
End Sub
Private Sub P_CheckPrintQty_Click()
P_TextPrintQty = ""
End Sub
Private Sub P_CheckTextStock_Click()
P_ComboTextStock = ""
End Sub
Private Sub P_CheckTotalPages_Click()
P_TextTotalPages = ""
End Sub
Private Sub P_ComboBindery_Click()
P_CheckBindery = False
End Sub
Private Sub P_ComboCovFin_Click()
P_CheckCovFin = fasle
End Sub
Private Sub P_ComboCovStock_Click()
P_CheckCovStock = False
End Sub
Private Sub P_ComboFinSize_Click()
P_CheckFinSize = False
End Sub
Private Sub P_ComboPaperSize_Click()
P_CheckPaperSize = False
End Sub
Private Sub P_ComboTextStock_Click()
P_CheckTextStock = False
End Sub

Private Sub P_DistributionExternal_Click()
P_CheckDistribution = False
P_DistributionInternal = False
If P_DistributionExternal Then
P_DistributionVendor.Enabled = True
Else
P_DistributionVendor = ""
P_DistributionVendor.Enabled = False
End If
End Sub
Private Sub P_DistributionInternal_Click()
P_DistributionExternal = False
P_CheckDistribution = False
P_DistributionVendor = ""
P_DistributionVendor.Enabled = False
End Sub
Private Sub P_PrintExternal_Click()
P_CheckPrint = False
P_PrintInternal = False
If P_PrintExternal Then
P_PrintVendor.Enabled = True
Else
P_PrintVendor.Enabled = False
P_PrintVendor.Enabled = True = ""
End If
End Sub
Private Sub P_PrintInternal_Click()
P_CheckPrint = False
P_PrintExternal = False
P_PrintVendor.Enabled = False
P_PrintVendor = ""
End Sub
Private Sub P_TextPrintCost_Click()
P_CheckPrintCost = False
End Sub
Private Sub P_TextPrintQty_Click()
P_CheckPrintQty = False
End Sub
Private Sub P_TextTotalPages_Click()
P_CheckTotalPages = False
End Sub
Private Sub W_CheckHTMLPosted_Click()
W_HTMLPostYes = False
W_HTMLPostNo = False
End Sub
Private Sub W_CheckCompliant508_Click()
W_Compliant508No = False
W_Compliant508Yes = False
End Sub
Private Sub W_Compliant508No_Click()
If W_Compliant508No Then
W_Compliant508Yes = False
W_Check508Compliant = False
End If
End Sub
Private Sub W_Compliant508Yes_Click()
If W_Compliant508Yes Then
W_Compliant508No = False
W_Check508Compliant = False
End If
End Sub
Private Sub W_HTMLPostNo_Click()
If W_HTMLPostNo Then
W_HTMLPostYes = False
W_CheckHTMLPosted = False
End If
End Sub
Private Sub W_HTMLPostYes_Click()
If W_HTMLPostYes Then
W_HTMLPostNo = False
W_CheckHTMLPosted = False
End If
End Sub

The highlighted text is where I think the issue is. I have tried several different codes, but still to no avail have I been able to pull back the correct filter.

Please help.

 

[randy700]

How about table structure?
What fields are in the table that contains this field: G_CheckFrequencyCycle

Randy

 

[claskew]

Randy,

Attached is a copy of the Frequency Cycle Table. These are the listings that are in the Lkp_Frequency Cycle table.

 

[MacroScope]

What about a simple checkbox on the screen which the user toggles if a form is Spanish. Then you have something to anchor your filtering to.

 

[claskew]

Good Morning,

There is a checkbox there, but when you check the Spanish checkbox, it pulls back all Spanish and English translations. Only would like the Spanish called back.