[Resolvido]Validação campo valor nulo

Prezados, estou aqui novamente para solicitar ajuda na validação do meu código, a situação é seguinte:

Inclui uma regra para validação de um campo, porém quando o campo esta com valo Nulo o código não roda e da a mensagem que não foi atribuido valor, veja meu código:

If (Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário]![contarDestatus]) = Null Then

Sei que realmente não possui valor o campo por ser nulo, ou seja, o campo é resultado de uma consulta que retornou com valor nulo, portanto não terá como atribuir valor a ele, mas nesse caso como devo resolver?

Tente:

If IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário]![contarDestatus]) Then

Porém ele só vai rodar se o campo "Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário]![contarDestatus]" for menor que zero ou igual a nulo, como ficaria a expressão neste caso?

Mas você quer que ele faça o que se for nulo?
Se quiser que o código simplesmente não faça nada coloque:


If IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário]![contarDestatus]) Then

Exit Sub
Else

'Defina o outro comando

se o campo "[contarDestatus]" for nulo ele deverá continuar a execução do restante do código se o campo "[contarDestatus]" for igual ou maior que 1 ele deverá parar a execução.

Então eu preciso saber o que você quer que ele faça dependendo de cada situação.

Boa tarde á todos! Com sua licença Leandro, e meus respeitos!


Na propriedade no evento ao abrir do formulario defina:
Me.seucampo = IIf(IsNull(seucampo), 0, seucampo)
varResult = IIf(seucampo > 50, "High", "Low")


(Se acaso seucampo estiver nulo é inserido zero.) ai o código rodara normalmente!

No evento ao abrir o formulario, ainda não existem dados carregados;

Tem de colocar em dois eventos, ao carregar do form e no currente;


Private Sub Form_Load()
If IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![contarDestatus]) Or Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![contarDestatus] = 0 Then
Exit Sub
Else
'Não faz nada
End If
End Sub

Private Sub Form_Current()
If IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![contarDestatus]) Or Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![contarDestatus] = 0 Then
Exit Sub
Else
'Não faz nada
End If
End Sub

JPaulo, ocorreu um erro na abertura do form veja "você não pode atribuir um valor a este objeto", após incluir o código conforme abaixo:

'AO ABRIR O FORM'

Private Sub Form_Open(Cancel As Integer)
Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário]![contarDestatus] = IIf(IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário]![contarDestatus]), 0, Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário]![contarDestatus])
varResult = IIf(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário]![contarDestatus] > 50, "High", "Low")
End Sub

'AO CARREGAR O FORM'

Private Sub Form_Load()
If IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![contarDestatus]) Or IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![contarDestatus]) >= 1 Then
Exit Sub
Else
'Não faz nada
End If
End Sub


'BOTÃO RETIRAR OS'

Private Sub Comando476_Click()
On Error GoTo Err_Comando476_Click
DoCmd.RunCommand acCmdSaveRecord
If IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![contarDestatus]) Or IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![contarDestatus]) = 0 Then
MsgBox "OS Fechada ou sem Retirante!", vbInformation, "SisProspect"
Else
Me.STATUSOS = "FECHADA"
Me.DATARE = Date
DoCmd.SetWarnings False
Dim stDocName As String
stDocName = "qryatualizastatusativosDISP_R_eq"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.SetWarnings True
Me.Refresh
End If
Exit_Comando476_Click:
Exit Sub
Err_Comando476_Click:
MsgBox Err.Description
Resume Exit_Comando476_Click
End Sub

O codigo correto ao carregar o form é esse, o anterior tinha incluido uma regra >= 1 para teste, considere esta como a correta.



'AO CARREGAR O FORM'

Private Sub Form_Load()
If IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![contarDestatus]) Or IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![contarDestatus]) = 0 Then
Exit Sub
Else
'Não faz nada
End If
End Sub

Onde você viu que o erro está nesse evento ????? ('AO CARREGAR O FORM')

E a instrução que lhe passei, não está igual.

Colegas, se o If é atendido, executa o Exit Sub, e o Else não faz nada, então a rotina toda não faz nada...

Claudio não entendi, pode iluminar a gambiarra para que possamos aprender um pouco mais ?

Quando digo, Else não faz nada, é porque não sei o que o usuário pretende que faça, então essa linha fica ao critério do usuário.

