este es mi programa
(http://s2.subirimagenes.com/otros/previo/thump_8714278diseo.jpg)
necesito que en el botom nueva venta, ponga los text en blanco para poder introducir nuevos valores para guardar en la base de datos.
espero me exprese bien y gracias de antemano ;D ;D ;D
puedes hacer algo asi:
For Each Control In Me.Controls
If TypeOf Control Is TextBox Then Control.Text = ""
Next
saludos
Gracias por tu pronta respuesta,
mi codigo era este
adodc1.Recordset.AddNew
para el boton nuevo, me funcionaba al principio pero nose porque despues me dejo
de funcionar :( me podrias explicar cual fue el motivo por el que dejara de funcionar?
El botom nueva venta es para agregar un nuevo formulario.
Saludos Cordiales!
no entiendo :S
Eso es un programa con base de datos mira todos los codigos
Private Sub cmdsalir_Click()
If MsgBox("¿Estas seguro que desea salir de la aplicacion?", vbQuestion + vbYesNo, "Pregunta") = vbYes Then
End
End If
End Sub
Private Sub Command1_Click()
Load frmarticulo
frmarticulo.Show vbModal
txtarticulo = articulo
End Sub
Private Sub Command10_Click()
txttotal = txtprecio * txtcantidad
End Sub
Private Sub Command11_Click()
Adodc1.Recordset.Delete
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MovePrevious
End If
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If
End Sub
Private Sub Command6_Click()
Load frmenvio
frmenvio.Show vbModal
End Sub
Private Sub Command8_Click()
txttotalapagar = txttotal - txtdescuento
End Sub
Private Sub Command9_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Form_Load()
Fecha.Caption = Date
Skin.LoadSkin "C:\Documents and Settings\Propietario\Mis documentos\Flash\skins\skins/GT3.skn"
Skin.ApplySkin Me.hWnd
End Sub
Private Sub Option1_Click()
txtdescuento = txttotal * 0.02
End Sub
Private Sub Option2_Click()
txtdescuento = txttotal * 0.04
End Sub
Private Sub Option3_Click()
txtdescuento = 0
End Sub
Private Sub txtarticulo_Change()
If txtarticulo = "Monitor HP LCD" Then
txtprecio = 2300
End If
If txtarticulo = "Disco Duro 500GB" Then
txtprecio = 600
End If
If txtarticulo = "Memoria USB kingston 1GB" Then
txtprecio = 100
End If
End Sub
entonces cuando le de click al botom nueva venta quiero que me ponga una fila vacia para poder llenarla con otros datos :o
pues al darle a Adodc1.Recordset.AddNew deberia colcartelos en blanco
Fijate que los textbox esten unidos al DataEnvironment (asi se llamaba?) o ADODC
Fijate la propiedad DataSource y DataMenber de cada textbox sea la correcta
Uala, estas cargando la skin a través de una variable estática?
Dinos la verdad, cuantos días llevas programando?
Citarnecesito que en el botom nueva venta
CitarEl botom nueva venta es para agregar un nuevo formulario.
Citarentonces cuando le de click al botom nueva venta quiero que me ponga una fila
1) El objeto se llama
BotoN2) Fíjate si no estas limpiando las cajas de texto "a mano", o si les escribís algo dentro antes de apretar "AddNew", si lo estas haciendo, te debe salir: "El evento fue cancelado por el objeto" o algo similar.
3) Ponerle nombre a los objetos no muerde..
te recomiendo leer un manual de ADO en visual basic, estas dudas se resuleven leyendo un manual.
y el control adodc esta obsoleto, mejor usa ADO desde codigo, simplemente declarando una variable de tipo Recordset y listo, no usas mas ese objeto.
saludos.
jejej gracias a todos, lo que hice fue eliminar el botom y poner otro y me funciono :D
Saludos Cordiales!
Y dale con el botom ;D