[Resolvido]Operador em falta

Boas tardes,

tenho um formulario em que no campo data_do_serviço ao perder foco quero verificar se um elemento tem troca de serviço para o dia que tento selecionar.
dá-me erro 3075: operador em falta.
alguem pode ajudar?

Set db = CurrentDb
strSql = "SELECT * FROM Tabela1 WHERE Nº quem é o serviço= " & Me.Quemserviço & " And Data do serviço= " & Me.Data_do_serviço
Set rs = db.OpenRecordset(strSql)
If rs.RecordCount = 1 Then
resposta = MsgBox("O elemento de vigilância Nº " & Me.Quemserviço & " já tem troca para este dia", vbOKOnly + vbInformation, "IMPOSSIVEL ADICIONAR")

Me.Undo
Me.Data_do_serviço.SetFocus
End If


obrigado

Ola, atenção aos campos com espaços, coloque entre parênteses rectos.
Exemplo:
[Nº quem é o serviço]
Abbraço

Pois, isso já tentei antes e assim não dá erro nenhum no caso de ja existir um.

Efetue um teste com a data 02-02-2015, crie um registo com essa data.
Fico aguardar

Não dá erro nenhum.
portanto a tabela é a Tabela1 e os campos são:
Nº Quem é o serviço, Data do serviço

Sim, mas testou com a data que postei de forma a ter pelo menos um registo.
É que a data na consulta sql deve-se formatar para mm/dd/yyyy
Mes/dia/ano

assim :
strSql = "SELECT * FROM Tabela1 WHERE Nº quem é o serviço= " & Me.Quemserviço & " And format$([Data do serviço], "mm/dd/yyyy")= " & Me.Data_do_serviço

Estou nobtelemovel e não e fácil
strSql = "SELECT * FROM Tabela1 WHERE [Nº quem é o serviço]= " & Me.Quemserviço & " And [Data do serviço]= # " & format(Me.Data_do_serviço, "mm/dd/yyyy") &"#"

Testou com 2-2-2015 e qual foi o resulatfo?

nado deu nada

Ola, tente postar base de dados com for e tabela em questão para se testar.
Mais logo dou uma vista de olhos ou outro utilizador talvez possa ajudar.
Abraço

ok, hoje a não tenho tempo.
verifico amanhã.
Obrigado na mesma.
Abraço

Dim Datarefer As Date
Set db = CurrentDb ' seta o banco de dados atual
Set rs = db.OpenRecordset("Tabela1") 'acesso a tabela ou consulta
Datarefer = Format([Data do serviço], "dd/mm/yyyy")

sql = "select * from Tabela1 WHERE [Nº quem é o serviço]=" & Me.Quemserviço & " and [Data do serviço] = #" & Datarefer & "# "
Set rs = db.OpenRecordset(sql)

If rs.RecordCount > 0 Then



resposta = MsgBox("O elemento de vigilância Nº " & Me.Quemserviço & " já tem troca para este dia", vbOKOnly + vbInformation, "IMPOSSIVEL ADICIONAR")

Me.Undo
Me.Data_do_serviço.SetFocus
End If

A bombar, mas obrigado por tudo na mesma

Olá, obrigado pelo retorno.
Abraço

Uma pequena correção para todos que venham tirar duvidas e não sejam indusidos em erro:
Anteriormente estava Datarefer = Format([Data do serviço],"dd/mm/yyyy") , mas deve ser como está em baixo para bombar:


Dim Datarefer As Date
Set db = CurrentDb ' seta o banco de dados atual
Set rs = db.OpenRecordset("Tabela1") 'acesso a tabela ou consulta
Datarefer = Format([Data do serviço], "mm/dd/yyyy") ' Anteriormente estava dd/mm/yyyy enão funcionava bem.

sql = "select * from Tabela1 WHERE [Nº quem é o serviço]=" & Me.Quemserviço & " and [Data do serviço] = #" & Datarefer & "# "
Set rs = db.OpenRecordset(sql)

If rs.RecordCount > 0 Then



resposta = MsgBox("O elemento de vigilância Nº " & Me.Quemserviço & " já tem troca para este dia", vbOKOnly + vbInformation, "IMPOSSIVEL ADICIONAR")

Me.Undo
Me.Data_do_serviço.SetFocus
End If

Olá, obrigado pela informação, aproveito para deixar um link de uma função bastante util para converter a data quando utilizado em instruções sql:

Código:

Function SQLDate(varDate As Variant) As String
    'Purpose:    Return a delimited string in the date format used natively by JET SQL.
    'Argument:  A date/time value.
    'Note:      Returns just the date format if the argument has no time component,
    '                or a date/time format if it does.
    'Author:    Allen Browne. allen@allenbrowne.com, June 2006.
    If IsDate(varDate) Then
        If DateValue(varDate) = varDate Then
            SQLDate = Format$(varDate, "\#mm\/dd\/yyyy\#")
        Else
            SQLDate = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#")
        End If
    End If
End Function

origem: http://allenbrowne.com/ser-36.html
Abraço