Sveinbjorn El Rojo

Sveinbjorn El Rojo

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

Respuestas en VBA

Respuesta en y en 2 temas más a

Vba en registros continuos de Access

Usa el formato condicional del formulario, es más rápido y más sencillo que pelearte con una forma de hacerlo solo con VBA (que por otro lado, si la hay, no la conozco) Un saludo. bit.ly/ForoNkSv
Respuesta en y en 3 temas más a

Crear Variables Recordset en VBA Access

Sin entrar en la conveniencia o no de ese código, la sintaxis que debes usar es ésta: For i = 6 To rstHospCostosFinal.Fields.Count - 1 nombre = rstHospCostosFinal.Fields(i).Name rstHospCostos(nombre) = rstHospCostosFinal(nombre) Next i Un saludo....
Respuesta en y en 3 temas más a

¿Concatenar.si en Access? ¿Concatenar.si en Access? Necesito concatenar según criterios pero son 4 los criterios, con el siInm s

Yo crearía una función en VBA que analice todas las posibilidades y devuelva el texto correspondiente. Por ejemplo (así a lo rápido): Public Sub fncNumGruas(tipo1 as Integer, tipo2 as Integer, tipo3 as Integer, tipo4 As Integer) As String Dim miTexto...
Respuesta en y en 3 temas más a

Filtrar por fecha un campo con Fecha y hora

Aplica la función Format() también al campo de la tabla, para quedarte solo con la parte de fecha: miFiltro = miFiltro & " AND Format([Fecha_Entrega],'dd/mm/yyyy')= #" & Format(vFechaEntrega, "dd/mm/yyyy") & "#" Así te debiera funcionar. Un saludo....
Respuesta en y en 3 temas más a

ERROR DE COMPILACIÓN: Es necesaria una expresión de constante

Aunque opino que no es la mejor forma para filtrar un campo de fecha, prueba a poner así el WHERE (sin las comillas simples, porque supongo que se trata de un campo de fecha y no de texto): "WHERE (((l.FECHA) Like *" & [Forms]![pru]![txt_pru] & "));"...
Respuesta en y en 2 temas más a

Regla de validación para forzar valores alfanuméricos

Con un regla de validación, difícil... con una validación por código, sencillo: Private Sub NombreCampo_AfterUpdate() Dim i As Integer Dim hayNum As Boolean hayNum = False If Nz(Me.NombreCampo, "") = "" Then Exit Sub For i = 1 To Len(Me.NombreCampo)...
Respuesta en y en 1 temas más a

¿Procedimiento para guardar datos en tabla de access?

En Access no existen los procedimientos almacenados, a diferencia de SQLServer. Sí es posible usar desde Access procedimientos almacenados de SQLServer, si los datos que maneja Access los toma de SQLServer (que no es el caso) Sí puedes "sacar" el...
Respuesta en a

Cómo comprobar la existencia de un archivo

Es muy fácil hacerlo usando la función Dir(). Te voy a indicar dos de las muchas formas que se me ocurren. Como punto de partida, pongamos que tienes una tabla con un campo con la ruta, nombre y extensión del archivo (como entiendo que tienes), así:...
Respuesta en y en 1 temas más a

Filtro Múltiple En Cuadro Lista

Con permiso de Jacinto (un saludo), voy a intentar explicarte cómo tienes que usar los operadores lógicos AND y OR para conseguir lo que quieres: En primer lugar, tal como has puesto el WHERE en un primer momento, le estás diciendo que tiene que...
Respuesta en y en 3 temas más a

Incluir un valor calculado por código VBA mediante SQL

La SQL tienes que escribirla así: DoCmd.RunSQL "INSERT INTO Archivo_Muestras (ID_Archivo, ID_Muestra, Fecha_Archivo) VALUES ('" & ID_Archivo & "', form!ID_Muestra, Now())" Un saludo.