Private Sub rbt_DblClick(Cancel As Integer)
datePicker Me.ActiveControl.name
End Sub
Private Sub datePicker(controlName As String)
tarih_temp.Visible = True
Me.tarih_temp.Move Me(controlName).Left, Me(controlName).Top
tarih_temp.InputMask = ""
tarih_temp.SetFocus
DoCmd.RunCommand acCmdShowDatePicker
tarih_temp.InputMask = "00,00,0000;0;_"
Me(controlName).SetFocus
tarih_temp.Visible = False
End Sub| Bu Konudaki Yorumlar |
|
Docmd.runcommand Accmdshowdatepicker - Yazar: accessman - 28/04/2020, 08:19
RE: Docmd.runcommand Accmdshowdatepicker - Yazar: ozanakkaya - 28/04/2020, 11:27
RE: Docmd.runcommand Accmdshowdatepicker - Yazar: accessman - 28/04/2020, 12:39
RE: Docmd.runcommand Accmdshowdatepicker - Yazar: ozanakkaya - 28/04/2020, 13:02
Re: Docmd.runcommand Accmdshowdatepicker - Yazar: accessman - 28/04/2020, 13:22
RE: Docmd.runcommand Accmdshowdatepicker - Yazar: ozanakkaya - 28/04/2020, 16:02
RE: Docmd.runcommand Accmdshowdatepicker - Yazar: accessman - 28/04/2020, 16:15
|
