Se encontraron 1031 coincidencias

por Sveinbjorn
Dom Ene 20, 2019 7:26 pm
Foro: Objetos Access
Tema: Botón Importar archivo Excel a Acces / Reemplazar automáticamente
Respuestas: 5
Vistas: 90

Re: Botón Importar archivo Excel a Acces / Reemplazar automáticamente

Entiendo que los ficheros Excel solo van a tener datos de un cliente. Sobre tu formulario, entiendo esto: 1º/ Antes de importar el excel, en el registro ya existen algunos datos (en la parte de arriba), quedando por rellenar los del cliente que vienen del excel y los de la parte de abajo. 2º/ El for...
por Sveinbjorn
Vie Ene 18, 2019 7:40 pm
Foro: Objetos Access
Tema: Botón Importar archivo Excel a Acces / Reemplazar automáticamente
Respuestas: 5
Vistas: 90

Re: Botón Importar archivo Excel a Acces / Reemplazar automáticamente

A ver, aquí necesitaríamos más información para poder responderte, porque así sin más, te diría que importar un excel a un registro concreto me suena "raro, raro..." Suponiendo que el excel solo contenga una linea de datos, que se han de anexar al registro activo, lo primero que se me ocur...
por Sveinbjorn
Jue Ene 17, 2019 11:38 am
Foro: Objetos Access
Tema: Botón Importar archivo Excel a Acces / Reemplazar automáticamente
Respuestas: 5
Vistas: 90

Re: Botón Importar archivo Excel a Acces / Reemplazar automáticamente

Hola, a ver, te explico opciones que tienes: En cuanto a la primera cuestión: 1º/ cuando usas el asistente para importar, en el último paso te pregunta si quieres guardar los pasos de la importación (tienes que marcar la casilla y luego darle un nombre a esa importación). Luego puedes ejecutar esa i...
por Sveinbjorn
Jue Ene 17, 2019 10:40 am
Foro: Código VBA
Tema: Insertar filas según valor celda y separar texto delimitado por barra
Respuestas: 13
Vistas: 181

Re: Insertar filas según valor celda y separar texto delimitado por barra

Lo único que tienes que hacer es un If..then dentro del bucle For i=0....Next i que compruebe si en el campo estado hay o no más de un valor, por ejemplo así, usando la función InStr(): For i = 0 To UBound(Split(RReplace(rst("REFERENCIA SERVICIOS"), "/"), "/")) If InStr...
por Sveinbjorn
Mié Ene 16, 2019 12:24 pm
Foro: Objetos Access
Tema: [RESUELTA] Imágenes y sus rutas en formularios e informes
Respuestas: 6
Vistas: 81

Re: Imágenes y sus rutas en formularios e informes

Hola, la construcción de los Ifs es un tanto extraña con ese ElseIf, que además, no analiza si hay ruta en el cuadro de texto. Sería mejor que los hicieses así: If Not IsNull(Me.RutaImagen1_i) Then Me.Imagen35.Picture = Me.RutaImagen1_i Else Me.Imagen35.Picture = "" End If
por Sveinbjorn
Mié Ene 16, 2019 8:43 am
Foro: Código VBA
Tema: Insertar filas según valor celda y separar texto delimitado por barra
Respuestas: 13
Vistas: 181

Re: Insertar filas según valor celda y separar texto delimitado por barra

Una cosa, que veo que no se ha modificado en el archivo de ejemplo al incorporar la función de Fayad: Si usas la función en una consulta, en el código del botón tienes que cambiar la tabla que abres en el Recordset por la consulta, es decir, tienes que cambiar esta linea: Set rst = CurrentDb.OpenRec...
por Sveinbjorn
Mar Ene 15, 2019 1:28 pm
Foro: Código VBA
Tema: Insertar filas según valor celda y separar texto delimitado por barra
Respuestas: 13
Vistas: 181

Re: Insertar filas según valor celda y separar texto delimitado por barra

Hola y bienvenido al foro y al apasionante mundo de Access... ;) Con este código (asociado a un botón de un formulario, por ejemplo), lo puedes hacer: Dim rst As DAO.Recordset Dim i As Integer Dim Tabla As Object Const nomTabla As String = "ResultadoMacro" 'Si la tabla existe, la eliminas ...
por Sveinbjorn
Mar Ene 15, 2019 10:33 am
Foro: Objetos Access
Tema: Caption de un objeto que es valor de una tabla
Respuestas: 5
Vistas: 84

Re: Caption de un objeto que es valor de una tabla

Con ese If se comprueba que el recordset tenga registros BOF significa Begin Of File y EOF significa End Of File. Lo que acabo de ver es que te puse mal la comprobación, y debiera ser: If Not (rst.BOF AND rst.EOF) Then , o If Not (rst.BOF = rst.EOF) Then . Por eso no te entra en ese bloque. :oops: O...
por Sveinbjorn
Lun Ene 14, 2019 6:41 pm
Foro: Objetos Access
Tema: [RESUELTA] Imágenes y sus rutas en formularios e informes
Respuestas: 6
Vistas: 81

Re: Imágenes y sus rutas en formularios e informes

Con el código que citas: Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer) If Not IsNull(Me.RutaImagen1) Then Me.Imagen35.Picture = Me.RutaImagen1 Else Me.Imagen35.Picture = "" End If End Sub te comento: RutaImagen1 -> tendrás que cambiarlo por el nombre del cuadro de t...
por Sveinbjorn
Lun Ene 14, 2019 2:14 pm
Foro: Objetos Access
Tema: [RESUELTA] Imágenes y sus rutas en formularios e informes
Respuestas: 6
Vistas: 81

Re: Imágenes y sus rutas en formularios e informes

Por alusiones, empiezo yo a responderte :roll: 1ª duda: En la web de Neckkito tienes varios ejemplos sobre imágenes en formularios en informes , y por la imagen que pones, en mi opinión no has seguido el que más se ajusta a tus necesidades (yo hubiera seguido el ejemplo Imágenes en formulario ) Pero...

Ir a búsqueda avanzada