[Resolvido]problema com WHERE

Peço desculpas pela minha burrice, mas preciso de ajuda com o WHERE dentro de um SELECT.

Estou tentando fazer uma consulta por dois campos COD_ORG_EMP_EXEC e COD_UNID_ORCM_SOF_EXEC:

O problema é que não sei como é a sintaxe do Access, to quebrando a cabeça pesquisando sem sucesso....

Por favor, se alguém pude me ajudar a corrigir:

StrOrgPrinc = 16
StrOrgSeg = 10

"SELECT * FROM tbParcelas WHERE ((COD_ORG_EMP_EXEC='" & StrOrgPrinc & "'" And "(COD_UNID_ORCM_SOF_EXEC='" & StrOrgSeg & "'" & "))"

A mensagem de erro é tipos incompatíveis. O Access informa que a variável fica "16" - com aspas....

Boa tarde,
Não informou o tipo de dados nos campos
"SELECT * FROM tbParcelas WHERE COD_ORG_EMP_EXEC=" & StrOrgPrinc & " And COD_UNID_ORCM_SOF_EXEC=" & StrOrgSeg & ")"

desculpe, o tipo é TEXTO para os dois campos

será
"SELECT * FROM tbParcelas WHERE COD_ORG_EMP_EXEC='" & StrOrgPrinc & "' And COD_UNID_ORCM_SOF_EXEC='" & StrOrgSeg & "')"

Desculpa insistir, mas dá erro ainda. Olha a imagem, vou copiar o código todo abaixo dela:

**Po, não mostra a imagem, coloquei o link

Imagem de erro


Function ExportExcel()
Dim dbAb As DAO.Database
Dim rsAb As DAO.Recordset
Dim StrQueryAb, StrNomeAb, StrTotAb, StrOrgPrinc, StrOrgSec As String
Dim strConsulta, strNomePLanilha

On Error GoTo Err_Comando0_Click
'Na variável strConsulta eu informei o nome exato da minha consulta
strConsulta = "cParcelasExpExcel"


StrOrgPrinc = InputBox("Digite a Unidade Principal")
StrOrgSec = InputBox("Digite a Unidade Secundária")
StrOrgPrinc = Str(StrOrgPrinc)
StrOrgSec = Str(StrOrgSec)
       
       Set dbAb = CurrentDb
       StrQueryAb = "SELECT * FROM tbParcelas WHERE COD_ORG_EMP_EXEC='" & StrOrgPrinc & "' And COD_UNID_ORCM_SOF_EXEC='" & StrOrgSec & "')"
       Set rsAb = dbAb.OpenRecordset(StrQueryAb)
       StrNomeAb = rsAb.Fields("NOM_RZAO_SOCI_SOF").Value
       MsgBox StrNomeAb

'Na varivável strNomePlanilha eu informei o local e o nome do arquivo a ser gerado.
strNomePLanilha = "\\fs-sme\NUCLEO_ORCAMENTO\Parcelas de Empenho\exportados\RelatorioExp.xls"

'Aqui foi montado a expressao que faz exportar a cunsulta em um arquivo de excel.
'LINHA ORIGINA ABAIXO
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, StrQueryAb, strNomePLanilha


Exit_Comando0_Click:
   Exit Function

Err_Comando0_Click:
   MsgBox Err.Description
   Resume Exit_Comando0_Click
   
End Function

Com esse código não dá para resolver
Disse que os campos eram texto mas não serão
se forem número coloque a minha primeira resposta

graças a você o código funcionou sim, tirei o último parênteses e deu certo.
Muito obrigado de verdade e desculpe a demora na resposta

Faltou o "Resolvido"

tópico resolvido