Codice dietro il pulsante di calcolo.

Ben trovati a tutti i ragazzi delle QUARTE.

Questo il codice che si cela dietro il pulsante di calcolo.


Dim messaggio As String
If Me.txt_Base > 0 Then
    If Me.txt_Altezza > 0 Then
            If Me.txt_Lato1 > 0 Then
                If Me.txt_Lato2 > 0 Then
                    If Me.Opzioni_Calcoli = 1 Then
                        Me.txt_Area = (Val(Me.txt_Base) * Val(Me.txt_Altezza)) / 2
                        Me.txt_Perimetro = 0
                   
                    End If
                    If Me.Opzioni_Calcoli = 2 Then
                        Me.txt_Perimetro = Val(Me.txt_Lato1) + Val(Me.txt_Lato2) + Val(Me.txt_Base)
                        Me.txt_Area = 0
                   
                    End If
                    If Me.Opzioni_Calcoli = 3 Then
                         Me.txt_Area = (Val(Me.txt_Base) * Val(Me.txt_Altezza)) / 2
                         Me.txt_Perimetro = Val(Me.txt_Lato1) + Val(Me.txt_Lato2) + Val(Me.txt_Base)
                    End If
                   
                   
                ' in questo braccio sono state digitate le variabili di input
                Else
                    messaggio = MsgBox("La variabile lato2 è obbligatoria. Per favore digitare !!!", vbInformation)
                    DoCmd.GoToControl (Me.txt_Lato2)
                End If
            Else
                messaggio = MsgBox("La variabile lato1 è obbligatoria. Per favore digitare !!!", vbInformation)
                DoCmd.GoToControl (Me.txt_Lato1)
            End If
    Else
        messaggio = MsgBox("La variabile altezza è obbligatoria. Per favore digitare !!!", vbInformation)
        DoCmd.GoToControl (Me.txt_Altezza)
    End If
Else
 
    messaggio = MsgBox("La variabile base è obbligatoria. Per favore digitare !!!", vbInformation)
    DoCmd.GoToControl (Me.txt_Base)
 
End If

Ciao A TUTTI

Prof in gamba