[Resolvido]acerto codigo

pessoal boa tarde.

o codigo abaixo uso botão "novo registro" num formulario, tenho outros botoes, sendo o principal o Command8, quando clico o botão novo faz a verificação se o campo cbx.Status esta preenchido, porem ele nao abre um novo registro como deveria abrir, baseado que o campo cbx.Status não esteja vazio.. o que errei no codigo?

Private Sub Comando5_Click()

Call Command8_Click
DoCmd.GoToRecord , , acNewRec

If IsNull(Me.cbxStatus) Then
MsgBox "O campo ""Status do pedido"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
cbxStatus.SetFocus
If Me.cbxStatus <> "" Then
End If
End If

Exit Sub

End Sub

Tente assim:

Private Sub Comando5_Click()
If IsNull(Me.cbxStatus) Then
MsgBox "O campo ""Status do pedido"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
cbxStatus.SetFocus
Else
If Me.cbxStatus <> "" Then
DoCmd.GoToRecord , , acNewRec
End If
End If
End Sub

Leandro, tudo blz?

duvida, o procedimento Call Comand8 faz com que seja gravado numa tabela de log o usuario que alterou alguma coisa coisa...

vi na instruçao que voce escreveu, que nao tem o Call Comand8... é assim mesmo?

Então:

Private Sub Comando5_Click()
Call Command8_Click
If IsNull(Me.cbxStatus) Then
MsgBox "O campo ""Status do pedido"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
cbxStatus.SetFocus
Else
DoCmd.GoToRecord , , acNewRec
End If
End Sub

O status é preenchido manualmente?
Se for, coloque um evento ao sair desse campo.

Se for caixa de texto:

If IsNull(cbxStatus) Then
MsgBox "Campo obrigatório"
Docmd.CancelEvent

Se for combo:

If Me.cbxStatus = 0 Then
MsgBox "Campo obrigatório"
Docmd.CancelEvent


Assim você enibe o erro e economiza tempo, pois não poderá proseguir antes de preencher o campo.

leandro, obrigado funcionou certinho.

voce tirar a duvida abaixo.

no meu bd tenho duas tabelas..

tabale1 e tabela2 vamos supor ok.

criei uma consulta, nela fiz uma formula com o construtor de expressoes..

campo1-campo2-campo3 (todos da tabela1)e sempre esses campos estarao preechidos sao obrigatorios no form.

o probelma que o resultada da expressao acima preciso pegar ele e subtrair do campo4 da tabela 2. o campo 4 não e de preenchimento obrigatorio... as vezes ele fica vazio durante muito tempo tipo 3 meses e todo final de mes tenho que gerar essa consulta.. tem como eu fazer algum codigo que quando o campo4 seja vazio.. ele adote valor 0?

Tente assim:

campo1-campo2-campo3-Seimed([Campo4]=Null;0;[Campo4])

Leandro, o codigo que voce falou pra eu por no evento ao sair.. eu colo na propria caixa de seleção?

nao manjo muito de programaçao..estou mais de curioso.. mas ate que ta funcionando bem..

Isso mesmo, você abre as propriedades da caixa status e na aba evento você verá "Ao Sair", é ali que você vai colar o código, mas não esqueça de acertar os nomes.

opa deu certinho essa parte.

viu aquela formula que me passou adaptei aqui mas nao funcionou.. pq ele adota 0 para todos os campos 4.. e alguns quando estao preenchidos nao sao zero...

campo1-campo2-campo3-Seimed([Campo4]=Null;0;[Campo4])

na consulta eu tenho que adicionar a tabela 2? la nao adicionei ela... o campo 4 faz parte dela...

eu fiz um teste adicionei as duas tabelas.. elas tem ligaçao... o que ocorre, e que quando ela retorna os valores.. ela so traz os pedidos(da tbl1) que tem ligação na TBL2 com impostos preenchidos.. o que ta com o campo vazio nao aparece.. e preciso que apareça...

Tente assim:

campo1-campo2-campo3-Seimed([Campo4]=0;0;[Campo4])

Se não der certo, posta o banco por favor ou manda para:

lbarbosa@sanepar.com.br

Leandra muito obrigado pelo suporte.. ficou funcionando perfeito...

Beleza, não esqueça o Resolvido.

opa, verdade
muito obrigado...