[Resolvido]String de Recordset com dois critérios de tipos diferentes, número e texto.

Bom tarde,

Preciso definir a seguinte Sql em um Recordset:

SELECT CODDESLOC, VUComDesconto, CODRECURSO, Icom

FROM TabDeslocPavimentos

WHERE (((CODRECURSO)=[Formulários]![FormTabMedicaoPavimentos]![Texto29]) AND ((Icom)=[Formulários]![FormTabMedicaoPavimentos]![Texto88]));

CODRECURSO é Número e Icom é Texto

Estou tendo problemas na inserção dos critérios.

Quero entender como é certo colocá-los na sintaxe.

Obrigado

Boa tarde, Amigo Leandro
Veja se é assim:
"SELECT CODDESLOC, VUComDesconto, CODRECURSO, Icom FROM TabDeslocPavimentos WHERE CODRECURSO=" & [Formulários]![FormTabMedicaoPavimentos]![Texto29] & " AND Icom='" & [Formulários]![FormTabMedicaoPavimentos]![Texto88] &"';"

Obrigado caro Alexandre,
Estou testando e já dou-lhe retorno.

Alexandre, muitíssimo obrigado, pela sua ajuda vi que não estava tão longe do certo, faltava atenção na digitação, veja as diferenças.
A linha vermelha é a que eu fiz e a verde foi você.

Private Sub DeslocUrbanoPavimentos_Enter()
Dim dbDp As DAO.Database
Dim rsDp As DAO.Recordset
Dim strDP As String
Dim Desloc As Long
Dim ValorDesloc

strDP = "SELECT CODDESLOC, VUComDesconto, CODRECURSO, Icom FROM TabDeslocPavimentos WHERE CODRECURSO =" & Forms!FormTabMedicaoPavimentos!Texto29 & "And Icom '=" & Forms!FormTabMedicaoPavimentos!Texto88 & "'"

strDP = "SELECT CODDESLOC, VUComDesconto, CODRECURSO, Icom FROM TabDeslocPavimentos WHERE CODRECURSO=" & Forms!FormTabMedicaoPavimentos!Texto29 & " AND Icom='" & Forms!FormTabMedicaoPavimentos!Texto88 & "';"
Set dbDp = CurrentDb()
Set rsDp = dbDp.OpenRecordset(strDP)
Desloc = rsDp("CODDESLOC")
ValorDesloc = rsDp("VUComDesconto")

Me!Texto68.Visible = False

Me!DeslocUrbanoPavimentos = Desloc
Me!ValorDeslocUrbanoPavimentos = ValorDesloc

rsDp.Close
Set rsDp = Nothing
dbDp.Close
Set dbDp = Nothing
End Sub

=========================================================

Quero aproveitar e saber sua opinião.

Antes eu buscava isso com essas linhas:

Me!DeslocUrbanoPavimentos = DLookup("[CodDesloc]", "TabDeslocPavimentos", "[CodRecurso]=" & [Texto29] and "[Icom]'= & [Texto88] & "'")

Me!ValorDeslocUrbanoPavimentos = DLookup("[VUComDesconto]", "TabDeslocPavimentos", "[CodRecurso]=" & [Texto29] and "[Icom]'= & [Texto88] & "'")

Porém nos últimos meses li muito sobre desempenho no banco, funções de domínio, e o form onde aplico esse código é usado milhares de vezes por mês e em micros que não lá aquelas coisas.

Com base no que estudei, achei melhor mudar para Recordset, fiz uma boa escolha?

Um forte abraço e muito obrigado pela ajuda sempre oportuna.

Leandro,
Muitas vezes não dou importância ao desempenho porque sou apenas autodidacta e fui evoluindo. A minha bd tem muitos "enxertos" que não tenho tempo de corrigir porque o meu trabalho não é na bd mas no exterior. O Access é uma boa ferramenta que me ajuda, desenvolve o raciocínio e possibilita-me fazer voluntariado.
Voltando ao assunto, também tenho aprendido sobre desempenho e aconselho a trabalhar com recordset, em especial se o código for chamado muitas vezes.
Abraço,

Muito obrgiado novamente, fiquei plenamente satisfeito com suas respostas.

Leandro, permita-me por favor que lhe faça uma pergunta;

Se o amigo não faz uso das variaveis, para outros fins, porque não faz o Recordset direto para o seu campo ?

Desloc = rsDp("CODDESLOC")

Me!DeslocUrbanoPavimentos = Desloc


Me!DeslocUrbanoPavimentos = rsDp("CODDESLOC")

Até pode formatar ae, fazer tratamento de nulos, e.......

Olá JPaulo!

Esteja sempre á vontade.

Sendo bem sincero meu caro, eu comecei a estudar o Recorset com um exemplo chamado combopopulate, já viu?

E nessa de seguir a lógica usada montei meus códigos assim, porém, estou aqui para aprender e passarei a fazê-lo como instruiu, digita-se menos e menos complica-se também!

Se tiver mais alguma dica sobre o Recordset, pode mandar, não exite por favor.

Essa é minha mensagem nº 1000, é pouco comparado a você, Piloto, Críquio e etc, mas estou feliz, obrgiado por um dia ter me convidado a ingressar aqui.

Abraço