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 confirmação parametros obrigatorios

    avatar
    cabete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 05/08/2010

    [Resolvido]Mensagem confirmação parametros obrigatorios Empty Mensagem confirmação parametros obrigatorios

    Mensagem  cabete Seg 28 Fev 2011, 19:59

    Ola a todos.

    Venho ver se alguém me ajuda aqui numa linha de codigo que nao consigo resolver.

    tenho o seguinte código que é executado no momento que carrego num botao de SAVE:

    Private Sub Comando62_Click()

    If IsNull(QT) Or Me.QT = "" Then
    MsgBox "Preenchimento obrigatório da QUANTIDADE!"
    DoCmd.CancelEvent
    End If
    If IsNull(StartDate) Or Me.StartDate = "" Then
    MsgBox "Preenchimento obrigatório da DATA!"
    DoCmd.CancelEvent
    End If
    If IsNull(NomeTrabalhador) Or Me.NomeTrabalhador = "" Then
    MsgBox "Preenchimento obrigatório do Nome do Trabalhador!"
    DoCmd.CancelEvent
    End If
    End Sub


    Queria colocar uma mensagem de (Gravado com Sucesso)e que o Form fosse depois fechado se os parametros acima fosse preenchidos.

    Alguma sujestao??
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Mensagem confirmação parametros obrigatorios Empty Re: [Resolvido]Mensagem confirmação parametros obrigatorios

    Mensagem  Gilberto Rocha Seg 28 Fev 2011, 20:27

    coloque esse código após o teste de validação de campos nulos, desde que o formulario seja acoplado.

    Private Sub Comando62_Click()

    If IsNull(QT) Or Me.QT = "" Then
    MsgBox "Preenchimento obrigatório da QUANTIDADE!"
    DoCmd.CancelEvent
    End If
    If IsNull(StartDate) Or Me.StartDate = "" Then
    MsgBox "Preenchimento obrigatório da DATA!"
    DoCmd.CancelEvent
    End If
    If IsNull(NomeTrabalhador) Or Me.NomeTrabalhador = "" Then
    MsgBox "Preenchimento obrigatório do Nome do Trabalhador!"
    DoCmd.CancelEvent
    End If
    MSGBOX"Gravado com sucesso"
    Docmd.close

    End Sub

    avatar
    cabete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 05/08/2010

    [Resolvido]Mensagem confirmação parametros obrigatorios Empty Re: [Resolvido]Mensagem confirmação parametros obrigatorios

    Mensagem  cabete Seg 28 Fev 2011, 20:43

    Esse codigo eu ja tinha colocado mas leva a que em caso de faltar um dos campos, aparece logo a mensagem de gravado com sucesso e fecha sem ter sido salvo.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mensagem confirmação parametros obrigatorios Empty Re: [Resolvido]Mensagem confirmação parametros obrigatorios

    Mensagem  vieirasoft Seg 28 Fev 2011, 20:58

    Amigo

    Falta no Else na instrução

    Teste assim (não testei aqui foi um pouco à pressa)

    If IsNull(QT) Or Me.QT = "" Then
    MsgBox "Preenchimento obrigatório da QUANTIDADE!"
    Me.QT.SetFocus
    ElseIf IsNull(StartDate) Or Me.StartDate = "" Then
    MsgBox "Preenchimento obrigatório da DATA!"
    Me.StartDate.SetFocus
    ElseIf IsNull(NomeTrabalhador) Or Me.NomeTrabalhador = "" Then
    MsgBox "Preenchimento obrigatório do Nome do Trabalhador!"
    Me.NomeTrabalhador.SetFocus
    Else
    MsgBox "Gravado com sucesso"

    End If
    DoCmd.Close


    Última edição por vieirasoft em Seg 28 Fev 2011, 21:15, editado 1 vez(es)
    avatar
    cabete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 05/08/2010

    [Resolvido]Mensagem confirmação parametros obrigatorios Empty Re: [Resolvido]Mensagem confirmação parametros obrigatorios

    Mensagem  cabete Seg 28 Fev 2011, 21:10

    obrigado mas ja consegui, agarrei a dica do vieirasoft do else.
    Experimentei o codigo dele mas nao deu, depois agarrei o codigo que tinha e com o else e trabalhou na perfeição

    E eu que matei a cabeça e a solução era tao simples, enfim , quem nao sabe e como quem nao ve.

    Obrigado, ca fica o codigo a trabalhar.

    Private Sub Comando62_Click()

    If IsNull(QT) Or Me.QT = "" Then
    MsgBox "Preenchimento obrigatório da QUANTIDADE!"
    DoCmd.CancelEvent
    End If
    If IsNull(StartDate) Or Me.StartDate = "" Then
    MsgBox "Preenchimento obrigatório da DATA!"
    DoCmd.CancelEvent
    End If
    If IsNull(NomeTrabalhador) Or Me.NomeTrabalhador = "" Then
    MsgBox "Preenchimento obrigatório do Nome do Trabalhador!"
    DoCmd.CancelEvent
    Else
    MsgBox "Gravado com sucesso"
    DoCmd.Close
    End If
    End Sub
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mensagem confirmação parametros obrigatorios Empty Re: [Resolvido]Mensagem confirmação parametros obrigatorios

    Mensagem  vieirasoft Seg 28 Fev 2011, 21:15

    Obrigado pelo retorno e bom trabalho
    avatar
    cabete
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 05/08/2010

    [Resolvido]Mensagem confirmação parametros obrigatorios Empty Re: [Resolvido]Mensagem confirmação parametros obrigatorios

    Mensagem  cabete Seg 28 Fev 2011, 22:36

    Nao e fácil por vezes resolver problemas simples, quando so se complica.

    Ha precisamente 10 meses fui a uma entrevista de trab, perg se sabia Acess e a minha resposta foi nao, fiquei com o trabalho embora em funções diferentes e passado 10 meses e com muito esforço ja consigo ter alguma autonomia mas por vezes nao consigo mesmo.
    Digamos que la me desenrasco tendo em conta que a minha formação nao é propriamente Eng Informática mas Eng Mecanica la vou fazendo os meus programitas que muito me ajudam e depois vocês são uma grande ajuda.

    Obrigado

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mensagem confirmação parametros obrigatorios Empty Re: [Resolvido]Mensagem confirmação parametros obrigatorios

    Mensagem  vieirasoft Seg 28 Fev 2011, 22:58

    É tentando e fuçando (com o perdão da palavra) que se aprende. Muito sucesso e sempre que precisar, já sabe.

    Conteúdo patrocinado


    [Resolvido]Mensagem confirmação parametros obrigatorios Empty Re: [Resolvido]Mensagem confirmação parametros obrigatorios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 28 Mar 2024, 10:28