[kapetang]

Καλησπέρα Ανθή

Υποθέτω ότι το πλαίσιο κειμένου στο οποίο πληκτρολογείται η ημερομηνία λέγεται «fDate».

Αν στη φόρμα προσθέσουμε τον παρακάτω κώδικα,

Private Sub fDate_AfterUpdate()
    If IsDate(Me.fDate) Then
        If Len(Nz(Me.ID)) = 0 Or Len(Me.ID) = 7 Then
            Me.ID = "/" & Format(Me.fDate, "yymmdd")
        ElseIf Len(Me.ID) = 14 Then
            Me.ID = Left(Me.ID, Len(Me.ID) - 6) & Format(Me.fDate, "yymmdd")
        End If
    End If
End Sub

Private Sub ID_GotFocus()
    If Len(Nz(Me.ID)) = 7 Then Me.ID.SelStart = 0
End Sub

θα πετύχουμε τα εξής:

Μόλις βγούμε από το «fDate», αφού πληκτρολογήσουμε ή αλλάξουμε μία ημερομηνία, στο πλαίσιο κειμένου του πρωτεύοντος κελιού «ID»:

• Αν το ID είναι κενό θα προστεθεί η ημερομηνία σε μορφή «/yymmdd».
  
• Αν είναι πλήρως συμπληρωμένο θα αντικατασταθεί το τμήμα της ημερομηνίας με τη νέα.
  
• Αν έχει άλλο περιεχόμενο δε θα γίνει αλλαγή.

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

Υ.Γ Συμφωνώ με τη λογική της επιλογής σου. Το 666 είναι εγγύηση!!!!