kisin

xaviz respondió: Pon el evento text1_keypress() if keyascii = 13 then msgbox "hola" End Sub

xaviz respondió: Has probado con... Picture1. Print Text1.text

conectado respondió: Agrega este sub a cada control que quieras que solamente te escriba numeros, en cada control que lo necesites agrega el IF ... END IF que es lo que hace el filtro Private Sub Text1_KeyPress(KeyAscii As Integer) If InStr(1, "0123456789",...

conectado respondió: ' En un modulo declara lo siguiente 'Conexiones Local Public ADOcn As ADODB.Connection 'Recordset Local Public ADOrs As ADODB.Recordset 'en el Sub Main() declara lo siguente Set ADOcn = New ADODB.Connection With ADOcn If .State <> adStateOpen Then...