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


3 participantes

    Alguém me ajuda. Fiz um formulário básico.

    avatar
    marcus.ufu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 17/10/2014

    Alguém me ajuda. Fiz um formulário básico. Empty Alguém me ajuda. Fiz um formulário básico.

    Mensagem  marcus.ufu 17/10/2014, 16:20

    Bom dia a todos,

    Alguém pode me ajudar,
    Os meus conhecimentos em Excel me permitem fazer coisas básicas,
    porém não consigo fazer algo essencial em um formulário.

    Tenho um formulário  que consiste em alguns campos que devem ser preenchidos (Nº de Matrícula, Nome, Idade, Sexo, Escolaridade, e Endereço)
    e quando preenchidos todos os campos a pessoa clica em um botão SALVAR e esses dados vão para uma outra aba (REGISTROS).
    Porém gostaria que o botão SALVAR só pudesse ser clicado se TODOS ou os PRINCIPAIS(matrícula e nome) campos estiverem completados.
    Tem como fazer isso?
    Além disso, gostaria que a pessoa não pudesse inserir um mesmo número de matrícula já cadastrado na aba (REGISTRO).

    Em anexo o código do botão SALVAR:

    Sub SALVAR()
    '
    ' SALVAR Macro
    '

    '
       Range("G5:L5").Select
       Selection.Copy
       Sheets("REG").Select
       Range("A6000").End(xlUp).Offset(1, 0).Select
       Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
           , SkipBlanks:=False, Transpose:=False
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False
       Sheets("FORM").Select
       Range("C4:E4").Select
       Application.CutCopyMode = False
       Selection.ClearContents
       Range("C5:E5").Select
       Selection.ClearContents
       Range("C6:E6").Select
       Selection.ClearContents
       Range("C7:E7").Select
       Selection.ClearContents
       Range("C8:E8").Select
       Selection.ClearContents
       Range("C9:E9").Select
       Selection.ClearContents
       Range("C4:E4").Select
    End Sub
    avatar
    lebersa12
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 16/05/2014

    Alguém me ajuda. Fiz um formulário básico. Empty Alguém me ajuda. Fiz um formulário básico..

    Mensagem  lebersa12 17/10/2014, 17:25

    Olá Marcus,

    Os dois exemplos atendem a sua necessidade.
    Anexos
    Alguém me ajuda. Fiz um formulário básico. AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (52 Kb) Baixado 6 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Alguém me ajuda. Fiz um formulário básico. Empty Re: Alguém me ajuda. Fiz um formulário básico.

    Mensagem  Alexandre Neves 17/10/2014, 17:37

    Boa tarde, bem-vindo ao fórum
    Não se trata nem de Acess nem de relatórios.
    Este fórum é de Access. Para excel, é melhor procurar fórum adueqado. Vou mover para a sala off-topic


    .................................................................................
    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

    Conteúdo patrocinado


    Alguém me ajuda. Fiz um formulário básico. Empty Re: Alguém me ajuda. Fiz um formulário básico.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 12:00