Imprimir página | Cerrar ventana

Doble Ingreso de Registro

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=83996
Fecha de impresión: 22/Mayo/2019 a las 11:52


Tema: Doble Ingreso de Registro
Publicado por: Javier_Flores
Asunto: Doble Ingreso de Registro
Fecha de publicación: 05/Octubre/2018 a las 21:14
Bueno, una breve descripción de donde trabajo:

Fundación Invecc, Laboratorio de Control de Calidad Materiales de Construcción (www.invecc.cl)

Se ha desarrollado módulo de cobro de los distintos servicios (Guía de Prestación de Servicios (GPS))

Base en servidor

El problema: 2 usuarios entran al formulario al mismo tiempo (separación de minutos), de 2 estaciones distintas, una de ellas no pasa del formulario principal (atiende una llamada o hace cualquier cosa...y no continua), pero la 2ª, completa los datos del formulario principal y entra al secundario (formulario principal con sub formulario en formato de grilla, tipo Excel ), donde indica los distintos cobros, y lo completa.

El formulario al abrir se posesiona sobre el campo N° de GPS, el cual tiene una validación 
(=SiInm(EsNulo(DMáx("[N_GPS]","[GPS]")+1),'1',DMáx("[N_GPS]","[GPS]")+1))
aparte que la tabla principal tiene como primary key este campo, sin duplicado

Existe un mecanismo para validar que usuario, no continúe si otro ya ha logrado actualizar el registro???

si pudiesen darme algún ejemplo para estudiar y adecuar a mi realidad, sería genial

 


-------------
Javier Flores

Un Saludo desde Coquimbo, IV Region, Chile



Respuestas:
Publicado por: Mihura
Fecha de publicación: 05/Octubre/2018 a las 21:52
No uses autonuméricos ni falsos autonuméricos. Créate tú tus propios ID's.



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

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: Javier_Flores
Fecha de publicación: 05/Octubre/2018 a las 22:23
Sr. , lo que puse en el mensaje original es el valor predeterminado para cuando se abra el formulario

en el código, puse lo siguiente:

Evento:

Al Salir:    
If Me.NewRecord Then
        If Not IsNull(DLookup("N_GPS", "GPS", "N_GPS= " & Nz(Me.N_GPS, 0))) Then
            MsgBox "Numero Guia Prestación Servicios (G.P.S.) Repetido"
            Cancel = True
        End If
    End If

en resumen, no uso auto numéricos ni falsos auto numéricos, creo los id al tenerlos a la vista (se utilizan formularios para toma de muestras en terreno, con folio impreso y ese valor es el que se ingresa), como decía en mi correo original, la idea es avisar a los usuarios que están trabajando sobre el mismo registro.OuchOuchOuch



-------------
Javier Flores

Un Saludo desde Coquimbo, IV Region, Chile


Publicado por: Javier_Flores
Fecha de publicación: 05/Octubre/2018 a las 22:26
PD: Gracias por responder a mi inquietud Don Mihura

Entre (), no soy programador, solo un usuario avanzado

saludosThumbs UpThumbs UpThumbs UpThumbs Up


-------------
Javier Flores

Un Saludo desde Coquimbo, IV Region, Chile


Publicado por: Mihura
Fecha de publicación: 05/Octubre/2018 a las 23:23
Ahora ya me he perdido ...

A mi, esto:         (=SiInm(EsNulo(DMáx("[N_GPS]","[GPS]")+1),'1',DMáx("[N_GPS]","[GPS]")+1))

me suena a falso autonumérico LOL


Una manera de salvarlo es que cuando entres en el registro lo crees realmente, con lo que el otro usuario tendrá un número distinto, claro que esto tiene el problema de los registros que se creen en blanco porque entran y vuelven a salir.

Otra forma es no crear número hasta justo el momento de guardar el registro.

Pero de todas formas yo usaría un contador propio:
" rel="nofollow - http://www.accessaplicaciones.com/ejemplos.html#rt05 - Crear 'autonuméricos' personales




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

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: Javier_Flores
Fecha de publicación: 08/Octubre/2018 a las 14:52
Gracias por sus comentarios de ayuda, estoy viendo el ejemplo y tratando de acomodarlo a mi realidad

Nuevamente gracias por las molestias tomadas en responder

puede cerrar este hilo

Saludos


-------------
Javier Flores

Un Saludo desde Coquimbo, IV Region, Chile



Imprimir página | Cerrar ventana