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

    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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6205
    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: Ter 27 Jun 2017, 11:17