MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Relatório com preenchimento de datas aleatórias em text box.

    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

    Relatório com preenchimento de datas aleatórias em text box. Empty Relatório com preenchimento de datas aleatórias em text box.

    Mensagem  Luiz Carlos Junior 10/3/2016, 18:09

    Boa tarde Mestres.

    Tenho um relatório com os seguintes TextBox por linha:

    txtReg (Onde vai o Registro do funcionário); txtNome (Onde vai o Nome do Funcionário); txtABON1; txtABON2; txtABON3; txtABON4; txtABON5; txtABON6; (Onde tem que entrar as datas das faltas com Motivo = "ABONADA")

    Este é baseado em uma tabela de faltas dos funcionários onde tenho os campos:

    REG (Registro do funcionário); Nome (Nome do Funcionário); Motivo_Falta; Data_Falta; Ano

    O que quero é o seguinte, todas as faltas com Motivo = "Abonada" do ano atual (Que são 6 por ano com datas quaisquer) sejam colocadas nos textbox do relatório relacionados ao número de registro.

    No momento uso o seguinte código para isso:

    Código:
    Option Compare Database
    Option Explicit

    Dim db As Dao.Database
    Dim rsAbonadas, rsFunc As Dao.Recordset
    Dim strAno, strMotivo, strReg, strNome As String
    Dim yColuna, I As Integer

    Sub Report_Load()

    Set db = CurrentDb
           
    strAno = Format(Date, "YYYY")
    strMotivo = "ABONADA"
           
    Set db = CurrentDb

    Set rsFunc = db.OpenRecordset("Select [REG], [NOME] from tb_Faltas Where [MOTIVO_FALTA]= '" & strMotivo & "' And [ANO] = " & strAno & " ")

    strReg = rsFunc("REG")
    strNome = rsFunc("NOME")

    Set rsAbonadas = db.OpenRecordset("Select [DATA_FALTA], [MOTIVO_FALTA], [ANO], [REG] From tb_Faltas where [REG] = '" & strReg & "'  ORDER BY [DATA_FALTA]")
     
        If rsAbonadas.RecordCount <> 0 Then
            rsAbonadas.MoveLast
            rsAbonadas.MoveFirst
                For yColuna = 1 To rsAbonadas.RecordCount
                    For I = 1 To 6 'referente a 6 caixas de texto
                        On Error Resume Next
                        Me.Controls("txtABON" & I).Value = rsAbonadas("DATA_FALTA")
                        rsAbonadas.MoveNext
                    Next I
                Next yColuna
                    rsAbonadas.Close
            Set rsAbonadas = Nothing
            Set db = Nothing
        End If
           
    End Sub

    Private Sub Report_Close()

    Set db = Nothing
    Set rsAbonadas = Nothing
    Set rsFunc = Nothing

    End Sub

    Mas está repetindo o mesmo registro sempre e não preenche as datas de acordo com o registro, entram todas de quaisquer funcionários.

    O que estou a fazer de errado?


    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 638
    Registrado : 02/10/2011

    Relatório com preenchimento de datas aleatórias em text box. Empty Re: Relatório com preenchimento de datas aleatórias em text box.

    Mensagem  rubenscouto 11/3/2016, 16:42

    como opção alternativa você pode criar um subformulario tendo como base a seguinte consulta:
    Veja no Anexo.
    Anexos
    Relatório com preenchimento de datas aleatórias em text box. AttachmentFaltas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (47 Kb) Baixado 16 vez(es)
    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

    Relatório com preenchimento de datas aleatórias em text box. Empty Re: Relatório com preenchimento de datas aleatórias em text box.

    Mensagem  Luiz Carlos Junior 11/3/2016, 17:06

    Boa tarde Rubens, blz?

    Vou testar a Consulta no relatório, mas não entendi pra que o sub?

    Abrasss!!!
    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

    Relatório com preenchimento de datas aleatórias em text box. Empty Re: Relatório com preenchimento de datas aleatórias em text box.

    Mensagem  Luiz Carlos Junior 15/3/2016, 15:31

    Bom dia Mestres.

    Dei um print de como fica o relatório (risquei os nomes) para que entendam o erro que está ocorrendo e o que quero:

    [img]Relatório com preenchimento de datas aleatórias em text box. 2rnenns[/img]

    Do jeito que estou fazendo, ele está pegando a primeira data, independente do funcionário, e repetindo em todos.
    O certo seria a data relativa a falta de cada funcionário e assim por diante nos campos ao lado.

    Espero ter sido claro.

    Grato desde já.
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 638
    Registrado : 02/10/2011

    Relatório com preenchimento de datas aleatórias em text box. Empty Re: Relatório com preenchimento de datas aleatórias em text box.

    Mensagem  rubenscouto 16/3/2016, 00:36

    Assim como foi criado um subformulario, pode ser criado um subrelatorio mostrando as datas das faltas cujos motivos são "Abonada". Para um relatorio não se necessita de 6 textboxs para anotar as datas, basta apenas uma e percorrer para as datas conforme a consulta base do subformulario só que no relatorio.
    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

    Relatório com preenchimento de datas aleatórias em text box. Empty Re: Relatório com preenchimento de datas aleatórias em text box.

    Mensagem  Luiz Carlos Junior 16/3/2016, 17:13

    Os 6 Text Box são para deixar o visual mais fácil, pois, será impresso e fixado no mural. Se deixar uma do lado da outra de qqer jeito fica bagunçado.

    Tenho um formulário que preenche as text box deste jeito, mas, um registro (funcionário) por vez.
    No relatório uso as mesmas linhas de código, pois, o raciocínio é o mesmo, mas não funfa com vários registros ao mesmo tempo.
    Se coloco programação mas texts do relatório, só aparece um registro.
    Se coloco acoplado direto nas texts, aparecem todos os registros que possuem esse tipo de falta, só que as datas não batem.

    Certeza que deve estar errado a linha que filtra isso. E essa é a ajuda que preciso.

    Não existe outro jeito sem ter que criar mais nada? Apenas com a tabela?
    Luiz Carlos Junior
    Luiz Carlos Junior
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 473
    Registrado : 21/08/2012

    Relatório com preenchimento de datas aleatórias em text box. Empty Re: Relatório com preenchimento de datas aleatórias em text box.

    Mensagem  Luiz Carlos Junior 18/3/2016, 10:19

    Boa tarde Mestres.
    Alguém tem alguma dica? Alguma luz?

      Data/hora atual: 12/4/2021, 02:20