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


    Validar dois Campos

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 13/03/2011

    Validar dois Campos Empty Validar dois Campos

    Mensagem  msilveir em 1/8/2019, 16:30

    Ola Pessoal

    tenho esse codigo para validar um campo codfilial funciona ok
    coloquei o and e campo txtNumeroNota , coloco numero da filial e deixo da nota em branco e nao da menssagem


    Código:
    If IsNull(CodFilial) And (txtNumeroNota) Then
    MsgBox "Favor Incluir o Numero da Filial!!", vbCritical, "Atenção"
    CodFilial.SetFocus
    CodFilial.BackColor = vbRed
    DoCmd.CancelEvent

    End If
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6307
    Registrado : 15/03/2013

    Validar dois Campos Empty Re: Validar dois Campos

    Mensagem  ahteixeira em 1/8/2019, 16:34

    Olá Marcio,

    Teste assim:
    Código:
    If IsNull(CodFilial) Then
        MsgBox "Favor Incluir o Numero da Filial!!", vbCritical, "Atenção"
        CodFilial.SetFocus
        CodFilial.BackColor = vbRed
        DoCmd.CancelEvent
    End If

    If IsNull(txtNumeroNota) Then
        MsgBox "Favor Incluir o Numero da Nota!!", vbCritical, "Atenção"
        txtNumeroNota.SetFocus
        txtNumeroNota.BackColor = vbRed
        DoCmd.CancelEvent
    End If

    Abraço
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 13/03/2011

    Validar dois Campos Empty Re: Validar dois Campos

    Mensagem  msilveir em 1/8/2019, 17:12

    Ola ahteixeira

    agora ele da a mensagem fica vermelho o campos mas gera a etiqueta assim mesmo segue todo codigo

    Private Sub Btsalvar_Click()

    If IsNull(CodFilial) Then
    MsgBox "Favor Incluir o Numero da Filial!!", vbCritical, "Atenção"
    CodFilial.SetFocus
    CodFilial.BackColor = vbRed
    DoCmd.CancelEvent
    End If



    If IsNull(txtNumeroNota) Then
    MsgBox "Favor Incluir o Numero da Nota!!", vbCritical, "Atenção"
    txtNumeroNota.SetFocus
    txtNumeroNota.BackColor = vbRed
    DoCmd.CancelEvent
    End If


    Me.txtHoraMov.Value = Time


    Open "c:\Temp\etiqueta.txt" For Output As #1

    Print #1, Me.txt1
    Print #1, Me.txt2
    Print #1, Me.txt3
    Print #1, Me.txt4
    Print #1, Me.txt41
    Print #1, Me.txt5; Me.txtFilial; Me.txt6
    Print #1, Me.txt7
    Print #1, Me.txt8; Me.txtNumeroNota; Me.txt9
    Print #1, Me.txt10; Me.txtRampa; Me.txt11
    Print #1, Me.txt12
    Print #1, Me.txt13
    Print #1, Me.txt14
    Print #1, Me.txt15
    Print #1, Me.txt151
    Print #1, Me.txt152; Me.txtVolumes; Me.txt153
    Print #1, Me.txt154
    Print #1, Me.txt16; Me.txtVolumes; Me.txt17



    MsgBox "Arquivo Gerado com sucesso!", vbInformation, "Gerado com Sucesso"



    Close #1



    Shell "c:\imprimir.bat", vbNormalFocus



    DoCmd.GoToRecord , , acNewRec
    Me.CodFilial.SetFocus
    Me.ListaFalse.Requery
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6307
    Registrado : 15/03/2013

    Validar dois Campos Empty Re: Validar dois Campos

    Mensagem  ahteixeira em 1/8/2019, 17:28

    Olá Marcio,

    Estou no celular, mas se pretende cancelar se não tiver preenchido coloque, depois da instrução:

    Código:
    DoCmd.CancelEvent
    Exit Sub

    E teste.

    Abraço
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 13/03/2011

    Validar dois Campos Empty Re: Validar dois Campos

    Mensagem  msilveir em 7/8/2019, 17:23

    Ola ahteixeira

    funcionou apos colocar o CancelEvent obrigado como nao consigo colocar resolvido aqui na empresa por bloqueio, quando chegar na minha casa eu coloco.

    aproveitando ja que voce viu o meu codigo de criar a etiqueta zebra preciso de uma ajuda
    preciso criar uma etiqueta para cada pedido exemplo filial 120 uma etiqueta 128 outra e assim por diante
    tentei adptar esse codigo que salvo um relatorio em xlsx

    "C:\Enviados\" & Me.CboSigla.Column(0) & "-" & DataDia & ".xlsx"

    claro no lugar seria o campo txtfilial onde fica gravado numero da filial


    Open "c:\Temp\etiqueta.txt" For Output As #1

    Print #1, Me.txt1
    Print #1, Me.txt2
    Print #1, Me.txt3
    Print #1, Me.txt4
    Print #1, Me.txt41
    Print #1, Me.txt5; Me.txtFilial; Me.txt6
    Print #1, Me.txt7
    Print #1, Me.txt8; Me.txtNumeroNota; Me.txt9
    Print #1, Me.txt10; Me.txtRampa; Me.txt11
    Print #1, Me.txt12
    Print #1, Me.txt13
    Print #1, Me.txt14
    Print #1, Me.txt15
    Print #1, Me.txt151
    Print #1, Me.txt152; Me.txtVolumes; Me.txt153
    Print #1, Me.txt154
    Print #1, Me.txt16; Me.txtVolumes; Me.txt17



    MsgBox "Arquivo Gerado com sucesso!", vbInformation, "Gerado com Sucesso"



    Close #1



    Shell "c:\imprimir.bat", vbNormalFocus




    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6307
    Registrado : 15/03/2013

    Validar dois Campos Empty Re: Validar dois Campos

    Mensagem  ahteixeira em 8/8/2019, 08:21

    Olá, obrigado pelo retorno.

    Quando à nova dúvida, não compreendi.
    Explique melhor, se possível partilhe exemplo e identifique o que está a fazer e o que deveria fazer.

    Abraço

    Conteúdo patrocinado

    Validar dois Campos Empty Re: Validar dois Campos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/9/2019, 21:47