MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


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

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em 15/6/2012, 17:17

    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.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

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

    Mensagem  criquio em 15/6/2012, 17:36

    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.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 15/6/2012, 17:47

    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 & "';"


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Sql com critério de data utilizando a função format Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Sql com critério de data utilizando a função format Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Sql com critério de data utilizando a função format Folder_announce_new Instruções SQL como utilizar...
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em 15/6/2012, 17:59

    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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em 15/6/2012, 18:04

    Perfeito JP, Resultou!

    Grato a todos.


    Cumprimentos.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em 15/6/2012, 18:10

    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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 15/6/2012, 18:37

    Valew.
    Bom final de semana.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Sql com critério de data utilizando a função format Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Sql com critério de data utilizando a função format Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Sql com critério de data utilizando a função format Folder_announce_new Instruções SQL como utilizar...
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em 15/6/2012, 18:45

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

    Inté!!!!

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/6/2019, 14:05