Private Sub ΠΛΗΚΤΡΟ_ΟΚ_Click()
'ΕΛΕΓΧΟΣ ΕΙΣΑΓΩΓΗΣ ΔΕΔΟΜΕΝΩΝ ΣΤΟ “ΠΛΑΙΣΙΟ ΧΡΗΣΤΗ”
    		If IsNull(Me.ΠΛΑΙΣΙΟ_ΧΡΗΣΤΗ) Or Me.ΠΛΑΙΣΙΟ_ΧΡΗΣΤΗ = "" Then
    	   MsgBox "ΠΑΡΑΚΑΛΩ, ΕΙΣΑΓΕΤΕ ΤΟ ΟΝΟΜΑ ΧΡΗΣΤΗ.", vbOKOnly, "ΥΠΟΧΡΕΩΤΙΚΟ ΠΕΔΙΟ"
        Me.ΠΛΑΙΣΙΟ_ΧΡΗΣΤΗ.SetFocus
        Exit Sub
    	End If
'ΕΛΕΓΧΟΣ ΕΙΣΑΓΩΓΗΣ ΔΕΔΟΜΕΝΩΝ ΣΤΟ “ΠΛΑΙΣΙΟ ΚΩΔΙΚΟΥ”
    If IsNull(Me.ΠΛΑΙΣΙΟ_ΚΩΔΙΚΟΥ) Or Me.ΠΛΑΙΣΙΟ_ΚΩΔΙΚΟΥ = "" Then
      MsgBox "ΠΑΡΑΚΑΛΩ, ΕΙΣΑΓΕΤΕ ΤΟΝ ΚΩΔΙΚΟ ΠΡΟΣΒΑΣΗΣ.", vbOKOnly, "ΥΠΟΧΡΕΩΤΙΚΟ ΠΕΔΙΟ"
        Me.ΠΛΑΙΣΙΟ_ΚΩΔΙΚΟΥ.SetFocus
        Exit Sub
    End If
    'ΕΛΕΓΧΟΣ ΤΙΜΩΝ ΚΩΔΙΚΟΥ ΠΡΟΣΒΑΣΗΣ ΤΟΥ ΠΙΝΑΚΑ «ΧΡΗΣΤΕΣ» ΓΙΑ ΤΑΙΡΙΑΣΜΑ ΜΕ ΤΙΣ ΤΙΜΕΣ «ΠΛΑΙΣΙΟ ΧΡΗΣΤΗ»
    If Me.ΠΛΑΙΣΙΟ_ΚΩΔΙΚΟΥ.Value = DLookup("ΚΩΔΙΚΟΣ", "ΧΡΗΣΤΕΣ", "[ΚΩΔ_ΧΡΗΣΤΗ]=" & Me.ΠΛΑΙΣΙΟ_ΧΡΗΣΤΗ.Value) Then 
        MyΚΩΔ_ΧΡΗΣΤΗ = Me.ΠΛΑΙΣΙΟ_ΧΡΗΣΤΗ.Value
'ΚΛΕΙΣΙΜΟ ΠΑΡΑΘΥΡΟΥ ΕΙΣΑΓΩΓΗΣ ΚΑΙ ΜΕΤΑΒΑΣΗ ΣΕ ΚΕΝΤΡΙΚΗ ΣΕΛΙΔΑ
        DoCmd.Close acForm, "frmΠΑΡΑΘΥΡΟ ΕΙΣΑΓΩΓΗΣ", acSaveNo
        DoCmd.OpenForm "ΚΕΝΤΡΙΚΗ ΣΕΛΙΔΑ"
    Else
      MsgBox "ΜΗ ΕΓΚΥΡΟΣ ΚΩΔΙΚΟΣ ΠΡΟΣΒΑΣΗΣ! ΠΡΟΣΠΑΘΗΣΤΕ ΞΑΝΑ.", vbOKOnly, "ΜΗ ΕΓΚΥΡΗ ΕΙΣΑΓΩΓΗ!"
        Me.ΠΛΑΙΣΙΟ_ΚΩΔΙΚΟΥ.SetFocus
    End If

End Sub