JPaulo, não precisa ficar chateado.

Você entendeu e já explicou, então tá explicado.

Intão, quem ficou chateado ?

Tranquilaço Cláudio, tudo na paz.

Blz, tudo na paz.

JPaulo, não esta conseguindo atribuir o valor zero ao campo, a condição é:

Se o campo [ContarDestatus] tiver nulo o código rodará se tiver com algum valor maior que zero ele não rodará, porém quando vou abrir o form esta ocorrendo o seguinte erro: Erro em tempo de execução '2448': você não pode atribuir valor a este objeto.

segue abaixo a forma que estou utilizando:

"ATRIBUINDO VALOR ZERO AO CAMPO" INSERIDO AO ABRIR O FORM

Private Sub Form_Open(Cancel As Integer)
Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![ContarDestatus] = IIf(IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário]![ContarDestatus]), 0, Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário]![ContarDestatus])
varResult = IIf(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário]![ContarDestatus] > 50, "High", "Low")
End Sub

"AO CARREGAR O FORM"

Private Sub Form_Load()
If IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![ContarDestatus]) Or Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![ContarDestatus] = 0 Then
Exit Sub
Else
'Não faz nada
End If
End Sub

"AO RETIRAR O EQUIPAMENTO" INCLUIDO NO BOTAO RETIRAR

Private Sub Comando476_Click()
On Error GoTo Err_Comando476_Click
DoCmd.RunCommand acCmdSaveRecord
If IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![ContarDestatus]) Or Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![ContarDestatus] = 0 Then
MsgBox "OS Fechada ou sem Retirante!", vbInformation, "SisProspect"
Else
Me.STATUSOS = "FECHADA"
Me.DATARE = Date
DoCmd.SetWarnings False
Dim stDocName As String
stDocName = "qryatualizastatusativosDISP_R_eq"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.SetWarnings True
Me.Refresh

End If
Exit_Comando476_Click:
Exit Sub
Err_Comando476_Click:
MsgBox Err.Description
Resume Exit_Comando476_Click
End Sub

A instrução ao abrir do seu form, não fui eu que lhe passei, veja que tem uma instrução IIf que não funciona no VBA.

Você conhece outra forma de atribuir o valor zero ao campo?

Onde é que você vai inserir este texto ("High", "Low") ????

Nâo esse texto foi o código que ele passou, preciso somente atribuir o valor zero ao campo.

Delete tudo o que tem no evento Open;

Teste apenas o simples, ao carregar do seu form;

Private Sub Form_Load()
If IsNull(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![ContarDestatus]) Or Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![ContarDestatus] = "" Then
Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![ContarDestatus] = 0
End If
End Sub

Também poderia testar, colocando o Valor padrão do campo ContarDestatus = 0, nas propriedades dele.

Ok, fiz a alteração, porém esta ocorrendo o erro quando não possui nenhum valor no campo, veja o erro: Erro em tempo de execução '2427': você inseriu uma expressão que não tem valor. Quando tem valor no campo ele abre normalmente.

E no botão que vai executar a consulta?

Anexe aqui parte do seu banco, para resolvermos isso em menos de 1 minuto.

João, quero aproveitar o contexto para perguntar, como escrevi, "perguntar", não é pitaco, ok?

Nesse caso serviria também a Nz()?

Ex:

Private Sub Form_Load()
Nz(Forms![frmordemservRetirada_eq]![qrytblfatura_cons_status subformulário].Form![ContarDestatus],0)
End Sub

Abraço

Leandro, a função Nz funfa para nulos sim, mas eu ainda não entendi o que ele pretende ao certo.

Vamos aguardar pelo anexo....

segue bd.

Faça deste jeito;

No subform apenas;

Private Sub Form_Load()
Me.contarDestatus = Nz(DCount("status", "qrytblfatura_fatura_status"), 0)
Me.txtValorTotal = Nz(DSum("[valor total]", "qrytblfatura_fatura_status"), 0)
Me.txtMedia = Nz(DAvg("[valor total]", "qrytblfatura_fatura_status"), 0)
End Sub

Agora sim, muito obrigado!

José aproveite e tente entender as funções aplicadas, assim poderá fazer para outras caixas de texto.

Obrigado pelo retorno.