[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

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

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