ATTIVAZIONE DI UNA MSGBOX AL VERIFICARSI DI UNA CONDIZIONE

Anonimo
2015-02-20T08:46:32+00:00

Buongiorno

mi chiamo Luca e da qualche tempo mi diverto a realizzare un Dbase gestionale che fino ad oggi, e per le finalità per cui è nato, mi funziona correttamente. Voglio precisare che sono alle prime armi con access  e il codice non lo mastico per niente (grazie ad access 2007 e alle creazioni guidate sono riuscito a realizzare un dbase funzionale).

Adesso volevo implementare il mio Dbase con una funzione che mi attivi una Box di messaggio al verificarsi di una o più condizioni. Ho girato un pò in internet ma al momento non sono riuscito a trovare la soluzione, per cui ho deciso di scrivere su questa Community che nel passato, grazie a Mimmo, è riuscita a dare la soluzione ad un problema.

bene adesso vi illustro cosa ho pensato di fare.

Il mio Dbase contiene, tra l'altro, alcune informazioni tra cui ID_Progetto, l'importo del progetto e l'importo delle spese sostenute (vedi Tabella 1); poi ho una seconda tabella dove vengono riportati gli step per richiedere acconto 1, acconto 2, etc. (vedi tabella 2) ed infine ho una query di riepilogo dove, tra l'altro calcolo la % di avanzamento della spesa rispetto all'importo del progetto (vedi tabella query).

Io vorrei realizzare un controllo nella maschera "Tabella query" che in apertura mi faccia comparire un messaggio di avviso (MsgBox) al verificarsi delle seguenti condizioni:

Se la “Percentuale avanzamento” > “30,00%<”60,00” aprire MsgBox con messaggio “PUOI CHIEDERE ACCONTO N. 1”

Se la “Percentuale avanzamento” > “60,00%”<95,00% aprire MsgBox con messaggio “PUOI CHIEDERE ACCONTO N. 2”

Se la “Percentuale avanzamento” > “95,00%”<100,00% aprire MsgBox con messaggio “PUOI CHIEDERE ACCONTO N. 3”

In rete non ho trovato una spiegazione chiara di come applicare o scrivere il codice per raggiungere questo risultato.

Per cui mi rivolgo a quale buona anima che mi aiuti.

Grazie mille

Luca

Microsoft 365 e Office | Access | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti
Risposta accettata dall'autore della domanda
Anonimo
2015-02-20T16:36:14+00:00

Senza urlare, però. Grazie. (TUTTOMAIUSCOLO = Urlare. Che poi si fa anche fatica a leggere.)

Tutto chiaro, ora. Io avevo capito che le percentuali fossero fisse in base all'avanzamento.

Prova così:

Option Compare Database

Option Explicit

Private Sub Form_Current()

Dim intAcc  As Integer

Dim sngAvan As Single

  With Me

    .Visible = True

    sngAvan = .Avanzamento.Value

    If sngAvan > .Acconto3.Value And Not (.ynAcconto3.Value) Then

      intAcc = 3

    ElseIf sngAvan > .Acconto2.Value And Not (.ynAcconto2.Value) Then

      intAcc = 2

    ElseIf sngAvan > .Acconto1.Value And Not (.ynAcconto1.Value) Then

      intAcc = 1

    Else

      intAcc = 0

    End If

    If intAcc Then

      If MsgBox("Vuoi richiedere il " & CStr(intAcc) & "° acconto?" _

              , vbYesNo Or vbQuestion _

              , "Acconto") = vbYes Then

        Select Case intAcc

        Case 1: .ynAcconto1.Value = True

        Case 2: .ynAcconto2.Value = True

        Case 3: .ynAcconto3.Value = True

        Case Else

          ' DO NOTHING

        End Select

        DoCmd.OpenForm FormName:="frmAcconti" _

                     , View:=acNormal _

                     , WhereCondition:="[ID_Progetto]=" & .ID_Progetto

      End If

    End If

  End With

End Sub

La risposta è stata utile?

0 commenti

57 risposte aggiuntive

Ordina per: Meno recente
Più utili Più recente Meno recente
  1. Anonimo
    2015-02-20T16:43:04+00:00

    Scusa Maurizio

    se ho scritto maiuscolo. Non voleva essere uno scritto "urlato"....lungi da me il solo pernsiero di urlare nei tuoi confronti che mi stai dando una mano, sarei un ingrato.

    Adesso provo il nuovo codice e ti dico qualcosa.

    Grazie Maurizio

    Luca

    La risposta è stata utile?

    0 commenti
  2. Anonimo
    2015-02-20T17:11:35+00:00

    Caro Maurizio

    ottimo. Adesso funziona perfettamente fatta eccezione di un errore che mi compare se vado al record 4 (record vuoto). Mi compare un errore del tipo:

    Errore di run-time '94'

    Utilizzo non valido di NULL

    Per il resto è quello che pensavo all'inizio. O meglio è quello che mi è venuto in mente approfittando della tua professionalità. In tutta sincerità da solo non ci sarei mai arrivato. Avreo abbandonato l'idea già al secondo o terzo tentativo.

    Se posso chiedere dove posso trovare una guida "avanzata" di VBA che sia chiara (con molti esempi pratici)

    Grazie di tutto

    Luca

    La risposta è stata utile?

    0 commenti
  3. Anonimo
    2015-02-20T17:33:13+00:00

    Ottimo, luca ambrosini!

    Quell'errore io non lo ottengo. Più tardi darò un'occhiata alla struttura dei dati del tuo esempio. Intanto prova a inserire queste due righe di codice. Quelle in grassetto:

      With Me

    If .NewRecord Then Exit Sub

    If Not .Visible Then .Visible = True

        sngAvan = .Avanzamento.Value

    La seconda sostituisce la precedente ".Visible = True".

    La risposta è stata utile?

    0 commenti
  4. Anonimo
    2015-02-20T19:03:04+00:00

    Va bene Maurizio

    non c'è fretta. Con tutta la calma e quando hai voglia.

    Grazie ancora

    Luca

    La risposta è stata utile?

    0 commenti