Autor
Buenas amigos mi problema es:
*estoy trabajando con DAO
*tengo una bd en access con 1 tabla
*tengo un MSFlexgrid, 1 textbox, 3 combos
*hago las tres operaciones basicas, ALTA, BAJA, MODIFICACION.
*cuando hago la BAJA, es decir, BORRAR, me borra el registro pero tambien el encabezado del MSFlexgrid...no le encuentro la vuelta...aca esta el codigo del boton borrar:
'BOTON BORRAR
If fila <> 0 Then
A = MsgBox("Borrar el dato?", "49", "Sistema BDLegis")
If A = 1 Then
rs1.Delete
MSFlexGrid1.Clear
End If
f = 0
Set rs1 = BDLegis.OpenRecordset("SELECT * " & "FROM Legis")
'If rs1.EOF = False Then rs1.MoveFirst
While rs1.EOF = False
f = f + 1
MSFlexGrid1.TextMatrix(f, 0) = rs1.Fields("Tipo")
MSFlexGrid1.TextMatrix(f, 1) = rs1.Fields("Tema")
MSFlexGrid1.TextMatrix(f, 2) = rs1.Fields("Comision")
MSFlexGrid1.TextMatrix(f, 3) = rs1.Fields("Estado")
MSFlexGrid1.TextMatrix(f, 4) = rs1.Fields("Ordenar")
rs1.MoveNext
Wend
End If
' BLANQUEO DE CONTROLES
Text1 = ""
Combo1 = ""
Combo2 = ""
Combo3 = ""
CmdAceptar.Enabled = False
CmdModificar.Enabled = False
CmdBorrar.Enabled = False
CmdImprimir.Enabled = False
|
 |
Bienvenido(a), Visitante. Por favor Ingresar o Registrarse ¿Perdiste tu email de activación?. |
En línea
