日历控件使用代码问题

lbcxueexcel

求助：
access中插入日历控件，想要的效果是：当“客户生日”文本框失去焦点且焦点不在日历控件上时，日历控件不可见。


已编写的代码：
Private Sub Calendar7_Click()
客户生日.Value = Calendar7.Value
邮编.SetFocus   
Me.Calendar7.Visible = False
End Sub

Private Sub form_activate()
Me.Calendar7.Visible = False
End Sub

Private Sub 客户生日_click()
Me.Calendar7.Visible = True
End Sub

Private Sub 客户生日_GotFocus()
Me.Calendar7.Visible = True
End Sub

Private Sub 客户生日_LostFocus()
If IsNull(客户生日.Value) Then
Me.Calendar7.Visible = False
End If
End Sub

以上代码的问题是：当客户生日文本框获得焦点、日历控件可见时，点击日历控件会先执行客户生日_LostFocus()，导致日历控件隐藏并无法点击赋值给文本框。

ps：知道07开始可以直接设置文本框格式属性为日期型带日期控件，这里只想知道插入日历控件要达到想要的效果代码如何写，谢谢。

Renco

换OFFICE2007，这日期选框有自带的，需要用控件

lbcxueexcel

Renco 发表于 2016-7-11 17:26
换OFFICE2007，这日期选框有自带的，需要用控件

请答主看最后一句：
ps：知道07开始可以直接设置文本框格式属性为日期型带日期控件，这里只想知道插入日历控件要达到想要的效果代码如何写，谢谢。

ly

lbcxueexcel 发表于 2016-7-11 17:34
请答主看最后一句：
ps：知道07开始可以直接设置文本框格式属性为日期型带日期控件，这里只想知道插入日 ...

*将日历控件中的数据与“客户生日”绑定
**当需要输入日期时，显示日历控件，所以没有必要用焦点。可以使用双击“客户生日”文本框或增加一个切换按钮控件来显示日历控件。
***用日期控件[更新]事件来获得对文本框的数据更新
****建议上个实例

lbcxueexcel

ly 发表于 2016-7-11 22:43
*将日历控件中的数据与“客户生日”绑定
**当需要输入日期时，显示日历控件，所以没有必要用焦点。可以 ...

感谢！

将日历控件中的数据与“客户生日”绑定，可达到想要的效果，避免了焦点问题。