Bom dia, pessoal!
Estou tentando criar uma rotina que verifique campo nulo, caso afirmativo, preencha com 0 após perder o foco.
Aqui, verifica, mas acabando preenchendo todos os campos em branco ao mesmo tempo. Preciso que faça um a um.
Private Sub NaoVazio()
Dim Ctl As Control
For Each Ctl In Screen.ActiveForm
If IsNull(Ctl) Then
Ctl = Nz(Ctl, 0)
End If
Next
End Sub
Se retiro For Each, Next, não faz nada.
Obrigado.
Estou tentando criar uma rotina que verifique campo nulo, caso afirmativo, preencha com 0 após perder o foco.
Aqui, verifica, mas acabando preenchendo todos os campos em branco ao mesmo tempo. Preciso que faça um a um.
Private Sub NaoVazio()
Dim Ctl As Control
For Each Ctl In Screen.ActiveForm
If IsNull(Ctl) Then
Ctl = Nz(Ctl, 0)
End If
Next
End Sub
Se retiro For Each, Next, não faz nada.
Obrigado.