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

    [Resolvido]Mensagem avisando sobre registros abertos sem dados

    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 14/12/2010

    [Resolvido]Mensagem avisando sobre registros abertos sem dados Empty Mensagem avisando sobre registros abertos sem dados

    Mensagem  julianovv 20/10/2011, 14:30

    Tenho um formulário pop de adicionar novo funcionário e preciso criar uma mensagem avisando sobre registros vazios (somente o código automático) que abriria somente se eles estiverem em branco. É preciso usar os registros abertos ao invés de criar um novo.
    Alguém tem algum exemplo de código assim?
    Obrigado!


    Rolling Eyes
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3873
    Registrado : 21/04/2011

    [Resolvido]Mensagem avisando sobre registros abertos sem dados Empty Re: [Resolvido]Mensagem avisando sobre registros abertos sem dados

    Mensagem  Marcelo David 20/10/2011, 14:46

    Veja se eu compreendi: Voce quer abrir esse formulário em branco para adcionar novos registro?


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Mensagem avisando sobre registros abertos sem dados Marcel11
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 14/12/2010

    [Resolvido]Mensagem avisando sobre registros abertos sem dados Empty Re: Mensagem avisando sobre registros abertos sem dados

    Mensagem  julianovv 20/10/2011, 17:58

    Quero que ao abrir o formulário, uma mensagem apareça avisando que existem registros em branco e que é preciso que eles sejam utilizados. Se não tiver registros em branco, a mensagem não apareça.

    Wink
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Mensagem avisando sobre registros abertos sem dados Empty Re: [Resolvido]Mensagem avisando sobre registros abertos sem dados

    Mensagem  vieirasoft 20/10/2011, 18:24

    Eis um exemplo:

    Private Sub NomeCliente_Exit(Cancel As Integer)
    If Trim(Nz(Me.NomeCliente, "")) = "" Then
    MsgBox "o campo Nome não pode ser nulo", vbInformation, "Aviso"
    Cancel = True
    End If
    End Sub
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 14/12/2010

    [Resolvido]Mensagem avisando sobre registros abertos sem dados Empty Re: Mensagem avisando sobre registros abertos sem dados

    Mensagem  julianovv 20/10/2011, 19:33

    Ok, obrigado, vou tentar e dou um retorno.

    Wink
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Mensagem avisando sobre registros abertos sem dados Empty Re: [Resolvido]Mensagem avisando sobre registros abertos sem dados

    Mensagem  vieirasoft 20/10/2011, 19:35

    não está para a abertura do formulário, mas pode ser adaptado. Est´+a para a saída do campo.
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 14/12/2010

    [Resolvido]Mensagem avisando sobre registros abertos sem dados Empty Re: Mensagem avisando sobre registros abertos sem dados

    Mensagem  julianovv 20/10/2011, 19:50

    Eu tenho esse código ao fechar um formulário e funciona bem. Preciso que ao abrir o formulário, se existir registros vazios na tabela que apareça a seguinte mensagem:: "Atenção! Existem registros vazios a serem preenchidos. Feche essa caixa e abra o Editar Nomes."

    Rolling Eyes
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Mensagem avisando sobre registros abertos sem dados Empty Re: [Resolvido]Mensagem avisando sobre registros abertos sem dados

    Mensagem  vieirasoft 20/10/2011, 19:58

    No evento ao carregar do form

    Pode faze-lo através de 1 campo ou por 2 conforme no exemplo

    Dim msg, Style, Title
    msg = ""Atenção! Existem registros vazios a serem preenchidos. Feche essa caixa e abra o Editar Nomes"
    Style = "vbInformation"
    Title = "Info"
    If IsNull(Me.nomecampo1) And IsNull(Me.Nomecampo2) Then
    msg = MsgBox(msg, vbInformation, Title)
    Else
    O que o código deve fazer caso a rotina acima não seja necessária
    End If
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 14/12/2010

    [Resolvido]Mensagem avisando sobre registros abertos sem dados Empty Re: Mensagem avisando sobre registros abertos sem dados

    Mensagem  julianovv 21/10/2011, 14:22

    Obrigado. Deu certo. Só coloquei no evento "ao abrir" pois o "ao carregar" já estava ocupado com outro código.
    Wink
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Mensagem avisando sobre registros abertos sem dados Empty Re: [Resolvido]Mensagem avisando sobre registros abertos sem dados

    Mensagem  vieirasoft 30/10/2011, 11:42

    Obrigado e bom trabalho

    Conteúdo patrocinado


    [Resolvido]Mensagem avisando sobre registros abertos sem dados Empty Re: [Resolvido]Mensagem avisando sobre registros abertos sem dados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 10:48