Eduardo Pérez Fernández

Aunque la respuesta que le dan es suficiente lo hago concatenando los campos, especialmente cuando hago etiquetas, para no dejar espacios en blanco. TABLA DISEÑO DEL REPORTE CÓDIGO EN LA SECCIÓN DE DETALLE EVENTO AL DAR FORMATO Private Sub...

Tengo este ejemplo que he respondido en otras oportunidades. Consta de 1 tabla, 1 formulario y 1 reporte. En el formulario tengo una cuadro de lista. TABLA FORMULARIO El cuadro de texto está configurado en Propiedades, Otras, Selección Multiple en...

Si el cuadro de lista tiene el ID de paciente lo mismo que el formulario frmDatosPacientes, lo puede hacer programando el evento Al hacer clic del cuadro de lista, algo como DoCmd.OpenForm "frmDatosPacientes", , , "idpaciente=" & Me.cuadrolista En...

Consulte este link No se puede ejecutar un procedimiento con un nombre ambiguo detectado | Microsoft Docs

Para este caso no creo que se pueda clonar el formulario porque tiene un subformulario. Le cuento como lo hago: Observe que tengo un botón "Postergar Factura" y otro "Continuar factura" (se puede hacer en uno solo cambiando el texto y color). Si hago...

He preparado este ejemplo, consta de 2 tablas, 1 formularios y un módulo de VBA con algo de "Enciclopedia Británica" como dicen. TABLAS FORMULARIO Al hacer clic en el botón Dar de Alta obtengo el siguiente mensaje: Hago clic en Sí Hago clic en...

Otra forma SELECT idpedido , Fecha_pedido, Nombre FROM Pedidos WHERE IsDate(fecha_pedido)<>True; Esta consulta muestra los pedidos que el campo fecha_pedido no tengan fecha Le recomiendo utilizar IsDate() para validar el contenido de un campo en un...

No veo la necesidad de DAO lo puede hace con DLAST("Horario1","Prorga..."). Para obtener el ultimo registro. Por otra parte sobra Value y el ultimo value le falta el punto

Esta es una opción más corta y sin tanta vuelva. TABLA Tengo la tabla en donde los registros resaltados en el campo Apellidos contiene el carácter #. CONSULTA Observe el criterio Como "*[#]*", esto permite obtener los apellidos que contengan el...

Pruebe con esta: Public Function extDNI(strTexto As String) As String Dim pos_guion As Integer Dim aux As String pos_guion = InStr(1, strTexto, "-") aux = mID(mID(strTexto, pos_guion - 8), 1, 10) If Not IsNumeric(Left(aux, 1)) Then extDNI =...