[ Φόρμες ] Ημερομηνία σε φόρμα

καλησπέρα στο Φόρουμ

πώς μπορώ να έχω ημερομηνία στο πεδίο DateA, αλλάζοντας την ημερομηνία από το στοιχείο ελέγχου.

ευχαριστώ

Δημήτρης Γκίκας

[kapetang]

Καλησπέρα

Δημήτρη, στη φόρμα «Φόρμα2» της επισυναπτόμενης ΒΔ υπάρχει μια υλοποίηση του ζητούμενου.

Η φόρμα περιέχει τα δύο πλαίσια κειμένου (myDateA, myDateB) για την καταχώρηση της ημερομηνίας και ένα χειριστήριο ActiveX (MonthViewA) για την επιλογή της ημερομηνίας.

Στη σχεδίαση το χειριστήριο ορίστηκε μη ορατό (Visible=False).

Μόλις ένα πλαίσιο κειμένου αποκτήσει την εστίαση το χειριστήριο MonthViewA μετακινείται δίπλα του.

Στη συνέχεια κάνοντας κλικ στο MonthViewA αυτό ανοίγει και με την επιλογή μιας ημερομηνίας αυτή καταχωρείται στο διπλανό πλαίσιο κειμένου.

Η παραπάνω λειτουργικότητα οφείλεται στον παρακάτω κώδικα της φόρμας.

Private Sub MonthViewA_Updated(Code As Integer)
    If Me.myDateA.Top = Me.MonthViewA.Top Then
        Me.myDateA = Me.MonthViewA
    Else
        Me.myDateB = Me.MonthViewA
    End If
End Sub

Private Sub myDateA_GotFocus()
    Me.MonthViewA.Move Left:=Me.myDateA.Left + Me.myDateA.Width, _
            Top:=Me.myDateA.Top
End Sub

Private Sub myDateB_GotFocus()
    Me.MonthViewA.Move Left:=Me.myDateB.Left + Me.myDateB.Width, _
            Top:=Me.myDateB.Top
End Sub

Δοκίμασε τη λύση και ενημέρωσε το φόρουμ αν σε κάλυψε.

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

[Tasos]

Καλησπέρα σε όλους!
Αγαπητέ Δημήτρη, πολλοί θα αντιμετωπίσουν πρόβλημα προσπαθώντας να ανοίξουν το
αρχείο σου επειδή το στοιχείο ελέγχου που χρησιμοποιείς αναφέρεται στο MSCOMTCT2.OCX το οποίο δεν υπάρχει ή δεν είναι απαραίτητα καταχωρημένο στο μητρώο των Windows σε κάθε υπολογιστή.


Θα πρέπει στη λειτουργική μονάδα της φόρμας να περάσεις το παρακάτω:

  Private Sub MonthView1_DateDblClick(ByVal DateDblClicked As Date)
      Me.dtDate = DateDblClicked
  End Sub

όπου:

MonthView1 = το όνομα του στοιχείου
και
dtDate = το όνομα του πεδίου με την ημερομηνία.

Έχω ετοιμάσει ένα παράδειγμα εδώ: http://www.ms-office.gr/forum/access....html#post9284
που με την κατάλληλη προσαρμογή θα σε βοηθούσε και αυτό.

Καλή συνέχεια!

Τάσος

αν και με καθυστέρηση ευχαριστώ πολύ
δγ