peibol0.1 jajajaja boluuuuuuuuuuu eso ya lo se ahora lo que no se es por que carajo no tengo la opcion para personalizar mi imagen o avatar, no encuentro esa opcion man ! ajajaj pero gracias igual por la respuesta....
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ú
Public Sub
If fila <> 0 Then
A = MsgBox("Borrar el dato?", "49", "Sistema")
If A = 1 Then
rs1.Delete
MSFlexGrid1.Clear
End If
f = 0
Set rs1 = BD1.OpenRecordset("SELECT * " & "FROM tabla1")
'If rs1.EOF = False Then rs1.MoveFirst
While rs1.EOF = False
f = f + 1
MSFlexGrid1.TextMatrix(f, 0) = rs1.Fields("Tema1")
MSFlexGrid1.TextMatrix(f, 1) = rs1.Fields("Tema2")
MSFlexGrid1.TextMatrix(f, 2) = rs1.Fields("tema3")
MSFlexGrid1.TextMatrix(f, 3) = rs1.Fields("tema4")
MSFlexGrid1.TextMatrix(f, 4) = rs1.Fields("tema5")
rs1.MoveNext
Wend
End If
' BLANQUEO DE CONTROLES
Text1 = ""
Combo1 = ""
Combo2 = ""
Combo3 = ""
CmdAceptar.Enabled = False
CmdModificar.Enabled = False
CmdBorrar.Enabled = False
CmdImprimir.Enabled = False
End Sub