Eduardo Pérez Fernández

¿Qué impresora utiliza? Toda vez, que los códigos no son iguales, dependen del fabricante.

Revise está línea mensaje = (MsgBox("La presión sistólica es de " & (Sistolica) & " mmHg" & vbCrLf & "¿Es correcta esta cifra?", vbYesNo + vbQuestion, "Valor fuera de rango"))

Y es que no debe aparecer porque esto se obtienen mediante una consulta, al no ser que quiera adicionar el campo en la tabla Tblfacturas.

Alexis mire el formulario que le adicioné para tomar el rango de fechas.

Le voy a dejar algo fantástico que no es de mi autoría, pero lo utilizaba cuando trabajaba con tablas vinculadas a Access. FORMULARIO Al llamar la función le indico el nombre de los campos que no debe REPETIR, en este ejemplo le digo que no repita...

Ingrese este código en el evento Al abrir. Private Sub Form_Open(Cancel As Integer) DoCmd.GoToRecord , , acNewRec End Sub Todo indica que el formulario es dependiente, de esta forma puede desplazarse entre registros.

Puede hacerlo con esta función Public Function validarEmail(email As String) As Boolean 'La función utiliza una expresión regular para validar el formato del correo electrónico. 'La expresión regular se almacena en la variable patron y se compone de...

Le preparé este ejemplo TABLA Observe que están repetidos lo idcliente= 2 y 4, es decir, INES MARTINEZ PAEZ y JORGE OLMOS CRUZ Función para retirar duplicados Public Function retira_duplicado() On Error GoTo hay_error CurrentDb.Execute "DELETE * FROM...

La respuesta que le dan es suficiente, no obstante, le dejo esta función que presenté en otra respuesta. Pegue esta función en un módulo Public Function var_porc(dbnum1 As Double, dbnum2 As Double, Optional nforma As Byte) As Variant 'Función para...

Juan Pedro, hay muchas formas de asegurar la información, pero he preparado este ejemplo tratando de conservar su pregunta. Utilizo una tabla para registrar los reportes: Formulario para registrar los reportes y la contraseña Código del botón Crear...