Caption Title μέσω IF

[alex]

Γιώργο καλημέρα!!!

Επειδή σε διόρθωση προηγούμενης βάσης σου είδα ότι ασχολείσαι με τα της διαιτολογίας λαμβάνω το θάρρος να συμπληρώσω και εγώ κάτι σχετικό με αυτό που ζητάς.
Βλέποντας τις τιμές σαν αυτές που βάζεις στο παράδειγμα, που είναι TradeMark στη διαιτολογία σχετικά με το βάρος του ανθρώπου και επειδή είχα ξεκινήσει να κάνω κάτι σχετικό και το παράτησα σου στέλνω πως γίνεται ο υπολογισμός αν είναι αυτό που ζητάς

Ρίξε μια ματιά στο κώδικα

Αν και δεν έχω ασχοληθεί και πολύ με το αντικείμενο

Private Sub Calculate_Click()
    Me.indeks.Visible = True
    Me.boy2 = Me.boy
    Me.boykare = ([boy] * [boy2])
    Me.indeks = ([kilo] / [boykare])
    Me.Form.Requery
    If Me.indeks > 0 And Me.indeks < 18.4 Then
        Me.Info = "επικίνδυνα χαμηλό σωματικό βάρος"
    Else
        If Me.indeks >= 18.5 And Me.indeks < 24.9 Then
            Me.Info = "Κανονικό Βάρος" 
        Else
            If Me.indeks >= 25 And Me.indeks < 29.9 Then
                Me.Info = "Υγιές Βάρος" 
            Else
                If Me.indeks >= 30 And Me.indeks < 34.9 Then
                    Me.Info = "Παχύσαρκος Τύπου Α"
                Else
                    If Me.indeks >= 35 And Me.indeks < 44.9 Then
                        Me.Info = "Παχύσαρκος Τύπου Β",
                    Else
                        If Me.indeks >= 45 Then
                            Me.Info = "Νοσογόνο Παχυσαρκία"
                        End If
                    End If
                End If
            End If
        End If
    End If
    Me.Form.Requery
End Sub