[Resolvido]Sql com critério de data utilizando a função format

Amigos, estou com um problema para filtra um recordset com o criterio de data utilizando parte da mesma "mm/yyyy"

StrSQL = ("SELECT Id_Funcionario, Vales, MesSalario FROM tblFuncionáriosSalario WHERE Id_Funcionario = " & StrIDFunc & ";")

Esta SQL acima filtra com o critéio funcionário, preciso de mais um critério que é o campo MesSalario

O campo MesSalario é no formato Data "dd/mm/yyyy"

Preciso selecionar o registro cujo Mes/Ano seja igual a uma string no formato "mm/yyyy"


Como aplicar esse critério utilizando parte da data do campo MesSalario?


Cumprimentos.

E aí piloto, tudo na paz? E se utilizar o As como fazemos no SQL em uma consulta por exemplo para incluir um campo calculado? Ou, então, utilizar o primeiro e último dias do mês para pesquisar tudo que for maior ou igual a um e menor ou igual ao outro.

Penso que em string funcionará, teste;

Dim x As String

x = "06-2012"

strSQL = "SELECT Id_Funcionario, Vales, MesSalario FROM tblFuncionáriosSalario WHERE Id_Funcionario = " & StrIDFunc & " AND Format(MesSalario,'mm-yyyy')='" & x & "';"

Boas Criquio, eu ja havia tentado como um campo não acoplado Format(MesSalario,'mm/yyyy') as MesAnoRef
Porém deu falta de 1 critério..

Boas JP, testarei a sua opção.

Em testes aqui consegui da seguinte maneira:

Ao inserir dados na tblFuncionariosMeses, adicionei mais um campo no formato texto, gravando neste a data em string no formato "mm/yyyy"

E na sql utilizei esse novo campo texto no critério:

StrSQL = ("SELECT Id_Funcionario, Vales, MesSalario, MesAnoRef FROM tblFuncionáriosSalario WHERE Id_Funcionario = " & StrIDFunc & " And MesAnoRef = '" & StrMes & "';")

Observe que MesSalario é tipo Data e o MesAnoRef é do tipo texto contendo o mm/yyyy contido no MesSalario.


Irei testar o do JP agora.


Cumprimentos.

Perfeito JP, Resultou!

Grato a todos.


Cumprimentos.

Observe que se nao há Registro coincidente com o critério Mes/Ano produz um erro, 3021 Resgistro não atual.

Para isso um tratamento de erro, redirecionando o código para uma mensagem e posterior finalização da rotina.

Código completo:

Sub Vale()
On Error GoTo TrataErro
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim StrSQL As String
Dim StrMes As String
Dim StrIDFunc As Double

StrVale = Right(Me.txtHistorico, 6)
StrMes = Format(Me.txtData, "mm-yyyy")
StrIDFunc = Me.CboFornecedor.Column(0)

If StrVale = "(Vale)" Then

StrSQL = "SELECT Id_Funcionario, Vales, MesSalario FROM tblFuncionáriosSalario WHERE Id_Funcionario = " & StrIDFunc & " AND Format(MesSalario,'mm-yyyy')='" & StrMes & "';"

Set Db = CurrentDb
Set Rs = Db.OpenRecordset(StrSQL)
Rs.Edit
Rs!Vales = Rs!Vales + Me.TxtSaida1
Rs.Update

Set Rs = Nothing
Set Db = Nothing
End If

Exit_TrataErro:
DoCmd.Hourglass False
DoCmd.Echo True
Exit Sub

TrataErro:
If err.Number = 3021 Then
MsgBox "Não existe registro de salário para este mês", vbInformation, "Aviso"
Exit Sub
Else
DoCmd.Hourglass False
DoCmd.Echo True
Msg = "Erro # " & Str(err.Number) & " gerado na " & err.Source _
& vbNewLine & vbNewLine & "Descrição: " & err.Description _
& vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", err.Helpfile, err.HelpContext
Resume Exit_TrataErro
End If
End Sub

Valew.
Bom final de semana.

A você tambem João Paulo, grato pela sempre pronta ajuda.

Inté!!!!