Kod:
rbt.InputMask = ""
rbt.SetFocus
DoCmd.RunCommand acCmdShowDatePicker <------------------<
rbt.InputMask = "00,00,0000;0;_"
hatası veriyor neden olabilir
rbt.InputMask = ""
rbt.SetFocus
DoCmd.RunCommand acCmdShowDatePicker <------------------<
rbt.InputMask = "00,00,0000;0;_"
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