Eduardo Pérez Fernández

Pruebe con este código Me.TOTALMEDI.Caption = DSum("[CANTIDAD]", "HISTOENTRADA", "[FECHA] >= #" & Format(Me.DESDE, "yyyy/mm/dd") & "# And [FECHA] <= #" & Format(Me.HASTA, "yyyy/mm/dd") & "# And [CODIGO] = '" & Me.MEDICAMENTOS.Column(2) & "'")

Pruebe con una impresora virtual, por ejemplo, "Adobe PDF"

Pruebe con este código Sub CompactarRepararBD() Dim dbEngine As Object Dim db As Object Dim sourceDbPath As String Dim targetDbPath As String Dim password As String ' Ruta de la base de datos a compactar y reparar sourceDbPath =...

Utilice formato condicional sobre el respectivo campo y suprima el código que tiene.

Esta no es la forma de manejar varias empresas con un solo programa, cada empresa debe tener su propia base datos y se administran mediante tablas vinculas, si es en Access (Jet) y se administran mediante ADOB. Si la conexión es a un servidor de...

Pruebe utilizando NZ(valor)

Hay algunos posibles problemas: 1. La variable "Ruta" se declara pero no se utiliza en el procedimiento. En su lugar, se utiliza la variable "RutaGraba" para construir la ruta de grabación. 2. No se declara la variable "nc" antes de usarla en el...

Pedro si quiere algo más completo lo invito a ver este video, descargue los ejemplos. https://youtu.be/Bwg4KlJEkX4

Le dejo otra opción con una función para Access y los scripts para SQL Server y PostgreSQL PARA ACCESS TABLAS DISEÑO DE LA CONSULTA RESULTADO DE LA CONSULTA CÓDIGO DE LA FUNCIÓN Function ObtenerNombresCategorias(idCategorias As String) As String Dim...

Puede utilizar la función TRIM() en el evento Después de actualizar. Algo como: Private Sub ctlnombre_AfterUpdate() Me.ctlnombre = UCase(Trim(Me.ctlnombre)) End Sub En este ejemplo suprimo los espacios antes y después con la función Trim() y paso el...