[Resolvido]Erro linha de código caixa de combinação

Grandes Mestres,

Por favor, onde está o erro desta linha de código?

RS.FindFirst "[Empresa_Cliente] = '" & Me![Combinação257].Column(0) & "' AND [opfalta] = " & Me![Combinação257].Column(1) & "' AND [Data_Pagto_Ent] = #" & Me![Combinação257].Column(2) & "#"

Minha caixa de combinação tem três colunas e a última é uma data (tem que ter "#"?).

Muito grato

Qual erro está sendo gerado?

Cumprimentos.

Possivelmente nesta parte... Iniciou com aspas duplas e encerrou com aspas duplas e simples:


AND [opfalta] = " & Me![Combinação257].Column(1) & "'


Cumprimentos.

A mensagem é: Erro de sintaxe na sequência de caracteres na expressão.
Se coloco só os dois primeiros critérios (sem o campo data) não aparece o erro (porém, não filtra correto)

Muito grato

Respondi la acima.. Veja.

Caro Mestre,

Baseado no que você disse eu já tirei aspas, aspas simples, aspas duplas, enfim e continua sempre dando erro de sintaxe. Como já disse, se tiro a parte referente a data (última) não aparece erro. Peço-lhe encarecidamente que coloque aqui a mesma linha com a devida sintaxe que você acha que deve ficar. Já estou ficando maluco de acerta aqui, aparece ali, acerta ali, aparece aqui. Ajude-me, por favor.

Muito agradecido

Envie o modelo do seu bd para que eu possa ver isto pra ti.

Cumprimentos.

Tente assim:



RS.FindFirst "Empresa_Cliente = '" & Me.Combinação257.Column(0) & "' And opfalta = " & Me.Combinação257.Column(1) & " And Data_Pagto_Ent = #" & Me.Combinação257.Column(2) & "#"


Lembrando que para valores numéricos o texto entre aspas Simples  " & ----- & "

Para textos entre aspas simples e duplas    '" & ----- & "'


Cumprimentos.

Grande Piloto,

Entou te enviando o banco completo. O formulário é Cad_Entrega e caixa de combinação é combinação257. As outras caixas e vários botões deste formulário ainda vou implementá-los. Aperte o Shift.

Muito obrigado

Enquanto preparava para mandar o banco você enviou a mensagem. Vou testar e volto.

Muito grato

Testei rapidamente a linha com a nova sintaxe. Erro de sintaxe não deu, mas não está filtrando correto. Quando tem dois registros com mesmo número de pedido ele sempre pega o primeiro. Vou olhar com mais detalhes...

Muito grato

FindFirst >>> Encontra o primeiro (Esta é a tradução literal da expressão)

portanto se há dois registros iguais ele irá encontrar o primeiro


Podes tentar a propriedade Filter do Recordset

    Rs.Filter = "Data=Date()"



Depois mova os ponteiros e emita uma mensagem com o recordcount para ver quantos registros retorna

Rs.MoveLast: Rs.MoveFirst
MsgBox Rs.Recordcount


Cumprimentos.

Caro amigo,

Como falastes, o FindFirst pega o primeiro registro. Sendo que tem três campos. Determinada empresa tem diversos pedidos. Um mesmo pedido pode ser entregue em diversas datas. Queria escolher a empresa, o pedido e uma data de entrega. Se tem uma empresa X, um pedido Y e 3 datas para entrega. Queria exibir a segunda data desse pedido, dessa empresa. Ele mostra a primeira data. Não existe mesma data para mesmo pedido e mesma empresa.
Espero que entendas o problema. Amarrando os três campos deveria funcionar.

Muito grato

Qual formulário?

cumprimentos.

O formulário é Cad_Entrega e caixa de combinação é combinação257. As outras caixas e vários botões deste formulário ainda vou implementá-los. Aperte o Shift.

Muito obrigado

Você deseja exibir no formulário o registro selecionado na caixa de combinação?

