Gruppo opzioni e msgbox [Risolto]

di
Anonimizzato13002
il
4 risposte
/
Anonimizzato13002
Utente anonimizzato

Gruppo opzioni e msgbox [Risolto]

Ciao a tutti!
in una maschera ho inserito un gruppo opzioni con 9 possibilità di scelta.
Vorrei fare in modo che se nessuno dei pulsanti opzione fosse selezionato quando salvo il record mi si visualizzasse un messaggio di avviso... è un pò che cerco di venirne fuori, ma probabilmente la mia superficiale conoscenza di access mi ha completamente bloccato!
Grazie a chi mi darà una dritta.
Buona serata.
Lucio

4 Risposte

  • O
    OsvaldoLaviosa
    Super Famoso
    Iscritto da
    apr, 2012
    Messaggi:
    7535

    Re: Gruppo opzioni e msgbox [Risolto]

    Non sono molto pratico di gruppo di opzioni, ma provo lo stesso a darti una possibile dritta. Dovresti creare una macro con l'azione FinestraMessaggio. Accanto, nella colonna Condizioni, scrivici dentro una sintassi come questa:
    [CasellaOpzione1] And [CasellaOpzione2] And [CasellaOpzione3] And [CasellaOpzione4] And [CasellaOpzione5] And [CasellaOpzione6] And [CasellaOpzione7] And [CasellaOpzione8] And [CasellaOpzione9] = False
    Devi ricordarti di associare questa macro a un evento maschera a te conveniente, ad es. Dopo aggiornamento.
  • /
    Anonimizzato13002
    Utente anonimizzato

    Re: Gruppo opzioni e msgbox [Risolto]

    Ciao Osvaldo e grazie per la risposta.
    Nel mio peregrinare fra forum, ho trovato un codice che dovrebbe fare al caso mio, ma con probabilità sbaglio nella compilazione e nell'adattarlo, in quanto non funziona.
    Lo inserisco in modo che se qualcuno riesce a capire l'inghippo... 
    Dim spunta as string
Dim conteggio as integer
For conteggio=1 to 9
If Me.Controls("Opzione"& conta).value = true
spunta= "Caricato"
Else
End If
Next conteggio

If spunta ="Caricato" then
Msgbox "Record Caricato"
Else
Msgbox "Attenzione!!! Nessuna Scelta Fatta"
End If
  • M
    marco61
    Pochi posts
    Iscritto da
    set, 2012
    Messaggi:
    45

    Re: Gruppo opzioni e msgbox [Risolto]

    Se non viene selezionata nessuna opzione, il valore della cornice del gruppo di opzioni è null.
    per cui sull'azione salvataggio dei dati prova a fare una cosa del genere 
    if isnull(nomedellacornice.value) then
msgbox "scrivi che non è stato selezionato niente
exit sub
else
end if
  • /
    Anonimizzato13002
    Utente anonimizzato

    Re: Gruppo opzioni e msgbox [Risolto]

    Grazie Marco61: proprio quello che cercavo!

    Lucio
Devi accedere o registrarti per scrivere nel forum
4 risposte