Sveinbjorn El Rojo

Sveinbjorn El Rojo

No responderé preguntas de usuarios que no valoren las respuestas
 1.148K puntos  Galicia, España @sveinbjorn desde - visto

Actividad pública reciente

Ha respondido en

Contar años, meses y días access

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 =...
Ha respondido en y en 2 temas más

Insertar imágenes relacionadas con campos en informes Access 2007

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...
Voto positivo a la respuesta

Cálculo del IMC con condición

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...
Voto positivo a la respuesta

Abrir un Formulario desde otro Programa

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"...
Ha respondido en

Como ordenar de forma ascendente un campo en formulario

Private Sub ElegirProveedor_AfterUpdate() DeudaPendiente = DSum("TOTAL", "FACTURA_COMPRAS", "CODIGO_PROVEEDOR=" & Me.ElegirProveedor & "") - Nz(DSum("nz([abono])", "PagosAProveedores", "CodigoProveedor=" & Me.ElegirProveedor & "")) Me.RecordSource =...
Ha respondido en y en 3 temas más

Sintaxis en un criterio de la función DLookUp usando beetween

Tendrías que hacerlo al revés : Tipo= DLookup ("Tipo","TIndice", "ValorMinimo<" & CalcularRatio(PrecioActual ()) & " And ValorMaximo >" & CalcularRatio(PrecioActual ()))
Ha respondido en y en 3 temas más

Subconsulta anidada en un campo de una consulta que no funciona

¿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.
Ha respondido en

Problemas al buscar registros Access por rango de fechas

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 #" &...
Ha respondido en y en 1 temas más

¿Cómo creo una función dsum de dos criterios, siendo uno entre fechas?

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") & "#")
Ha respondido en

Quitar ceros a la izquierda en access

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,...
Ha respondido en y en 2 temas más

¿Cómo unificar código para deshabilitar y habilitar la tecla shift y restringir campos a usuarios en Access 2016?

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...
Ha respondido en

Cómo resolver relaciones y consultas en Access?

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...
Ha respondido en y en 2 temas más

Agregar múltiples imágenes a un formulario en access

En primer lugar, comentarte que si tienes 10 cuadros de imagen y en algún caso tienes 20 archivos de imagen, vas a tener un problema para mostrarlas todas... Te he preparado un ejemplo con dos posibilidades (yo usé 5 controles de imagen):...
Ha respondido en

Campo calculado no guarda el valor obtenido en el calculo

En el origen de control pon el nombre del campo de la tabla donde quieres que te guarde el cálculo, y haz el cálculo por código, por ejemplo en el evento " después de actualizar " del campo Prueba1_result, poniendo : Me.emp1=me.Prueba1_result *...
Ha respondido en y en 1 temas más

Vba abrir formulario dependiendo de una condición

En el evento "al hacer clic" del campo COLECTIVO pon este código : Select Case me.colectivo Case 1: DoCmd.OpenForm "COLECTIVO 1" Case 2: DoCmd.OpenForm "COLECTIVO 2" Case 3: DoCmd.OpenForm "COLECTIVO 3" End Select Y listo!
Ha respondido en y en 1 temas más

ACCESS Cambiar Mascara de entrada por código

Te digo cómo lo haría yo: Pondría un botón de alternar (aunque lo puedes hacer con un botón normal o una etiqueta), lo llamaré btnAlternar, y en su evento "al hacer click" le pones: If Me.btnAlternar.Caption = "Ver" Then Me.btnAlternar.Caption =...

Experiencia

Desde 2012 trabajando con Access como "hobby"...

Trabajo

  • Ayuntamiento
    Funcionario , 2008 - actualidad

Educación

  • USC
    Lic. en ADE