Newsgroup: it.comp.appl.access
Titolo: Opzione  "Non visualizzare più"

Ho realizzato una maschera tipo "About" cioè che viene visualizzata ad
ogni apertura del db
Ho aggiunto un pulsante di opzione "non visualizzare più".
Come faccio (forse con una macro) ad abilitare quel pulsante di
opzione affinchè se c'è la spunta non mi visualizzi più quella
maschera.
Grazie


Il pulsante (o flag) avrà un valore true/false che si rifletterà su di
una tabella. All'avvio fai un controllo sulla tabella: se TRUE ("non
visualizzare più") non apri la maschera.
Ciao.


wrote:

...azz...panico!
Creo una tabella con due campi SI e NO?
Poi nella maschera ci metto il pulsante di opzione che richiama uno
dei due?


Nel form metti una "casella di controllo" (check box) con base dati su
di una tabella con 1 solo campo booleano (TRUE/FALSE).
Quest'ultima sarà la condizione che dovrai verificare.
Se non mastichi un po' di codice, temo di non poterti aiutare.

 - Mostra testo citato -
Sin qui ci sono. Tabella campo unico (si/no) e form con opzione
(origine dati sul quel campo)
Ma non riesco a realizzare il codice per verificare la condizione.
Grazie


Prova questo:
Dim varVeroFalso As Boolean
    varVeroFalso = DLookup("[APRI]", "ABOUT", "")
    If varVeroFalso = True Then
        DoCmd.OpenForm "tuo_form", acNormal ' se il valore è TRUE,
apre la maschera
    End If



Mi ero dimenticato le specifiche per la tabella, così da farti fare
riferimento a nomi campo, tabella, etc.
- tabella "ABOUT"
-- campo "APRI (tipo: true/false)
Sull'evento del primo form che apri (non su quello "about"), devi
mettere questo codice.

 - Mostra testo citato -
C'è qualcosa che non va.
Creata tabella ABOUT, con unico campo APRI formato dati Si/No;
Creato form ABOUT con casella di controllo - origine controllo APRI;
Nel form MENU' all'evento apertura inserito codice:
------------------------
Private Sub Form_Open(Cancel As Integer)
Dim varVeroFalso As Boolean
    varVeroFalso = DLookup("[APRI]", "ABOUT", "")
    If varVeroFalso = True Then
        DoCmd.OpenForm "MENU", acNormal              ' se il valore è
TRUE,apre la maschera
    End If
End Sub
-----------------------
Ma all'apertura del db, se faccio partire in automatico il form MENU
non mi visualizza proprio quello ABOUT.
Dovrebbre invece apparire se non c'è la spunta sul controllo, giusto?
Grazie


Quando il segno di spunta c'è, il valore è TRUE, quindi nel codice che
ti ho scritto ho fatto esattamente il contrario.
Rimedi facilmente sostituendo "TRUE" con "FALSE" nella riga
If varVeroFalso = TRUE Then
      ...............
Se non funzionasse ancora, dopo la riga
        varVeroFalso = DLookup("[APRI]", "ABOUT", "")
aggiungi questa riga
       msgbox (varVeroFalso)
e scrivimi il valore che ti compare.

 - Mostra testo citato -
Mi restituisce valore "Falso", ma continuo a non capire se all'avvio
del db devo far partire il form ABOUT o MENU.
Grazie


All'avvio del DB fai partire il form "MENU", dove l'evento
"su_apertura" invocherà il codice che, dopo verifica, aprirà si/no il
form.
Dai che il più è fatto. Usa un po' la logica: se il controllo sul form
ha il segno di spunta, il valore è TRUE.
Fai così:
If varVeroFalso = FALSE Then
    DoCmd.OpenForm "MENU", acNormal
End If
In questo modo, almeno la prima volta si aprirà il form, salvo poi
spuntarlo (TRUE) e non aprirsi più.

 Creato form ABOUT con casella di controllo - origine controllo APRI;
All'apertura del db devi far partire in automatico la maschera "ABOUT"
dove avrai già inserito nell'evento "Su apertura" il seguente codice:
If Me.APRI = True Then
DoCmd.Close
DoCmd.OpenForm "Clienti"
End If
Ciao Vladimiro.


ops!
Docmd.OpenForm "MENU"
:-)
Vladimiro


Si, grazie lo avevo già notato e corretto.
Ok ora funziona, ovviamente ho cancellato il controllo " msgbox
(varVeroFalso) "
Nel form ABOUT ho inserito un pulsante AVVIA PROGRAMMA quindi si può
aprire il programma senza mettere la spunta per "non visualizzare più"
l'avviso (eventualmene potrei anche metterci il codice sull'evento
"alla chiusura" apri il form MENU.
Se invece l'utente mette la spunta, si apre il programma (ho inserito
il codice che chiude il form ABOUT).
Se tutto è corretto....uauuuu....grazie mille a  voi!!!