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


    [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 : 39
    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 : 118
    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 : 39
    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 : 118
    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 8 vez(es)
    avatar
    jomishell
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 39
    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 : 118
    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


    Conteúdo patrocinado

    [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  Conteúdo patrocinado


      Data/hora atual: 15/9/2019, 21:49