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 fonksiyonFunction 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?