Sveinbjorn El Rojo

Sveinbjorn El Rojo

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

Actividad pública reciente

Ha respondido en y en 1 temas más

¿Error Código porque no funciona?

Yo pasaría el foco previamente a otro control, antes de devolverlo a Asunto, por ejemplo: Private Sub Asunto_LostFocus() If Len(Me.Asunto) < 5 Or IsNull(Me.Asunto) Then MsgBox "Por favor...Verifique los datos ingresados en el Asunto!!!", vbCritical,...
Ha respondido en

Desde un cuadro combinado, al elegir un dato, que automáticamente cargue datos asociados en cuadros de textos diferentes

Lo puedes hacer de varias formas: a) Usando la función DLookUp() para buscar los datos en la tabla a partir del valor seleccionado en el cuadro combinado b) Usando la propiedad Column del cuadro combinado, siempre que cargues en el mismo todos los...
Ha respondido en

Access INSERT INTO el objeto no admite esta propiedad o metodo

En tu pregunta falta mucha información por dar para poder responderte: 1º/ el error 438 ¿Cuál es (nadie se sabe las descripciones de todos los números de error)? ¿Puede ser "el objeto no admite la propiedad o método"? 2º/ ¿Qué es UserActivo, una...
Ha respondido en

Como abrir excel desde Access con variables

Abrirlo usando variables no es difícil, solo has de tener cuidado con la sintaxis. Te pongo un par de ejemplos: 1º/ Tienes la ruta en una variable: Dim abrir As Long Dim miRuta as String miRuta="C:\IMPRIMIR2.xls" abrir = Shell("excel.exe " & miRuta,...
Ha respondido en y en 1 temas más

Buscar dato de una tabla distinta con Dlookup

Tienes mal las comillas. Hazlo así: Me.equipo = DLookup("[nombreequipo]", "Datos", "[identificacion]='" & Me.Textobuscar & "'") Un saludo. bit.ly/ForoNkSv
Ha respondido en y en 1 temas más

Como evitar en un lista al clicar doble Click salga error 13

Para casos así están los controles de errores. En tu código, añade, como primera línea (debajo del Private/Public Sub...) un "On Error GoTo sol_err", y al final, todas estas: Salida: Exit Sub sol_err: If Err.Number=13 Then MsgBox "No es correcto,...
Ha respondido en

Consulta access trimestre según temporada (invierno primavera...)

Muy fácil, te creas una función que te de la estación a que corresponde una fecha y la usas en la consulta. Un ejemplo podría ser éste: Public Function fncEstacion(unaFecha As Date) As String Select Case unaFecha Case DateSerial(Year(unaFecha), 3,...
Ha respondido en

Error al inserta fecha en Bd

Como poco te faltan unas comillas dobles entre la primera # y el primer & y algún espacio para separar cosas: currentdb.execute "insert into cliente(fecha) values(#" & format(me.txtfecha,"dd/mm/yyyy") & "#)" Además, yo le daría formato americano y no...
Ha respondido en y en 2 temas más

Como hacer para que al exportar un informe de ACCESS me pregunte donde lo quiero guardar con la venta de windows.

Simplemente quita la ruta de destino de la instrucción y el sólo te preguntará dónde guardarlo y con qué nombre: DoCmd. OutputTo acOutputReport, "NombreInforme", acFormatPDF,, False Además, si le añades un control de errores, puedes evitar que te...
Ha respondido en y en 2 temas más

Convertir Fechas en trimetes+Año Access

La función DatePart() te da la opción de sacar el trimestre de una fecha y también el año: https://support.office.com/es-es/article/parcfecha-funci%C3%B3n-datepart-26868a79-5505-4e5a-8905-6001372223fa Solo has de usar el valor adecuado en el primer...
Ha respondido en y en 1 temas más

Buscar una dato y asignarlo a un cuadro de texto access

No me queda claro qué es lo que quieres hacer, por lo que te doy indicaciones "en general"... .- Si quieres pasar los datos encontrados a varios cuadros de texto de tu formulario (llamados txtxArea, txtEquipo..), tienes que quitar la línea del MsgBox...
Ha respondido en

¿Cómo hacer una consulta en access que me muestre solo los tuplas que tengan una diferencia de Fechas mayor a 1?

Prueba así : SELECT Automoviles.Marca, Automoviles.Modelo, Automoviles.Color,DateDiff("d",Reservas.Fecha_inicio,Reservas.Fecha_termino) as Dias FROM Automoviles INNER JOIN Reservas ON Automoviles.Matricula=Reservas.Matricula WHERE...
Ha respondido en y en 2 temas más

Módulo para cambiar el título de una base de datos

Quita esta línea, que no pinta nada: Const DBText As Long = 20 Ya verás como no te da problemas. Yo uso esa misma función, y nunca me dio error, y la única diferencia es esa línea que tienes "de más". Un saludo. bit.ly/ForoNkSv
Ha respondido en

Cuadro combinado que se actualize en un formulario Access 2010

Me he liado un poco con el planteamiento de tu pregunta, pero creo entender que el problema está en que el cuadro combinado de observadores solo te deja elegir un valor que existe previamente en la tabla Observadores, ¿no? Si eso es así, es porque en...
Ha respondido en y en 1 temas más

¿Como puedo convertir números a texto en todos los datos de una columna, de una tabla de access, utilizando código visual Basic?

En la consulta, puedes usar las funciones de conversión de tipo de datos (https://support.office.com/es-es/article/funciones-de-conversi%C3%B3n-de-tipo-8ebb0e94-2d43-4975-bb13-87ac8d1a2202 ). En tu caso necesitas, en la consulta a exportar, usar...
Ha respondido en y en 1 temas más

Mensaje de alerta si no se ha clicado un botón

La forma más sencilla que se me ocurre: 1º/ En un módulo independiente (crea uno si no tienes ninguno en tu BD) creas una variable pública: Public yaPulsado As Boolean 2º/ En tu formulario, en el evento "Al activar registro" pones: yaPulsado=True 3º/...

Experiencia

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

Trabajo

  • Ayuntamiento
    Funcionario , 2008 - actualidad

Educación

  • USC
    Lic. en ADE