Scribd
Cargar
52 vistas2 páginas

Validación y Guardado de Registros

El documento describe los pasos para guardar registros en una hoja de cálculo desde cuadros de texto. Primero declara variables para almacenar la fila nueva y la hoja destino. Luego valida que los campos tengan valores antes de guardar. Al completarse la validación, almacena los valores de los cuadros de texto en las celdas correspondientes de la fila nueva y muestra un mensaje de registro exitoso. Finalmente limpia los cuadros de texto para un nuevo registro.

Cargado por

lv_plus
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como TXT, PDF, TXT o lee en línea desde Scribd
52 vistas2 páginas

Validación y Guardado de Registros

El documento describe los pasos para guardar registros en una hoja de cálculo desde cuadros de texto. Primero declara variables para almacenar la fila nueva y la hoja destino. Luego valida que los campos tengan valores antes de guardar. Al completarse la validación, almacena los valores de los cuadros de texto en las celdas correspondientes de la fila nueva y muestra un mensaje de registro exitoso. Finalmente limpia los cuadros de texto para un nuevo registro.

Cargado por

lv_plus
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como TXT, PDF, TXT o lee en línea desde Scribd

'Botón Guardar

'Con esto se declaran las variables que vamos a utilizar para guardar los
valores

Dim NuevaFila As Integer


Dim HojaDestino As Range

Set HojaDestino = [Link](Mayor).Range("C11").CurrentRegion


NuevaFila = [Link] + 1

'Estos comandos son necesarios para validar que todos los campos tengan un valor
numero antes de guardarlos de lo contrario no se podra guardar el registro.

If [Link] = "" Then MsgBox "Se debe ingresar un Codigo", vbInformation,


"Error": [Link]: Exit Sub
If [Link] = "" Then MsgBox "Se debe ingresar el Nombre del Producto",
vbInformation, "Error": [Link]: Exit Sub
If [Link] = "" Then MsgBox "Se debe ingresar una Talla", vbInformation,
"Error": [Link]: Exit Sub
If [Link] = "" Then MsgBox "Se debe ingresar un Color", vbInformation,
"Error": [Link]: Exit Sub
If [Link] = "" Then MsgBox "Se debe ingresar una Descripcion",
vbInformation, "Error": [Link]: Exit Sub
If [Link] = "" Then MsgBox "Se debe ingresar una Cantidad",
vbInformation, "Error": [Link]: Exit Sub

With [Link](Mayor)
.Cells(NuevaFila, 3).Value = Date
.Cells(NuevaFila, 4).Value = [Link]
.Cells(NuevaFila, 5).Value = [Link]
.Cells(NuevaFila, 6).Value = [Link]
.Cells(NuevaFila, 7).Value = [Link]
.Cells(NuevaFila, 8).Value = [Link]
.Cells(NuevaFila, 9).Value = [Link]

End With

'Mensaje que se genera al guardar elregistro, despues de rellenar todos los


campos

MsgBox "Registro exitoso.", vbInformation, "Guardado"

'Con estos comando se limpian los cuadros de textos para proceder a realizar un
nuevo registro

[Link] = Empty
[Link] = Empty
[Link] = Empty
[Link] = Empty
[Link] = Empty
[Link] = Empty
'Dim NombreHoja As String

'Aqui se especifican las condiciones de ubicacion donde se van a guardar los


datos

' NombreHoja = [Link]


' If NombreHoja = "" Then MsgBox "Se debe seleccionar el tipo de articulo",
vbInformation, "Error": [Link]: Exit Sub

End Sub

para el boton modificar

dim fila as object


dim linea integer

valor_buscado=me.(cuadro de texto que me indique lo que estoy buscando)


set fila=sheets("Hoja en que se trabaje").range("Columna donde esta lo que estoy
buscando").find(valor_buscado, lookat=:xlwhole)
linea=[Link]
range("ubicacion que quiero modificar"&linea).value=me."Lo que quiero
modificar".value (Asi con todos lo que quiero modificar)

También podría gustarte