[kapetang]

Καλημέρα

Αντώνη δες τη ΒΔ που επισυνάπτω.
Αν πληκτρολογήσεις μία τιμή και μετακινηθείς σε άλλο πεδίο, ανάλογα με την τιμή, στο πεδίο ΑΠΟΤΕΛΕΣΜΑ, θα εμφανιστεί το μήνυμα που θέλεις.
Αυτό επιτυγχάνεται με τον παρακάτω κώδικα:

Private Sub ΤΙΜΗ_AfterUpdate()
    If Application.SysCmd(acSysCmdGetObjectState, acForm, "ΟΡΙΣΜΟΣ ΤΙΜΗΣ") = acObjStateOpen Then

        If Forms![ΟΡΙΣΜΟΣ ΤΙΜΗΣ]![ΟΡΙΟ ΤΙΜΗΣ] < Me.ΤΙΜΗ Then
            Me.[ΠΕΔΙΟ__ΑΠΟΤΕΛΕΣΜΑ_] = Forms![ΟΡΙΣΜΟΣ ΤΙΜΗΣ]![ΟΡΙΣΜΟΣ ΤΙΜΗΣ]
        Else
            Me.[ΠΕΔΙΟ__ΑΠΟΤΕΛΕΣΜΑ_] = "ΟΚ"
        End If
    End If
End Sub

Φιλικά/Γιώργος