Casella di controllo che interagisce con Pulsante di Comando

di Anonimizzato11333 il
3 risposte
/
Anonimizzato11333
Utente anonimizzato
Gentili iscritti
Avrei da farvi una domanda:
qual' è il codice che mi permette di attivare un "pulsante comando" utilizzando una "casella di controllo"? Vale a dire se non è spuntato la casella di controllo, il pulsante deve essere inattivo.
Ringraziando anticipatamente, vi porgo distinti saluti.

3 Risposte

  • Super Famoso
    Iscritto da
    apr, 2012
    Messaggi
    7589
    Io ti rispondo con una macro, poi puoi sempre tradurla in Visual Basic.

    1) Apri una nuova macro in visualizzazione struttura e apri la colonna Condizioni
    2) Nel primo rigo, colonna Condizioni scrivi:
    [Maschere]![NomeMaschera]![NomeCasellaControllo]=Vero
    colonna Azioni: ImpostaValore, e sotto
    Elemento: [Maschere]![NomeMaschera]![NomePulsante].[Enabled]
    Espressione: Vero
    3) Nel secondo rigo, colonna Condizioni scrivi tre puntini (...) che significa idem come sopra
    colonna Azioni: ArrestaMacro
    4) Nel terzo rigo, colonna Condizioni scrivi:
    [Maschere]![NomeMaschera]![NomeCasellaControllo]=Falso
    colonna Azioni: ImpostaValore, e sotto
    Elemento: [Maschere]![NomeMaschera]![NomePulsante].[Enabled]
    Espressione: Falso
    5) Salva la macro con nome "AbilitaPulsante"
    6) Vai in visualizzazione struttura maschera e associa all'evento "Su corrente" della maschera la macro AbilitaPulsante. Devi anche associare all'evento "Dopo aggiornamento" della "casella di controllo" la stessa macro, in modo che il pulsante ti si abilita/disabilita anche al cambio di valore quando sei posizionato su un singolo record.

    L'ho testato e funziona.
    P.S.: ti consiglio di cancellare il post "Pulsante du"
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    Propongo questo se ho capito bene...
    
Private Sub Form_Load()
   Me.NomeChek.SetFocus
   Me!nomebutton.Enabled=Me.NomeCheck.Value
End Sub

Private Sub Form_Current()
   Me.NomeChek.SetFocus
   Me!nomebutton.Enabled=Me.NomeCheck.Value
End Sub

Private sub NomeCheck_AfterUpdate()
   Me!nomebutton.Enabled=Me.NomeCheck.Value
End Sub
    Non hai detto come si deve comportare su NUOVO RECORD... nel caso si approccia nell'evento CURRENT usando la Proprerty [NewRecord] per implementare il condizionante....
  • Super Famoso
    Iscritto da
    apr, 2012
    Messaggi
    7589

    @Alex ha scritto:

    Non hai detto come si deve comportare su NUOVO RECORD... nel caso si approccia nell'evento CURRENT usando la Proprerty [NewRecord] per implementare il condizionante....
    In questo caso, suggerisco di impostare un Valore predefinito (Vero o Falso che sia) sulla casella di controllo.
Devi accedere o registrarti per scrivere nel forum
3 risposte