NAO CONSIGO "LIMPAR" CAMPO....

USUARIO.EXCLUIDOS 15/01/2005 19:23:15
#61040 Resposta escolhida

Você esta usando a formatação de Cpf no campo Mask?

WEBMASTER 15/01/2005 19:23:19
#61041

ponha o foto dele...
supondo que seja esse o formato:

"__/__/____", ponha:

cpf.text="__/__/____"

...perai q vo confirmar isso

USUARIO.EXCLUIDOS 15/01/2005 19:28:18
#61044

O modo como o Young_H4CK3R, colocou funciona mas se não funcionar, tente essa Função, coloque em um modulo, ela ira limpara todos os campos do seu formulário:

Public Sub LIMPA_CAMPO(frm As Form)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Essa rotina limpa os campos de um formulário '
'Autor: Osvaldo Junior '
' '
' '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
On Error GoTo trataerro:
Dim I As Integer
Dim MSKTEMP As String
For I = 0 To frm.Controls.Count - 1
If TypeOf frm.Controls(I) Is TextBox Then
frm.Controls(I).Text = ""
ElseIf TypeOf frm.Controls(I) Is ComboBox Then
frm.Controls(I).Text = ""
ElseIf TypeOf frm.Controls(I) Is MaskEdBox Then
frm.Controls(I).PromptInclude = False
frm.Controls(I).Text = Empty
frm.Controls(I).PromptInclude = True
'''''''''''''''
ElseIf TypeOf frm.Controls(I) Is CheckBox Then
frm.Controls(I).Value = 0
End If
Next I

trataerro:
Select Case Err.Number
Case 0
Case Else
MsgBox "Aconteceu o seguinte erro " & Err.Number
Err.Clear
End Select
End Sub


''''''''''''''
essa função e chamada assim
call LIMPA_CAMPO(me)

WEBMASTER 15/01/2005 19:28:47
#61045

foto=formato...errei ;)

WEBMASTER 15/01/2005 19:35:54
#61047

interessante sua função Osvaldo...tinha esquecido do Empty[S51][S90]