ifrancoz

Las formas deben tener la propiedad Keypreview = True (tiempo diseño) En cada una de ellas que quieras descargar con la tecla Esc colocas lo siguiente : Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me End If End Sub Suerte !

Private Sub Leer_Click() Movto = "C:\Prueba.txt" Open Movto For Input As #1 Do While Not EOF(1) Input #1, Campo1,Campo2, Campo3 ' Si los campos estan separados por comas o " ' Aquí coloco la rutina para grbar los datos a la tabla Loop Close #1 End...

Puedes hacer algo como esto. Dim I As Byte Private Sub Combo1_Click() Text1 = Combo1.Text I = Combo1.ListIndex Combo1.RemoveItem I If Combo1.ListCount = 0 Then Combo1.Clear MsgBox "El combo quedó sin elementos" End If End Sub Private Sub Form_Load()...

Se puede utilizar algo como esto: Dim Jul As Long Dim Ano As Integer Dim Dia As Integer Dim Fecini As Date Dim Fecfin As Date Private Sub Convertir_Juliana() Ano = Mid(Jul, 1, 4) Dia = Mid(Jul, 5, 3) - 1 Fecini = Ano & "/" & "01/01" Fecfin =...

El mensaje "No puedo encontrar el ISAM instalable" se presenta cuando teniendo una base de datos en Access 97 la convierto a Access 2000 y el VB6 no tiene instalado el Service Pack 5. Al instalar el Service Pack 5 se soluciona el problema. Suerte !

En Access normalmente las fechas se guardan en formato "mm/dd/yyyy". Cambia en la consulta el formato de las fechas inicial y final y creo que resuelves el problema. Suerte !

Para poder filtrar por un carácter o caracteres debes utilizar un carácter comodín que generalmente es el * aunque creo que para ADO se utiliza el % A* Busca todos los registros cuyo campo de búsqueda inicie con A *A* Busca todos los registros cuyo...

El problema puede ser que en tu archivo de prueba haya más campos de los seis que pretendemos leer o que donde termina el último carácter hay que hacer un salto de línea (enter) y el fin de archivo debe estar en la primera posición de la última...

Si puede hacerlo de esta forma. Solo que tienes que leerlos a una variable y luego si moverlos a los textbox : Dim Ide As String Dim Nom As String Dim Ape As String Dim Fol As String Dim Tel As String Dim Cod As String Private Sub Leer_Click() Movto...

Puedes hacer algo como esto : Dim Numini As Integer Dim Numfin As Integer Dim I As Integer Private Sub Command1_Click() Numini = Val(Text1) Numfin = Val(Text2) ' Validar que numfin sea mayor que inicial For I = Numini To Numfin Text3 = Text3 &...