Campo controllato in Maschera inserimento

di
Libertymax
il
3 risposte
L
Libertymax
Pochi posts
Iscritto da
nov, 2018
Messaggi:
9

Campo controllato in Maschera inserimento

Buonasera e buon anno a tutti!

Nello sviluppare un database per la gestione delle prenotazioni di un B&B ho la necessità di inserire un controllo in un campo della maschera di inserimento dei dati in modo che, se quel contenuto esiste già, dia un segnale di alert che poi l'utente possa scegliere di ignorare equindi continuare con l'inserimento dei dati o meno.
Il campo in questione, univoco, è dato dall'indirizzo email del cliente.
Sinceramente non so da dove partire.

Grazie a tutti
Massimo

3 Risposte

  • L
    Libertymax
    Pochi posts
    Iscritto da
    nov, 2018
    Messaggi:
    9

    Re: Campo controllato in Maschera inserimento

    Piccolo passo in avanti...ho creato il campo di controllo calcolato "Controllo" nella tabella Prenotazioni che unisce i campi "email" e "appartamento".
    Poi sulla campo Appartamento della maschera inserisco questa routine "Dopo l'aggiornamento"

    Private Sub Appartamento_AfterUpdate()
    If Not IsNull(DLookup("Controllo", "Prenotazioni", _
    "Controllo = " & Chr$(34) & Me!Controllo & Chr$(34))) Then
    MsgBox("Prenotazione già presente. Scegliere SI per continuare l'inserimento. Scegliere NO per tornare alla maschera.", vbYesNo, "ATTENZIONE") = vbNo Then
    Me.Undo
    DoCmd.GoToRecord , , acNewRec

    End Sub

    Dove sbaglio?

    Grazie
    Massimo
  • L
    Libertymax
    Pochi posts
    Iscritto da
    nov, 2018
    Messaggi:
    9

    Re: Campo controllato in Maschera inserimento

    Correggo il codice scusate...

    Private Sub Appartamento_AfterUpdate()
    If Not IsNull(DLookup("Controllo", "DB MASIN SERVICES", _
    "Controllo = " & Chr$(34) & Me!Controllo & Chr$(34))) Then
    If MsgBox("Prenotazione già presente. Scegliere SI per continuare l'inserimento. Scegliere NO per tornare alla maschera.", vbYesNo, "ATTENZIONE") = vbNo Then
    Me.Undo
    DoCmd.GoToRecord , , acNewRec
    End If
    End Sub

    Dov'è l'errore?

    Grazie
    Massimo
  • L
    Libertymax
    Pochi posts
    Iscritto da
    nov, 2018
    Messaggi:
    9

    Re: Campo controllato in Maschera inserimento

    Risolto!!!!!!

    Grazie lo stesso...
    Massimo
Devi accedere o registrarti per scrivere nel forum
3 risposte