Θέμα: Ασφάλεια κλειδωμα συγκεκριμενου πεδιου σε 2ουσα φορμα

Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 23-07-17, 10:45
nasos23 Ο χρήστης nasos23 δεν είναι συνδεδεμένος
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
  
Εγγραφή: 14-10-2010
Μηνύματα: 455
Προεπιλογή
Καλημέρα σε όλους.
Φίλε Πάκο δοκίμασε
Κώδικας:
Private Sub Πεδίο_AfterUpdate()
 If IsNull(Me.Πεδίο) Or Me.Πεδίο = "" Then
    Forms.ΚΥΡΙΑ.[2η ουσα].Form.πεδιο.Enabled = True
      Else
    Forms.ΚΥΡΙΑ.[2η ουσα].Form.πεδιο.Enabled = False
   End If
 Me.Refresh
End Sub


Private Sub Πεδίο_GotFocus()
 If IsNull(Me.Πεδίο) Or Me.Πεδίο = "" Then
    Forms.ΚΥΡΙΑ.[2η ουσα].Form.πεδιο.Enabled = True
      Else
    Forms.ΚΥΡΙΑ.[2η ουσα].Form.πεδιο.Enabled = False
   End If
End Sub
Απάντηση με παράθεση