MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo)

    avatar
    jomishell
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/05/2011

    [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo) Empty [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo)

    Mensagem  jomishell em 11/8/2019, 04:36

    Tenho uma tabela (anexa) com um campo "Movimentos" e no qual é assinalado o tipo de movimento: receitas (Rec) ou despesas (Desp).

    Pretendia automatizar ao máximo o seu preenchimento para minimizar o risco de erro. Assim, dividi em dois formulários, um para cada operação. Pretendia também que esse campo (Movimentos) fosse preenchido automaticamente a cada registo com a indicação "Rec" ou "Desp", conforme o formulário em uso.

    Estou farto de dar voltas e pesquisar mas não consigo chegar aquilo que pretendo.


    Alguém pode ajudar, p.f.
    Anexos
    [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo) AttachmentMovimentos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 7 vez(es)
    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

    [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo) Empty Re: [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo)

    Mensagem  brunoluizmaia em 12/8/2019, 09:10

    Boas,

    Sem os formulários no arquivo não existe forma de te ajudar, peço que coloque o arquivo com os formulários.

    Mas você pode colocar na ação click do botão salvar em cada formulário que ele grave o que deseja na tabela.

    Exemplo:

    Código:

    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb
    Set rs = db.OpenRecordset("SuaTabela", dbOpenDynaset)


    rs.FindFirst "Idtabela =" & Me!IdnoFormulario & ""


    If Not rs.NoMatch Then
        rs.Edit
        Else
        rs.AddNew
    End If

    rs!movimento = "Receita"
    rs.Update

    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing



    End Sub


    Espero ter ajudado.

    Bruno Nunes
    avatar
    jomishell
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/05/2011

    [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo) Empty Re: [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo)

    Mensagem  jomishell em 12/8/2019, 14:23

    Brunoluizmaia obrigado pela ajuda mas penso que não me fiz entender direito

    O que pretendo é apenas que ao premir um botão, no caso o "Guardar", ele me preenchesse na tabela o campo "Tipo_Mov" com o valor "Rec"

    Tipo_Mov = Rec

    Anexo novamente e agora com o formulário também
    Anexos
    [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo) AttachmentMovimentos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 2 vez(es)
    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

    [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo) Empty Re: [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo)

    Mensagem  brunoluizmaia em 12/8/2019, 15:06

    Veja se é isso que deseja.

    Coloquei no campo do formulário na propriedade, Default Value "=rec". Ele vai registrar o "rec" em todos os registros. No outro formulário é só seguir este exemplo.
    Anexos
    [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo) AttachmentMovimentos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 10 vez(es)
    avatar
    jomishell
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 40
    Registrado : 13/05/2011

    [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo) Empty Re: [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo)

    Mensagem  jomishell em 12/8/2019, 15:39

    Coisa mais óbvia e que eu não vi Sad

    Obrigado Brunoluizmais pela sua ajuda
    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

    [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo) Empty Re: [Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo)

    Mensagem  brunoluizmaia em 12/8/2019, 16:05

    As vezes é assim mesmo, pensamos sempre no mais difícil e no final é simples.

    O importante e ter resolvido.

    Cumprimentos,

    Bruno Nunes


      Data/hora atual: 11/7/2020, 15:09