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...

Otra opción: Supongamos que en tu cuadro de lista (que entiendo se llama "Menu"), tienes las opciones "GESTION DE CONTABILIDAD", "GESTION DE CLIENTES" y "GESTION DE PROVEEDORES" En el evento "después de actualizar" o en "al hacer clic" (aunque este...

Deberías explicar mejor lo que pretendes hacer, porque, tal como lo planteas, no tiene ningún sentido. Me explico: el código que pretendes ejecutar al abrir la bases de datos, depende directamente de un formulario (cuando pones en código Me. Xxxx,...

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 en el origen de control le tienes una expresión (como =DCount(...) ) no le puedes dar otro valor por código, macro o directamente escribiendo en el cuadro de texto. La solución más sencilla sería eliminar la expresión del origen de control, y...

Yo pondría el parámetro simplemente como: Como "*" & [Formularios]![Master Associates]![txtCadenaABuscar] & "*" Es decir, sin el .Text, que solo lo deberías usar si quieres recuperar el valor del cuadro de texto en el momento en que estás escribiendo...

Aquí tienes una forma de hacerlo: http://www.filebig.net/files/dNvgeGhKUt Está basada en este ejemplo de Neckkito: http://neckkito.xyz/nck/index.php?option=com_content&view=article&id=177:exportar-a-hoja-existente-en-excel&catid=18:codigo He supuesto...