formulario personalizado, como lo hago

04/07/2006 - 14:20 por Isaac | Informe spam
Estimados amigos

Ahora si estoy en ceros, algun ejemplo que me den para un formulario
personalizado que ayude administrar una base de datos (lista), por que el
data show (datos/formulario) no me funciona por que deja eliminar y dar de
alta desde alli y solo quiero que permita corregir datos, sin eliminar
registros, por que trabajo con bloques nombrados, y se desajustan, gracias

Isaac
 

Leer las respuestas

#1 Héctor Miguel
05/07/2006 - 06:30 | Informe spam
hola, Isaac !

... ejemplo... para un formulario personalizado que ayude administrar una base de datos (lista)
... el data show (datos/formulario) no me funciona por que deja eliminar y dar de alta desde alli
... solo quiero que permita corregir datos, sin eliminar registros, por que trabajo con bloques nombrados, y se desajustan ...



el siguiente ejemplo 'asume' que existe una 'hoja1' con un rango nombrado 'listado' de 5 columnas [por lo cual]...
existen 5 textboxes [misma secuencia numerica] textbox1... textbox5 y un combobox1 que lista de la columna 1 del listado.
toma en cuenta que dicha hoja la puedes 'mantener' oculta y/o mostrar el formulario estando 'otra' hoja como activa ;)
[a falta de detalles mas especificos] :D

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en el modulo de codigo del formulario ==Dim Sig As Byte, Fila As Long
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then _
Vinculos_Off Else Vinculos_On
End Sub
Private Sub Vinculos_Off()
For Sig = 1 To 5
Me.Controls("textbox" & Sig).LinkedCell = ""
Next
End Sub
Private Sub Vinculos_On()
With Worksheets("hoja1").Range("listado")
Fila = Application.Match(ComboBox1.Text, .Offset.Resize(, 1), 0)
For Sig = 1 To 5
Me.Controls("textbox" & Sig).ControlSource = _
"'" & .Parent.Name & "'!" & .Cells(Fila, Sig).Address
Next
End With
End Sub

Preguntas similares