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


2 participantes

    Não preencher campo do registro após a função MoveNext

    avatar
    Alesk
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/04/2012

    Não preencher campo do registro após a função MoveNext Empty Não preencher campo do registro após a função MoveNext

    Mensagem  Alesk 13/4/2014, 03:21

    Ae pessoal!!
    Não estou conseguindo "proteger" os campos já preenchidos dos registros ao utilizar a função MoveNext.

    Possuo um formulário proveniente da tabela "finanças" e o campo "definir" preenche o nome em um campo de um registro em outra tabela chamada "finanças cadastradas".
    Cada tipo de finança (tabela "finanças), possui um campo e número de registro específico da tabela "finanças cadastradas.
    Até aí tudo bem!
    O código que estou usando:

    Dim Rs As DAO.Recordset
    If Me.Valores = "Contabil" Then
    Set Rs = CurrentDb.OpenRecordset("TbHorárioAlex")
    Rs.Edit
    Rs.MoveNext
    Rs(1) = Me.Nome

    End If

    Resultado:
    O primeiro campo do segundo registro da tabela "finanças cadastradas" será preenchido, porém não estou conseguindo fazer com que o campo em questão não o seja preenchido caso já houverem dados inseridos.

    Tentei utilizar uma condição If IsNull (Rs(1)) e If Not IsNull (Rs(1)) e nada.
    Como poderei conseguir isso??

    Obrigado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    Não preencher campo do registro após a função MoveNext Empty Re: Não preencher campo do registro após a função MoveNext

    Mensagem  Alexandre Neves 13/4/2014, 22:56

    Boa noite,
    Como tem o código todo?
    Dim Rs As DAO.Recordset
    If Me.Valores = "Contabil" Then
    Set Rs = CurrentDb.OpenRecordset("TbHorárioAlex")
    Rs.MoveNext
    if isnull(Rs(1)) then Rs.Edit : Rs(1) = Me.Nome : rs.update
    set rs=nothing
    End If


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 27/4/2024, 03:12