Daha önce tarih atama için aynısı yapılmıştı ordaki kodu kullanabilirsiniz

Form1de metin kutusuna çift tıklayınca zaman seçici açılır
zamanı belirledikten sonra saatin yazılı olduğu metin kutusuna çift tıklanınca veri aktarılır


Eklenecek Modülün kodu

Public txtbox As Access.TextBox

saat24 formuna eklenecek fonksiyon

Function SeciliZaman(Optional Target_Control As Object) As String

      Set txtbox = Target_Control

      DoCmd.OpenForm me.Name '"Saat24"

End Function

saat24 formuna eklenecek Etiket çift tıklama olayı

Private Sub LblSaat_DblClick(Cancel As Integer)

            txtbox.Value = Me.LblSaat.Caption

            DoCmd.SetWarnings False

            DoCmd.Close

           DoCmd.SetWarnings True



End Sub

Bu arada neden İngilizce?