Visual Basic para Aplicaciones - Programacion de Formularios en Visual Basic

Life is soft - evento anual de software empresarial
   
Vista:

Programacion de Formularios en Visual Basic

Publicado por Martin RM (1 intervención) el 08/08/2014 05:32:16
Hola!
Actualmente me encuentro trabajando en un formulario para el registro de algunos elementos en una base de datos.
He utilizado una macro la cual funciona bien para el caso ya que son solo 11 textbox en el formulario , pero estoy seguro que con un FOR se debe poder recorrer todas las textbox o de alguna manera optimizar el algoritmo en caso que fuera un formulario mucho mas grande con mayor numero de textbox.
la macro es la siguiente:


Private Sub Btn_Ingresar_Click()
Sheets("BDD").Select
ActiveSheet.Cells(7, 1).Select
Selection.EntireRow.Insert
ActiveSheet.Cells(7, 1) = Txb_NombrePc
ActiveSheet.Cells(7, 2) = Txb_Ciudad
ActiveSheet.Cells(7, 3) = Txb_FechaComp
ActiveSheet.Cells(7, 4) = Txb_Telefono
ActiveSheet.Cells(7, 5) = Txb_Proveedor
ActiveSheet.Cells(7, 6) = Txb_Factura
ActiveSheet.Cells(7, 7) = Txb_Valor
ActiveSheet.Cells(7, 8) = Txb_Tipocomp
ActiveSheet.Cells(7, 9) = Txb_Marca
ActiveSheet.Cells(7, 10) = Txb_Modelo
ActiveSheet.Cells(7, 11) = Txb_SerieEquipo
Txb_NombrePc = Empty
Txb_Ciudad = Empty
Txb_FechaComp = Empty
Txb_Telefono = Empty
Txb_Proveedor = Empty
Txb_Factura = Empty
Txb_Valor = Empty
Txb_Tipocomp = Empty
Txb_Marca = Empty
Txb_Modelo = Empty
Txb_SerieEquipo = Empty
Txb_NombrePc.SetFocus
End Sub

Agradeceria bastante su colaboración.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Hugo Correa

Programacion de Formularios en Visual Basic

Publicado por Hugo Correa (5 intervenciones) el 26/08/2014 17:31:32
Revisa el siguiente link: http://vbpuntonet.blogspot.mx/2014/08/limpia-todos-los-campos-de-un-formulario.html
hago el limpiado de todos los campos de un formulario.

Saludos

visita:
www.fellebook.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar