[Resolvido]Valor Nulo

tenho um criterio para acrecentar 0 (zero) a esquerda em um campo chamado Pasta_prontuario so que quando eu apago o prontuario para o campo ficar vazio o programa nao aceita. alguem pode mim ajudar messa formula onde o valor pode ser zerado

Private Sub Pasta_Prontuario_AfterUpdate()
Dim Cont As String
Cont = 8 - Len(Pasta_Prontuario)
If Cont > 0 Then
Do While Cont > 0
Pasta_Prontuario = 0 & Pasta_Prontuario
Cont = Cont - 1

Loop
End If
Pasta_Prontuario.InputMask = "########"
End Sub

Boa tarde, waiton

Private Sub Pasta_Prontuario_AfterUpdate()
Dim Cont As String
Cont = 8 - Len(Pasta_Prontuario)
If Cont > 0 Then
Do While Cont > 0
If IsNull(Pasta_Prontuario) then Pasta_Prontuario = 0 Else Pasta_Prontuario = 0 & Pasta_Prontuario
Cont = Cont - 1

Loop
End If
Pasta_Prontuario.InputMask = "########"
End Sub

Obrigado Alexandre Neves

Atenciosamente

Waiton Milhomem

Topico Fechado