ifrancoz

Esto se puede hacer pero leyendo este archivo y generando uno nuevo con los espacios deseados, me imagino que por ejemplo quiere separar con un espacio unos campos de otros, por ejemplo colocar un espacio antes del nombre, ¿verdad? Si me explica un...

Debe hacer lo siguiente en el evento DblClick del Datagrid : Private Sub DataGrid1_DblClick() DataGrid1.Col = 0 ' Columna 1 Text1 = DataGrid1.Text DataGrid1.Col = 1 ' Columna 2 Text2 = DataGrid1.Text . DataGrid1.Visible = False End Sub Suerte !

La forma debe tener la propiedad Keypreview = True (tiempo diseño) Para deshabilitar el Datagrid debe colocar lo siguiente en el evento KeyPress del Datagrid: Private Sub DataGrid1_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then DataGrid1.Visible...

Esto está ocurriendo porque en la instrucción Printer. Print está enviando todo el campo Text1 y además hay que ir incrementando la variable b Debes colocar lo siguiente : For a = LBound(lineas) To UBound(lineas) Printer.CurrentX = c Printer.CurrentY...

Para esto puedes utilizar la función DateDiff la cual devuelve el número de intervalos de tiempo entre dos fechas determinadas de la siguiente forma : Dim Fecnac as date Dim Dias as long Dias = DateDiff("d", Fecnac, Date) Suerte !

Por qué no prueba de esta forma: Dim Ini as Date Dim Fin as Date Ini = DateAdd("d", -1, Dtpicker1) Fin = DateAdd("d", 1, Dtpicker2) Reemplazar la consulta por esto : SELECT * FROM camion WHERE fecha > #" & dtpicker1.value & "# AND fecha < #" &...

Esto lo puede hacer con la función Timer la cual devuelve el numero de segundos transcurridos desde la medianoche. Puede utilizar algo como esto : Dim t As Single Dim Lapso As Single Private Sub Command1_Click() Lapso = (Timer - t) / 60 MsgBox...

Pues eso se podría hacer de la siguiente manera, colocando la propiedad Interval del timer en 10000 Dim I As Byte Private Sub Form_Load() List1.Clear List1.AddItem "Primero" List1.AddItem "Segundo" List1.AddItem "Tercero" I = 2 End Sub Private Sub...

Para realizar esta operación debe utilizar la función DateAdd pero debe manejar los minutos no como fecha sino como un entero. DateAdd(intervalo, número, fecha) En su caso quedaría de esta forma : Dim minutos as integer hfinal = DateAdd("n", minutos,...

Ese error se presentaba con el control MSCAL.OCX ya que al momento de registrarlo no puede hacerlo pues aparece la palabra DLLSelfRegisterEx en lugar de DLLSelfRegister en el archivo SETUP. LST del instalador. Para solucionarlo se edita el archivo...