Eduardo Pérez Fernández

Pruebe con este código Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("SELECT Max(Right(NumFactura,4)) FROM T_Facturas WHERE mid(NumFactura, 4,4)=" & Year(Me.Fecha) & " ORDER BY Right(NumFactura,3)") If rst.RecordCount = 0 Then...

Le complemento a la respuesta de Julián hace falta la cláusula Where porque así como lo explica va a actualizar todos los registros de la tabla. Algo como docmd.runsql"update unitariodecapitulo set precio=precio+" & me.[por ciento] & " Where ID= " &...

Le dejo otra alternativa. Si utiliza la cinta de opciones se ahorra el código, tengo una aplicación en donde paso la foto y firma a al reporte y lo envío por email. Estas imágenes están en campos bytea de una base de datos PostgreSQL en la nube, en...

¿Qué imformacion require e QR?

Sin saber como tiene escrito el código no se puede dar una respuesta

Le dejo esta idea: Crear una relación entre las tablas "Recibos" y "Formas de Pago" basada en una clave única que las relacione, por ejemplo, un campo "ID Recibo". Esto asegurará que los registros en "Formas de Pago" estén vinculados correctamente a...

Le dejo este ejemplo, debe programar el evento Al no estar en la lista. Private Sub cboClienteNotInList(NewData As String, Response As Integer) Dim intReply As Integer intReply = MsgBox("El Cliente'" & NewData & _ "' no está en la lista, quiere...

Le dejo este script SELECT f.* FROM facturas f JOIN estado_cliente ec ON f.fecha = ec.fecha_estado AND f.cliente_id = ec.cliente_id WHERE ec.estado = 'alta';

Le dejo esta alternativa con Outllook Sub EnviarCorreosAdjuntos() Dim db As DAO.Database Dim rs As DAO.Recordset Dim appOutlook As Outlook.Application Dim msg As Outlook.MailItem Dim codigoAnterior As String Dim adjuntos As String Set db =...

Efectivamente está mal es DoCmd.RunSQL ...