Sveinbjorn El Rojo

Una opción: Private Sub Comando18_Click() Dim elArchivo As String elArchivo = Application.CurrentProject.Path & "\Tools\FacturasCompras\" & Me.Documento CreateObject("Shell.Application").Namespace(0).ParseName(elArchivo).InvokeVerb("Print") End Sub...

Yo no lo haría en el evento "al hacer clic" del cuadro de texto, sino en el mismo evento de un botón, o si lo quieres hacer en algún evento del cuadro de texto, usaría "después de actualizar". Además, si lo que pretendes es actualizar el campo...

Suponiendo que en cuadro combinado se llama cboSabores, y el cuadro de texto se llama txtDescripcion, podrías hacerlo así : Select Case Me.cbosabores Case "" Me.txtDescripcion="" Case "Chocolate y vainilla" Me.txtDescripcion = "Este helado esta...

Si te refieres al filtro que le ayudé a crear en esta consulta: Realizar diferentes filtros sobre un formulario, mucho me temo que no has entendido el procedimiento para hacerlo, además de que tienes alguna cosilla que no es del todo correcta... El...

Prueba esto: Private Sub fecha1_AfterUpdate() If Month(Me.fecha1) = 12 Then Me.fecha2 = DateSerial(Year(Me.fecha1) + 1, 1, 1) Else Me.fecha2 = DateSerial(Year(Me.fecha1), Month(Me.fecha1) + 1, 1) End If End Sub

Si Id es un número, el filtro es así : Me.Filter= "ID = " & Me.TxTID

Para abrir una carpeta necesitas conocer su ruta exacta, si no, mal asunto... No me queda demasiado claro qué es lo que preguntas. Si lo que quieres es, por ejemplo, abrir una carpeta que está en la misma carpeta (o en cualquier subcarpeta dentro de...

Si tu cuadro de lista se llama lstIncidencias, y no tiene ninguna columna oculta antes de la de REPORTES, simplemente pon: falla=Me.lstIncidencias.Column(4)

Ponlo como: Dim DB As DAO.Database Dim Rst As Dao.Recordset Si aún así no te funciona, asegúrate de tener registrada la librería "Microsoft office XX.X access database engine object library" o la "Microsoft DAO 3.6 Object Library", pero sólo una de ellas.

Prueba así, porque entiendo que con cada valor de la columna A la consulta devolverá un único valor: Sub consultar() Dim cb As Object Dim datos As Object Dim Query As String Dim conexion As String Dim cont As Long Dim i, j Dim rango As String Set cn...