şimdilik şöyle geçici çözüm buldum
Kod:
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