Validar dois Campos

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

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

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

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

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

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