A empresa Kinhos..
Tem 3 datas:
31/07/15
19/11/13
31/12/1931 --- Pedidinho bem antigo kkkk

Está funcionando normal como a instrução está feita..

Se clica no primeiro Kinho >> Exibe a data correspondente
Se no segundo, ídem
se no terceiro, ídem.


O que deseja que não isto?

Cumprimentos.

Na realidade para isto não é necessário este processo...

Este aqui é suficiente...

        Set Rs = Me.Recordset.Clone
        Rs.FindFirst "[opfalta] = " & Me![Combinação257].Column(1)
         If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark

Cumprimentos.

Grande Mestre,

É quase isso. Na realidade o intuito é quardar o histórico das entregas dos pedidos que atrasam muito para posteriormente emitirmos um relatório com este conteúdo para reclamações/providências.
Ex. A empresa AA fez um pedido XX na data YYYY. Este pedido deveria ser entregue todo na data ZZZZ. Nesta data ZZZZ só foi possível entregar 1/4 das mesrcadorias. Cinco dias após foi entregue mais outra parte e após mais 3 dias foi entregue o restante. Então aí teríamos o histórico do pedido XX, da empresa AA, com as devidas mercadorias entregue em cada uma das três datas. Neste formulário o usuário cadastra (ou importa do pedido sem ser necessário cadastrar) as mercadorias que faltam serem entregues com suas devidas datas. Esta caixa de combinação é exatamente para ver como ficou cada uma das entregas por número do pedido, empresas e devidas datas.
Espero ter sido um pouco mais claro.

Obs. Esta caixa de combinação consegui fazer funcionar conforme suas orientações.

Por ironia do destino aparece na outra: OPERADOR FALTANDO

RS.FindFirst "opfalta = '" & Me.Combinação263.Column(0) & "' And Empresa_Cliente = " & Me.Combinação263.Column(1) & " And ChaveX = " & Me.Combinação263.Column(3)

Quanto mais olho menos enxergo...

Saudações.

Esta caixa de combinação é exatamente para ver como ficou cada uma das entregas por número do pedido, empresas e devidas datas.

É isto que está sendo feito.. Seleciona o registro na caixa de combinação e exibe suas informações..

Sinceramente não estou entendendo o que pretende..

Cumprimentos.

No formulário deve ser uma data de cada vez. No relatório é que mostrarei o pedido original completo com sua identificação (cliente/empresa) e as datas em ordem crescente mostrando o que foi entregue em cada uma delas.

É justamente o que está fazendo!!!

Seleciona um registro na caixa de combinação e o exibe no formulário!!!

Para o Kinho não tem 3 datas?

Seleciona uma delas e o exibe..

Continuo sem entender..

Sinto.

Grande Piloto,

Desculpe o mal entendido. Quando mandei o BD para você já havia feito a alteração que você sugeriu. Pensei que estavas com o arquivo bem original e que estavas falando a respeito das outras sugestões. Mil desculpas. Estava achando que a lógica da coisa era tão simples e eu conseguia transmitir meu problemas para um Mestre.
Desculpe minha burrice...

Para não passar em branco: Onde está faltando aspas na outra caixa de combinação citada acima. É apenas as aspas e pararei de te aborrecer.

Muito grato por tudo e um grande abraço.

Não esqueça da linha para poder colocar post como resolvido

Bem.. agora que não entendi mesmo hehehehe

O que falta amigão?

É que as vezes como não fizemos e não sabemos a utilização temos mais dificuldade de compreender a real necessidade..
não é questão de burrice não.. é apenas questão de meu entendimento mesmo..

O que falta?

Cumprimentos.

Grande Piloto,

Vamos terminar este tópico. Consegui montar o desejado e aprendi muito com o Mestre Piloto.
Muito obrigado por tudo. Pelo interesse, paciência, etc.
MUITO OBRIGADO

Grande abraço

O Fórum agradece o retorno.