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

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

    Compartilhe

    marcus.ufu
    Novato
    Novato

    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.

    Mensagem  marcus.ufu em Sex 17 Out 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
    Anexos
    bmp.bmp
    Imagem do formulário e da aba Registro
    Você não tem permissão para fazer download dos arquivos anexados.
    (280 Kb) Baixado 4 vez(es)

    lebersa12
    Intermediário
    Intermediário

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

    Mensagem  lebersa12 em Sex 17 Out 2014, 17:25

    Olá Marcus,

    Os dois exemplos atendem a sua necessidade.
    Anexos
    Exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (52 Kb) Baixado 5 vez(es)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em Sex 17 Out 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

      Data/hora atual: Dom 25 Jun 2017, 06:27