** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Poner a 0 campo DATOS ADJUNTOS
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoPoner a 0 campo DATOS ADJUNTOS

 Responder Responder
Autor
Mensaje
miki Ver desplegable
Nuevo
Nuevo


Unido: 29/Marzo/2019
Localización: sabadell
Estado: Sin conexión
Puntos: 21
Enlace directo a este mensaje Tema: Poner a 0 campo DATOS ADJUNTOS
    Enviado: 15/Abril/2019 a las 20:18
Tengo un formulario con un "Datos adjuntos" y quiero que cuando le doy al botón "Nuevos Datos", me ponga todos los campos vacíos. Pues bien, no consigo poner null el campo DATOS ADJUNTOS de accés..

Gracias por adelantado
miki
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10939
Enlace directo a este mensaje Enviado: 15/Abril/2019 a las 20:42
No uso los datos adjuntos, ... pero siendo estos un objeto yo probaría con Nothing

Me.CampoAdjunto = Nothing       o      Set Me.Campoadjunto = Nothing


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
miki Ver desplegable
Nuevo
Nuevo


Unido: 29/Marzo/2019
Localización: sabadell
Estado: Sin conexión
Puntos: 21
Enlace directo a este mensaje Enviado: 15/Abril/2019 a las 21:08
Muchas gracias... Mañana lo pruebo y te digo
miki
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 11892
Enlace directo a este mensaje Enviado: 15/Abril/2019 a las 22:35
Hola,

Si el formulario se basa en una tabla, al dar a Nuevo registro, el control de Datos adjuntos debería estar vacío.
He probado un formulario sin origen del registro pero la gestión de datos adjuntos no está habilitada.

¿Tu formulario es independiente?
¿Que código tienes puesto en el botón Nuevos Datos?

En cualquier caso, para vaciar un control de datos adjuntos es necesario recorrer el recordset subyacente. En el fondo un campo Datos Adjuntos es un campo multivalor.

Un código para eliminar los datos adjuntos del registro en pantalla:

Private Sub cmdEliminaAdjuntos_Click()
    Dim rstAdjuntos     As DAO.Recordset
    
    Set rstAdjuntos = Me.Recordset.Fields("CampoAdjuntos").Value
    
    Do Until rstAdjuntos.EOF
        rstAdjuntos.Delete
        rstAdjuntos.MoveNext
    Loop
    
    rstAdjuntos.Close
    Set rstAdjuntos = Nothing
End Sub

Recuerda: los experimentos, con gaseosa

Xavi, un minyó de Terrassa

Mi web
Arriba
miki Ver desplegable
Nuevo
Nuevo


Unido: 29/Marzo/2019
Localización: sabadell
Estado: Sin conexión
Puntos: 21
Enlace directo a este mensaje Enviado: 16/Abril/2019 a las 13:50
Hola Jesus,

Persoda que te molesta pero he probado lo que me has dicho y me pone el mensaje siguiente:

se ha producido el erro 438 en tiempo de ejecuccion
el objeto no admite esta propiedad o metodo.

Seguro que es alguna propiedad como el value de los campos de texto pero no lo encuentro por ningun sitio.

a ver si me puedes hechar una mano,

Muchas gracias por todo,

miki
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 11892
Enlace directo a este mensaje Enviado: 16/Abril/2019 a las 13:58
Efectivamente. Así es porque debe tratarse de forma distinta. Mira mi mensaje.
Xavi, un minyó de Terrassa

Mi web
Arriba
miki Ver desplegable
Nuevo
Nuevo


Unido: 29/Marzo/2019
Localización: sabadell
Estado: Sin conexión
Puntos: 21
Enlace directo a este mensaje Enviado: 16/Abril/2019 a las 16:05
Hola,

No hay manera. He propado poner el codigo de Xavi y lo que me hace es borrar literalmente el archivo. Solo quiero resetearlo, osea que el value = 0, pero claro este objeto no tiene esta propiedad.

He probado incluso de borrar la linea rstAdjuntos.Delete pero entonces no hace nada.

Muchas gracias¡¡
miki
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5110
Enlace directo a este mensaje Enviado: 16/Abril/2019 a las 16:34
Hola!

Aquí tienes todo lo que debes saber sobre los datos adjuntos:

http://neckkito.xyz/nck/index.php/ejemplos/20-especiales/232-destripando-archivos-adjuntos
Un Saludo.
Arriba
miki Ver desplegable
Nuevo
Nuevo


Unido: 29/Marzo/2019
Localización: sabadell
Estado: Sin conexión
Puntos: 21
Enlace directo a este mensaje Enviado: 16/Abril/2019 a las 16:43
Muchas gracias,

Me lo voy a mirar.
miki
Arriba
miki Ver desplegable
Nuevo
Nuevo


Unido: 29/Marzo/2019
Localización: sabadell
Estado: Sin conexión
Puntos: 21
Enlace directo a este mensaje Enviado: 16/Abril/2019 a las 17:16
SOLUCIONADO¡¡

Lo he hecho con esta instruccion tan simple:

 Me.Arxius_Associats.ControlSource = ""

Muchas gracias x todo
miki
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10939
Enlace directo a este mensaje Enviado: 16/Abril/2019 a las 17:54
Mira por dónde, hoy ya aprendimos algo nuevo  ...  LOL
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
emiliove Ver desplegable
Moderador
Moderador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 4923
Enlace directo a este mensaje Enviado: 22/Abril/2019 a las 16:34
Otra forma:


DELETE MyAttachments.Value
FROM Nombretabla

Observen que tiene que llevar por fuerza el .Value

Saludos.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable