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


2 participantes

    [Resolvido]Preenchimento obrigatório

    Caio
    Caio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Preenchimento obrigatório Empty [Resolvido]Preenchimento obrigatório

    Mensagem  Caio 21/7/2016, 16:03

    Pessoal, preciso de um grande favor, pesquisei no forum mais não achei oque quero.

    Preciso de um evento ao clicar do botão salvar que antes de ir para o novo registro marque com a Borda Vermelha os campos que estão em branco. Se caso estiver todos preenchidos ele avança para o novo.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Preenchimento obrigatório Empty Re: [Resolvido]Preenchimento obrigatório

    Mensagem  FabioPaes 21/7/2016, 16:18

    Esta pesquisando de acordo com esse topico? https://www.maximoaccess.com/t1115-busca-no-forum-search

    Pois existem alguns exemplos por aqui...

    Veja esse aqui:https://www.maximoaccess.com/t26998-gravar-registo-apos-preencimento-do-ultimo-campo-de-um-formulario
    Mensagem Nº 05, utilize o Codigo que postei la!


    Última edição por FabioPaes em 21/7/2016, 17:34, editado 1 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Preenchimento obrigatório Empty Re: [Resolvido]Preenchimento obrigatório

    Mensagem  FabioPaes 21/7/2016, 16:29

    Se quer so a COR da BORDA destacada, mude:

    de: ctl.BackColor = RGB(135, 206, 235)
    para: ctl.BorderColor = vbRed

    e
    de: ctl.BackColor = RGB(255, 250, 250)
    para: ctl.BorderColor = vbBlack


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Caio
    Caio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Preenchimento obrigatório Empty Re: [Resolvido]Preenchimento obrigatório

    Mensagem  Caio 21/7/2016, 18:36

    Funcionou como queria, porém campos com valores múltiplos ele da como nulo.
    ex.: tenho uma caixa de combinação que posso selecionar vários valores, ao selecionar mais de na caixa de cominação ele não reconhece os valores e provavelmente julga o campo como nulo.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Preenchimento obrigatório Empty Re: [Resolvido]Preenchimento obrigatório

    Mensagem  FabioPaes 21/7/2016, 18:40

    Posta aqui o Exemplo para que eu possa dar uma olhada!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Caio
    Caio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Preenchimento obrigatório Empty Re: [Resolvido]Preenchimento obrigatório

    Mensagem  Caio 21/7/2016, 18:52

    Segue parte do database, e gostaria de tirar mais uma dúvida:
    ele verifica todos campos, e preciso que ele não verifique um dos campos (não é obrigatório), teria como especificar esse campo?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Preenchimento obrigatório Empty Re: [Resolvido]Preenchimento obrigatório

    Mensagem  FabioPaes 21/7/2016, 19:36

    Amigo, é muito Importante mantermos a AUTORIA dos códigos bem como a EDIÇÃO dos mesmo, para sabermos quem foi o autor e o que foi alterado...



    Segue codigo Corrigodo de acordo com o que Precisa. Substitua o seu por esses, exatamente como está!  Observe que está ignorando o Campo Observação!

    Código:

    Public Function valNullControl(frm As Form)
    '------------------------------------------------------------
    'De JPaulo - adaptado por Márcio Melo
    'VALIDAR OS CAMPOS DE UM FORM
    'Editado por Fabio Paes 21/07/2016
        'Melhorado para ignorar os Botoes do Formulário, ignorar certos Campos e aceitar CboxMulti Seleção.
    '------------------------------------------------------------
    On Error Resume Next
    Dim ctl As Control
    Dim minhaArray As String
    Dim validacaoOk As Byte
    validacaoOk = 0

    For Each ctl In frm.Controls

    Select Case ctl.ControlType
    Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox

    If ctl.Visible = True And IsNull(ctl) And ctl.Name <> "txt_observacoes" Then
    ctl.BorderColor = vbRed
    ctl.SetFocus
    validacaoOk = 1
    minhaArray = minhaArray & ctl.Tag & ", "

    Else
    ctl.BorderColor = vbBlack
    End If
    End Select
    Next ctl

    If validacaoOk = 1 Then

    valNullControl = True

    End If
    End Function



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Caio
    Caio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Preenchimento obrigatório Empty Re: [Resolvido]Preenchimento obrigatório

    Mensagem  Caio 21/7/2016, 19:53

    Ok, desculpe.
    Oque foi feito referente a caixa de combinação?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Preenchimento obrigatório Empty Re: [Resolvido]Preenchimento obrigatório

    Mensagem  FabioPaes 21/7/2016, 20:21

    If ctl.Visible = True And IsNull(ctl) Or ctl = "" Then

    Removido a condicao Or...

    Esse campo se comporta estranhamente diferente dos demais... tentei rodar comando Len() e ele retorna erro... Muito estranho.

    Mas somente isso foi o suficiente.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Caio
    Caio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Preenchimento obrigatório Empty Re: [Resolvido]Preenchimento obrigatório

    Mensagem  Caio 22/7/2016, 14:19

    Brilhante. Obrigado mais uma vez!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Preenchimento obrigatório Empty Re: [Resolvido]Preenchimento obrigatório

    Mensagem  FabioPaes 22/7/2016, 14:45

    Valeu, atá a Proxima!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


    [Resolvido]Preenchimento obrigatório Empty Re: [Resolvido]Preenchimento obrigatório

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 14:02