Sveinbjorn El Rojo

Enrique Feijóo respondió: Si esa cifra no se utiliza o utilizo para un calculo (solo se trata de un 'redondeo estético') esa opción es valida, si hay procesamiento de datos no es la opción mas aconsejable. 20,5051 * 3 = 61,5153 20,50 * 3 = 61,5000 61,5153 <> 61,5000 Access...

Como autor del ejemplo del que has sacado ese código, y suponiendo que tu informe se llama "RAgenda", y que tienes el botón "cmdVer" con el código del ejemplo para abrir el formulario filtrado, has de añadir otro botón con el mismo código, cambiando...

Hace tiempo que no respondo en este foro, pero ya que me preguntas directamente, te comento cómo lo haría yo: 1º/ En un módulo pondría esta función (u otra de las muchas que hay por internet, incluso en esta misma web):...

Eduardo Pérez Fernández respondió: Este es un inventario que mal diseñado ¿Cómo sabe que productos han sido devueltos?. No existe un Kardex que refleje las entradas, ¿salidas y anulaciones? ¿A qué factura de compra o venta pertenecía la anulación y en que fecha?. Etc. Le doy una...

Cambia esta parte de la función: If laFechaIni > laFechaFin Then temp = laFechaIni laFechaIni = laFechaFin laFechaFin = temp ElseIf laFechaIni = laFechaFin Then fncDiferenciaFechas = "1 días" Exit Function End If por esta otra: If laFechaIni =...

Los informes no funcionan igual que los formularios. El código te sirve el mismo (con las adaptaciones necesarias de rutas y nombres de objetos, claro) pero no lo puedes colocar en el evento "al activar registro", sino que tienes que hacerlo en el...

Eduardo Pérez Fernández respondió: Le he preparado este ejemplo con una función, una consulta y un formulario para obtener el IMC. En este tipo de condiciones no se debe utilizar IF ELSE IF recomiendo utilizar la sentencia SELECT CASE. TABLA DE PESOS CONSULTA SOBRE LA TABLA tbl_imc...

Eduardo Pérez Fernández respondió: Debe crear una instancia a la base de datos, 2 formas: 1 . Forma Definiendo un objeto Dim objAdb As Object Set objAdb = CreateObject("Access.Application") objAdb.OpenCurrentDatabase ("D:\Ganaderia\EjeAyudas.accdb") objAdb.DoCmd.OpenForm "frmClientes"...

Private Sub ElegirProveedor_AfterUpdate() DeudaPendiente = DSum("TOTAL", "FACTURA_COMPRAS", "CODIGO_PROVEEDOR=" & Me.ElegirProveedor & "") - Nz(DSum("nz([abono])", "PagosAProveedores", "CodigoProveedor=" & Me.ElegirProveedor & "")) Me.RecordSource =...

Tendrías que hacerlo al revés : Tipo= DLookup ("Tipo","TIndice", "ValorMinimo<" & CalcularRatio(PrecioActual ()) & " And ValorMaximo >" & CalcularRatio(PrecioActual ()))

¿Por qué no usas una función de dominio (DLast, DLookup, DMax...) en vez de una subconsulta para obtener el dato? Para mí que es mucho más sencillo.

Puedes solucionarlo dando formato a las fechas, por ejemplo formato americano, que es el que mejor entiende: DoCmd.OpenForm "FHD_Contabilidad", acFormDS, , "Fecha_Anotacion Between #" & Format(Me.FECHA_INICIO,"mm/dd/yyyy") & "# AND #" &...

Así se unirían : Me.TotalFacturas = DSum("base", "tblFactura", "Obra=" & Me.BuscarObra & " And Fecha BETWEEN # " & Format(Me.Fecha1, "mm-dd-yyyy") & "# AND #" & Format(Me.Fecha2, "mm-dd-yyyy") & "#")

He aquí una forma: Partiendo de la tabla: Hago una consulta de actualización como ésta: Y al ejecutarla, ya no tengo ceros a la izquierda (pero sí a la derecha donde corresponden): Otra forma sería ejecutar al consulta de actualización, por ejemplo,...

Veamos, en el primer código que pones no hay nada que sirva para habilitar o deshabilitar campos y botones de tus formularios. Supongo que eso lo tienes en el formulario que abres, Frm_INICIO, que no es el que abres con el segundo código (que es...

En la primera imagen es imposible ver nada, pero si haces una consulta con las tablas PELICULAS, ACTORES y Actores_peli, cogiendo los campos que te interesan mostrar, deberías obtener el resultado que buscas. Si ves que no te sale, sube una copia de...