Forum - Φόρμες Ημερομηνία σε φόρμα

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Φόρμες ] Ημερομηνία σε φόρμα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1610-hmerominia-se-forma.html)

Ημερομηνία σε φόρμα

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

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

ευχαριστώ

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

Καλησπέρα

Δημήτρη, στη φόρμα «Φόρμα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

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

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

Καλησπέρα σε όλους!
Αγαπητέ Δημήτρη, πολλοί θα αντιμετωπίσουν πρόβλημα προσπαθώντας να ανοίξουν το
αρχείο σου επειδή το στοιχείο ελέγχου που χρησιμοποιείς αναφέρεται στο 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
που με την κατάλληλη προσαρμογή θα σε βοηθούσε και αυτό.

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

Τάσος

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