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


ESO ES PARA BLOQUEAR TECLADO COMPLETO Y MOUSSE ! Y YO QUE HICE ? PUSE TODO UN CODIGO COMPLETO SOBRE BLOQUEO DE TECLAS, NO ES QUE ME QUEDE ESPERANDO LA AYUDA, NO NO NO NO, PUSE EL CODIGO PARA QUE ENTRE TODOS LO MEJORES Y SE AJUSTE NO SOLO A MI NECESIDAD SINO A LA DE MUCHOS QUE PREGUNTAN LO MISMO. EN FIN...ESTAS EQUIVOCADO BLACKSABATH.CHAU.



