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

    Procura e preenchimento de próximo campo vazio na 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

    Procura e preenchimento de próximo campo vazio na tabela. Empty Procura e preenchimento de próximo campo vazio na tabela.

    Mensagem  Luiz Carlos Junior 23/10/2015, 12:05

    Bom dia Mestres.

    Gostaria de melhorar meu BD enxugando o código.
    Tenho uma tabela (tb_Abonadas) que possui 6 campos para datas assim nomeados: 1ABON, 2ABON, 3ABON, 4ABON, 5ABON, 6ABON.
    Tenho um form que cria um relatório e salva essa falta abonada nesta tabela.
    Porém, não são em meses fixos, pode ser em qualquer um, então o programa precisa procurar onde está gravada a última e grava no próximo campo, exemplo:

    1ABON = 13/08/2015
    2ABON = vazio
    3ABON = vazio
    4ABON = vazio
    5ABON = vazio
    6ABON = vazio

    Ao criar o relatório para a falta no dia 15/09/2015 ele deve percorrer a tabela e gravar no campo 2ABON que é o próximo vazio.

    Hoje, uso um código muito grande para isso e gostaria de encurtá-lo. Segue:

    Código:
    If IsNull(rs("1ABON")) And IsNull(rs("2ABON")) And IsNull(rs("3ABON")) And IsNull(rs("4ABON")) _
    And IsNull(rs("5ABON")) And IsNull(rs("6ABON")) Then
        rs.Edit
        rs("1ABON") = Form_Abonada.txtDataFalta.Value
        Form_Funcionários.txt1ABON.Value = rs("1ABON")
        Me!txtDATA.Value = rs("1ABON")
        Me!txtData2.Value = rs("1ABON")
        rs.Update
        Exit Sub
    End If

    If IsNull(rs("2ABON")) And IsNull(rs("3ABON")) And IsNull(rs("4ABON")) _
    And IsNull(rs("5ABON")) And IsNull(rs("6ABON")) Then
        rs.Edit
        rs("2ABON") = Form_Abonada.txtDataFalta.Value
        Form_Funcionários.txt2ABON.Value = rs("2ABON")
        Me!txtDATA.Value = rs("2ABON")
        Me!txtData2.Value = rs("2ABON")
        rs.Update
        Exit Sub
    End If

    If IsNull(rs("3ABON")) And IsNull(rs("4ABON")) And IsNull(rs("5ABON")) _
    And IsNull(rs("6ABON")) Then
        rs.Edit
        rs("3ABON") = Form_Abonada.txtDataFalta.Value
        Form_Funcionários.txt3ABON.Value = rs("3ABON")
        Me!txtDATA.Value = rs("3ABON")
        Me!txtData2.Value = rs("3ABON")
        rs.Update
        Exit Sub
    End If

    If IsNull(rs("4ABON")) And IsNull(rs("5ABON")) And IsNull(rs("6ABON")) Then
        rs.Edit
        rs("4ABON") = Form_Abonada.txtDataFalta.Value
        Form_Funcionários.txt4ABON.Value = rs("4ABON")
        Me!txtDATA.Value = rs("4ABON")
        Me!txtData2.Value = rs("4ABON")
        rs.Update
        Exit Sub
    End If

    If IsNull(rs("5ABON")) And IsNull(rs("6ABON")) Then
        rs.Edit
        rs("5ABON") = Form_Abonada.txtDataFalta.Value
        Form_Funcionários.txt5ABON.Value = rs("5ABON")
        Me!txtDATA.Value = rs("5ABON")
        Me!txtData2.Value = rs("5ABON")
        rs.Update
        Exit Sub
    End If

    If IsNull(rs("6ABON")) Then
        rs.Edit
        rs("6ABON") = Form_Abonada.txtDataFalta.Value
        Form_Funcionários.txt6ABON.Value = rs("6ABON")
        Me!txtDATA.Value = rs("6ABON")
        Me!txtData2.Value = rs("6ABON")
        rs.Update
        Exit Sub
    End If

    Espero ter sido claro para que possam me ajudar, apesar de dar uma enrolada no texto.

    Grato desde já.

    Abrasss!!!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7178
    Registrado : 15/03/2013

    Procura e preenchimento de próximo campo vazio na tabela. Empty Re: Procura e preenchimento de próximo campo vazio na tabela.

    Mensagem  ahteixeira 23/10/2015, 12:44

    Olá, poste a tabela e form onde vai ser colocada a data.
    Abraço
    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

    Procura e preenchimento de próximo campo vazio na tabela. Empty Re: Procura e preenchimento de próximo campo vazio na tabela.

    Mensagem  Luiz Carlos Junior 26/10/2015, 12:50

    Bom dia Mestre.
    Segue o link:

    https://onedrive.live.com/redir?resid=229CF7CE6223FD64!3165&authkey=!AHti2ymxnr5eiME&ithint=file%2czip

    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

    Procura e preenchimento de próximo campo vazio na tabela. Empty Re: Procura e preenchimento de próximo campo vazio na tabela.

    Mensagem  Luiz Carlos Junior 27/10/2015, 16:55

    Boa tarde MEstres.
    Alguma luz?

    Grato desde já.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7178
    Registrado : 15/03/2013

    Procura e preenchimento de próximo campo vazio na tabela. Empty Re: Procura e preenchimento de próximo campo vazio na tabela.

    Mensagem  ahteixeira 28/10/2015, 11:00

    Olá Luiz Carlos,
    Será melhor "... colegas" do que "...mestres", assim alarga o leque de ajudas, piada minha. Smile

    Bom, antes de se postar deve-se compilar e verificar se o exemplo vai rolar, veja:
    Procura e preenchimento de próximo campo vazio na tabela. 6p5nqf

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4409
    Registrado : 06/11/2009

    Procura e preenchimento de próximo campo vazio na tabela. Empty Re: Procura e preenchimento de próximo campo vazio na tabela.

    Mensagem  Assis 28/10/2015, 11:25

    Bom dia

    Talvez assim
    Teste

    Forms.Funcionários.txt6ABON.Value = ??????????


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7178
    Registrado : 15/03/2013

    Procura e preenchimento de próximo campo vazio na tabela. Empty Re: Procura e preenchimento de próximo campo vazio na tabela.

    Mensagem  ahteixeira 28/10/2015, 12:18

    Olá Assis, obrigado pela dica, mas a questão nem é essa.
    Devemos sensibilizar os colegas, quando colocarem um exemplo para uma ajuda que esteja funcional , apenas com o erro em questão ou dúvida.

    Na minha opinião, deve-se:
    a) Compilar DEBUG...
    b) Compactar/Reparar Base de dados
    c) Testar exemplo noutro caminho (pasta), fazendo o rename da pasta original, verificando se não existe ligações/vinculos pendentes
    d) criar ficheiro compactado para partilhar (Zip; Rar; 7zip)

    Fica a dica

    Abraço
    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

    Procura e preenchimento de próximo campo vazio na tabela. Empty Re: Procura e preenchimento de próximo campo vazio na tabela.

    Mensagem  Luiz Carlos Junior 29/10/2015, 10:41

    Bom dia Mestres e Colegas. rs
    Desculpe a falha.
    Aconteceu que dei uma arrumada na nomenclatura no código e esqueci de arrumar neste arquivo de teste nos forms.
    Segue o link corrigido:

    https://onedrive.live.com/redir?resid=229CF7CE6223FD64!3166&authkey=!AK4uTfY5hO9J4Vc&ithint=file%2czip

    Grato pela ajuda desde já.

    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

    Procura e preenchimento de próximo campo vazio na tabela. Empty Re: Procura e preenchimento de próximo campo vazio na tabela.

    Mensagem  Luiz Carlos Junior 3/11/2015, 15:12

    Boa tarde.
    Alguma luz?

    Abrasss!!!

      Data/hora atual: 12/4/2021, 01:32