If che non funziona in maschera

di Anonimizzato13810 il
7 risposte
Buonasera a tutti, non riesco a capire come mai in un database di access 2007 la seguente istruzione:
Private Sub Testo73_AfterUpdate()
Dim R As VbMsgBoxResult
If Me!Testo73 > Me!nmCirconferenza Then
R = MsgBox("Valore camicia superiore a cilindro")
End If
End Sub

non mi funziona. Ovvero se invece di nmcirconferenza metto un valore 10 la if funziona.
Se invece vado a controllare il valore del campo nmcirconferenza della stessa maschera esce sempre il messaggio MsgBox("Valore camicia superiore a cilindro").
Grazie in anticipo per l'aiuto.

7 Risposte

  • Se non conosciamo i valori di confronto cosa mia possiamo dire?
  • I valori di confronto sono nmcirconferenza e testo73. In debug ho il valore corretto su questi campi ma in esecuzione sembra che non tiene conto del valore inserito nel campo ovvero "If Me!Testo73 > Me!nmCirconferenza"
  • Verifica i DataType dei 2 controlli, magari valorizza 2 variabili Variant con la proprietà Value dei 2 Controlli e fai Debug.
  • Grazie, era proprio un problema di data type. Con l'aggiunta di variabili la if funziona.
  • Le variabili servivano solo per il debug.
    Ora che hai scoperto il problema risolvi lo in modo serio.
  • Posso chiederti un altra cosa?
    Devo stampare un report che arriva da una query. Ma ho bisogno di stampare più report in funzione di un campo contenuto nella query e con un valore diverso per report. come posso fare ciò?
    Grazie dell'aiuto.
  • Argomento diverso 3D diverso, poi si chiede al Forum e non ai singoli.
Devi accedere o registrarti per scrivere nel forum
7 risposte