Cmd Limpiar

[Kroy]

Hola, a ver si me podeis ayudar. LLevo todo el fin de semana con mi primer programa. Resulta que cuando le doy al boton LIMPIAR, solo me limpia las ventanas que rellena el usuario y no la de los resultados, he repasado y no encuentro el problema.

Por otro lado es que cuando dejo una de las casillas sin datos , puesto que no siempre lo necesita, el programa da un error.

Una manita porfa
Saludos
ONUBA

[hernanmdq]

Si para limpiar las casillas, ejem. un textbox usas textbox,text = "", no veo porque te da error.
Hay casos como los datacombo que tenes que poner listindex = -1.
Despues eso de que no limpia todo, debe ser que no pones los controles adecuados en el click del boton limpiar.

[Kroy]

Pues siento decirte que lo he vuelto a revisar y vuelto a poner el codigo a mano, solo borra el TexBox que rellena el usuario, el que nos da el total no los borra.

Por otro lado, como se pone para que no sea obligatoria poner datos en el TexBox?? esta es la causa del error.

Muchas gracias

Quien quiera le envio copia para que lo vea

saludos
ONUBA

[lop7]

hola...
bueno pana yo hago esto a los controles que yo quiero limpiar
le coloco en la propiedad tag=limpio esto en diseño y coloco este codigo en un modulo para llamarlo cuando lo necesite...solo tienes q validar q algunos controles no tienen la propiedad text y te daria un error solo tienes q pasar de parametro el nombre del form ok

Código:

Public Sub Limpiar(forma As Form)
Dim MiObjeto As Control

For Each MiObjeto In forma
   If MiObjeto.Tag = "limpio" Then
        MiObjeto.Text = ""
   End If
Next
End Sub

saludos...
nos vemos...

[Kroy]

Creo que esto es lo mas facil, y perdonad por la lata que estoy dando

Private Sub cmdLimpiar_Click()
TxtR500 = "": TxtR200 = "": TxtR100 = "": TxtR50 = ""
TxtR20 = "": TxtR10 = "": TxtR5 = "": txtR2 = "": TxtR1 = ""
TxtR050 = "": TxtR020 = "": txtR010 = "": txtR005 = ""
TxtR002 = "": txtR001 = ""
TxtDe500 = "": txtDe200 = "": txtDe100 = "": txtDe50 = ""
txtDe20 = "": txtDe10 = "": txtDe5 = "": txtDe2 = "": txtDe1 = ""
txtDe050 = "": txtDe020 = "": txtDe010 = "": txtDe005 = ""
txtDe002 = "": txtDe001 = ""
TxtTotal = ""
End Sub

Esto es lo que he hecho, el caso es que solo me borra los "TXTde..." y no los TXTr, ya es raro NO??

[reel]

Puedes utilizar ese código si te parece.

Código:

Sub IniControls(myForm As Form)
    Dim cCtrl As Control
    For Each cCtrl In myForm.Controls
        If TypeOf cCtrl Is TextBox Then
            cCtrl.Text = ""
        ElseIf TypeOf cCtrl Is ComboBox Then
            If cCtrl.ListCount > 0 Then cCtrl.ListIndex = 0
        End If
    Next
End Sub

Saludes

[lucasiramos]

Iniciado por Kroy

Creo que esto es lo mas facil, y perdonad por la lata que estoy dando

Private Sub cmdLimpiar_Click()
TxtR500 = "": TxtR200 = "": TxtR100 = "": TxtR50 = ""
TxtR20 = "": TxtR10 = "": TxtR5 = "": txtR2 = "": TxtR1 = ""
TxtR050 = "": TxtR020 = "": txtR010 = "": txtR005 = ""
TxtR002 = "": txtR001 = ""
TxtDe500 = "": txtDe200 = "": txtDe100 = "": txtDe50 = ""
txtDe20 = "": txtDe10 = "": txtDe5 = "": txtDe2 = "": txtDe1 = ""
txtDe050 = "": txtDe020 = "": txtDe010 = "": txtDe005 = ""
txtDe002 = "": txtDe001 = ""
TxtTotal = ""
End Sub

Esto es lo que he hecho, el caso es que solo me borra los "TXTde..." y no los TXTr, ya es raro NO??

Bueno, no se si solucionará, pero agregale los .text a cada uno, es decir TxtR500.text = "", TxtR20.text = "", etc

Saludos. Lucas

[Kroy]

La verdad es que para ser la primera vez que hago una aplicacion todo me ha ido muy bien, pero esto seguro que es una chorrada que no soy capaz de superar.
No va con ningunas de las anteriores.
No os ha pasado nunca algo parecido??
Estara en la configuracion del TexBox y no me doy cuenta??
algun alma caritativa que le pueda enviar el archivo
Saludos
ONUBA

[lucasiramos]

¿Los dos puntos son para escribir en la misma línea? Probá sacandolos y hacer uno por linea, con la propiedad .text, eso tiene que andar:

Private Sub cmdLimpiar_Click()
TxtR500.text = ""
TxtR200.text = ""
TxtR100.text = ""
etc....
End Sub

[Kroy]

Gracias a Todo .


Sos muy amables, de verdad que lo agradezco. Pense que esta simpleza no me daria tantos problemas.

http://www.forosdelweb.com/images/smilies/tstress.gif


Saludos
ONUBA

[aldo1982]

es sencillo lo ke kieras limpiar asi
si es un label

label1.caption = ""


si es un text

text1.text = ""


salu2

[Kroy]

Hola , agradezco tu respuesta. Espero que esteis bien por " La Argentina, tengo algunos amigos alli.

Eso que dices es lo que llevo 2 dias intentando de varias formas y no es posibles, el error debe estar en otro sitio que no encuentro. Es problable .

Si quieres te envio el fichero, si me das tu deirecion claro.

Saludos
ONUBA (España)

[hernanmdq]

A mi tu problema me da curiosisdad, si quieres mandarme el fichero, hernanmdq"arroba"hotmail.com

[Kroy]

Muchas gracias :

Estoy probando y esta solucionado con las las instrucciones de <hernan....
solo me queda que buscar los separadores en las cantidades.
Agradecido a todos por las ayuda

Saludos
ONUBA

[antonio2005pe]

Iniciado por Kroy

Muchas gracias :

Estoy probando y esta solucionado con las las instrucciones de <hernan....
solo me queda que buscar los separadores en las cantidades.
Agradecido a todos por las ayuda

Saludos
ONUBA

creo que esto te podria servir:

Código:

Dim obj As Object 
For Each obj In Controls
    If TypeOf obj Is TextBox Then
        obj.Text = ""
    End If
Next

[hernanmdq]

Ya estas solucionado, lo que pasaba es que no se daba cuenta que al borrar el campo se activa el Change del txt, y como tenia una instruccion Val(txt), le daba 0. Pero si el hubiera dicho que le quedaba un 0, seguro lo resolviamos antes.
Salu2