OK, pero sólo porque tú lo dices...
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: ssccaann43 en 26 Agosto 2009, 22:04 PM
Private Sub cmdborrar_Click()'Borra el registro seleccionado
<->cn.Execute ("DELETE FROM socios where id= ") & borrarregistro, cn
'Llama a la funcion LOAD para que cargue la grilla nuevamente.
'Por lo tanto SE ACTUALIZA.
Call Form_Load
End Sub
Dim f5 as Form5
Set f5 = New Form5
Load f5
f5.Show
Private Sub Command1_Click()
For x = 1 To 50
List1.AddItem x
Next
List1.TopIndex = List1.ListCount - 1
End Sub