[Resolvido]Erro ao comparar data do Form com data da Tabela

quando vou comparar a data diz que são diferentes, porém, são iguais

Dim str As String

str = "SELECT Data_Romaneio FROM Entrega WHERE Romaneio = '" & Me.Romaneio & "' "

If str = Me.Data_Romaneio Then
MsgBox "iguais"
Else
MsgBox "Diferentes"
End If

O formato padrão para o access em consultas SQL é no formato norte-americano mm/dd/yyyy
E estas carregando tambem a data em uma variável do tipo String
isto pode ser a causa.

Primeiro tente mudar o tipo da variável, depois
Tente utilizar a instrução format:
Uma boa solução para isso também é a utilização da Função Dlookup

Dim strDate As Date

StrDate = "SELECT Data_Romaneio FROM Entrega WHERE Romaneio = '" & Me.Romaneio & "' "



If strDate = Me.Data_Romaneio Then
MsgBox "iguais"
Else
MsgBox "Diferentes"
End If



ou....

If strDate = Format(Me.Data_Romaneio,"mm/dd/yyyy") Then
MsgBox "iguais"
Else
MsgBox "Diferentes"
End If



Cumprimentos.

caro amigo deu erro "tipos incompatíveis"

Dim strDate As Date

strDate = "SELECT Data_Romaneio FROM Entrega WHERE Romaneio = '" & Me.Romaneio & "' "

If strDate = Format(Me.Data_Romaneio, "mm/dd/yyyy") Then

MsgBox "iguais"
Else
MsgBox "Diferentes"
End If

A melhor solução é utilizando o Dlookup


Dim strDate As Date

strDate = DLookup("Data_Romaneio", "Entrega", "Romaneio ='" & Me.Romaneio & "'")

If strDate = Format(Me.Data_Romaneio, "dd/mm/yyyy") Then
MsgBox "iguais"
Else
MsgBox "Diferentes"
End If




Cumprimentos.

erro "tipos de dados incompatíveis na expressão de critério"

com um detalhe, quando passo o cursor em cima da variavel strDate mostra o formato 00:00:00,não sei o quanto isso é relevante!

Veja na sua tabela qual o tipo de dados do campo onde está armazenado a informação Data_Romaneio..

Cumprimentos.

tabela DATA/HORA com mascara 00/00/0000;0;_

form mascara 00/00/0000;0;_

tira uma dúvida tem como transformar tipo Strig em data ou vice-versa? talvez resolve!

Um pitaco;

A instrução do Harysohn, está 100% correta para esse formato e máscara.

Veja por favor onde está a errar.

Dim strDate As Date
strDate = DLookup("Data_Romaneio", "Entrega", "Romaneio ='" & Me.Romaneio & "'")
If strDate = Format(Me.Data_Romaneio, "dd/mm/yyyy") Then
MsgBox "iguais"
Else
MsgBox "Diferentes"
End If

Quando vi vossa mensagem no tópico Mestre, confesso que cheguei a gelar,, pensei sera que falei algo errado? rsrs

Confesso que apesar de ser uma singela observação, senti-me honrado vindo de ti.

Cumprimentos.

Valew mano, você está a crescer em conhecimentos, que confesso me surpreende e muito.

Parabens e força ae.

Senhores do conselho!

devido ao conhecimento de ambos sei que o código esta correto, acho que o problema esta no pc ou outra coisa, vou tentar refazer o form e os códigos. Se não conseguir abro novamente o tópico.

É bom saber que pessoas do nível de conhecimento de vcs estão sempre prontas a ajudar!

Veja o tipo de campo na tabela, deves ser do tipo Data/Hora

O Fórum agradece o Retorno.


Cumprimentos.