[athigb]

Φιλε Νικο σ'ευχαριστω που προθυμοποιήθηκες
Εχω εναν πινακα οπου υπαρχουν τα εξής
IdCount Αυτοματη αριθμιση ( ο κωδικός εγγραφής)
idPump αριθμός (Φερνω απο αλλον πίνακα την αντλία που καταχωρώ)
Date Date ( ημερομηνία καταχωρησης)
CountBeforeUpd αριθμός ( προηγούμενη μέτρηση)
CountAfterUpd αριθμος ( νέα μέτρηση)

Εκανα τα παρακατω
Private Sub Combo10_AfterUpdate()
Dim fla As Integer
fla = [idCount] - 1
[CounterBeforeUpd] = DLookup("[CounterAfterUpd]", "tblCountPump", "[idCount] = " & fla)
End Sub

Δουλευει μεν, αλλα οταν επιλεγω μετρηση π.χ. απο την αντλια 1, μου φερνει την προηγουμενη μετρηση οποιασδηποτε αντλιας εχω βάλει

το selectcase δεν ξερω πως να το βαλω