[VBA] If Then Else con maschere tabulari in Access

[Kajo_Shyn]

Buongiorno,
vi presento il mio problema:

Ho una maschera tabulare all'interno della quale vengono mostrati 3 campi numerici A, B e C ed una Immagine.

In VBA ho inserito questo codice

Private Sub Form_Load()
    If Me.A < Me.B Then
            Immagine.Visible = True
    End If
End Sub

Il problema è che in ogni caso, sia che A < B sia vero o falso l'immagine è visibile.

Dove sbaglio?

Grazie per l'aiuto

[Grumpy]

Hai specificato per quale condizione l'immagine deve essere visibile, ma questo non implica che altrimenti (ELSE!) l'immagine non sarà visibile.

[Kajo_Shyn]

Dici così?

Private Sub Form_Load()
    If Me.A < Me.B Then
            Immagine.Visible = True
    ElseIf Me.A >= Me.B Then
            Immagine.Visible = False
    End If
End Sub

Perchè non cambia nulla.

Credo di sbagliare qualcosa nell'identificativo del dato della riga della tabella.

[Kajo_Shyn]

Up

[luky1964]

Ciao.
Una domanda:
"come vengono valorizzati i controlli che contengono i valori numerici...?! ...?!"
Non è che sono valorizzati dopo l'evento "load" ?!
Saluti 'toscani'
Luciano.

[gibra]

Originariamente inviato da Kajo_Shyn
Dici così?

Private Sub Form_Load()
    If Me.A < Me.B Then
            Immagine.Visible = True
    ElseIf Me.A >= Me.B Then
            Immagine.Visible = False
    End If
End Sub

Perchè non cambia nulla.

Credo di sbagliare qualcosa nell'identificativo del dato della riga della tabella.

Non so che tipo di oggetto sia una maschera tabulare, quindi non so se Me.A restituisce quello che ti aspetti.

Comunque la cosa da fare è verificare i valori contenuti in Me.A e Me.B al momento del Load.

Non so se in VBA puoi mettere un BreakPoint [F9] sulla riga come si fa in VB6, e poi selezionare 'Me.A' e premere SHIFT+F9 così da ottenere il valore che contiene.


Il codice può essere semplificato e più leggibile, così:

Immagine.Visible = (Me.A < Me.B)

[Kajo_Shyn]

Grazie, proverò così e vi faccio sapere.

Per ora ho risolto aggiungendo un campo "Casella di testo" ed impostando Formattazione Condizionale affinche cambi il colore alla casella in base alla relazione tra A e B,