MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    Alesk
    Novato
    Novato

    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

    Mensagem  Alesk em Dom 13 Abr 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
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em Dom 13 Abr 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: Qui 08 Dez 2016, 14:05