[ Φόρμες ] ΟΡΙΣΜΟΣ ΤΙΜΗΣ

[kapetang]

Καλημέρα

Στην συνημμένη ΒΔ το ζητούμενο υλοποιείται, χωρίς να είναι ανοιχτή η φόρμα «ΟΡΙΣΜΟΣ ΤΙΜΗΣ».

Για την υλοποίηση χρησιμοποιείται ο παρακάτω κώδικας και, όπως φαίνεται σ’ αυτόν, η τελευταία εγγραφή του πίνακα «ΟΡΙΣΜΟΣ ΤΙΜΗΣ».

Private Sub ΤΙΜΗ_AfterUpdate()
    Dim x As Variant
    x = DLast("[ΟΡΙΟ ΤΙΜΗΣ]", "[ΟΡΙΣΜΟΣ ΤΙΜΗΣ]")
    If IsNumeric(x) And IsNumeric(Me.ΤΙΜΗ) Then
        If x < Me.ΤΙΜΗ Then
            Me.[ΠΕΔΙΟ__ΑΠΟΤΕΛΕΣΜΑ_] = DLast("[ΟΡΙΣΜΟΣ ΤΙΜΗΣ]", "[ΟΡΙΣΜΟΣ ΤΙΜΗΣ]")
        Else
            Me.[ΠΕΔΙΟ__ΑΠΟΤΕΛΕΣΜΑ_] = "ΟΚ"
        End If
    End If
End Sub

Η λύση που προτείνω είναι και η τελευταία γιατί, όπως είναι οργανωμένη η βάση σου, δε μπορώ να σκεφτώ άλλη.

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