[ασχετος]

Νίκο μήπως σου κάνει αυτό;

Με την προϋπόθεση ότι το πεδίο 'Κατηγορία' έχει τιμή Ε=Null
τότε στα αντίστοιχα συμβάντα βάλε αυτόν τον κώδικα

Private Sub Form_Load()
    Me.Χρήματα.Enabled = False
    Me.Χρήματα.Locked = True
End Sub

Private Sub Κατηγορία_AfterUpdate()
    
    If Me.Κατηγορία = "E" Then
        Me.Χρήματα = ""
        Me.Χρήματα.Enabled = True
        Me.Χρήματα.Locked = False
        Exit Sub
    Else
        Me.Χρήματα = Me.Κατηγορία.Column(1)
        Me.Χρήματα.Enabled = False
        Me.Χρήματα.Locked = True
    End If

End Sub

Private Sub Χρήματα_AfterUpdate()
        Me.Χρήματα.Enabled = False
        Me.Χρήματα.Locked = True
End Sub