各位帮我看看我的代码问题出在哪儿啊？

[lijuan1215_2009]

我用了两个Optionbutton 两个不能同时用，选择option1时显示当前时间，选择OPtion2时自定义时间。
Private Sub Send_Click()
If Option1.Value = True And Option2.Value = False Then
myRecord.Fields("SendTime").Value = Time_now.Text '发送时间为当前时间
End If

If Option2.Value = True And Option1.Value = False Then
myRecord.Fields("SendTime").Value = Time_scheduled.Text '自定义发送时间
End If

If Option2.Value = True And CDate(Time_now.Text) > CDate(Time_scheduled.Text) And Option1.Value = False Then
MsgBox "时间输入有误，请重新输入！", vbExclamation, "注意"
Time_scheduled.SetFocus
Exit Sub
End If
End Sub

Private Sub Option1_Click()
Option1.Value = True
Option2.Value = False
Time_now.Text = Format(Now, "YYYY-MM-DD") & " " & Format(Now, "hh:mm:ss")
End Sub

Private Sub Option2_Click()
Option1.Value = False
Option2.Value = True
MsgBox "请输入发送时间！", vbExclamation, "注意"
Time_scheduled.SetFocus
End Sub

[lijuan1215_2009]

补充：我是不是用的不对啊，我选option1时总是出"请输入发送时间！"的对话框

[帝企鹅已被占用]

好多是重复的

[帝企鹅已被占用]

Time_now 和 time_schedule是什么？

[lijuan1215_2009]

对，很多重复的，刚开始没有重复，我以为条件不对，改了半天还不行。这两个是两个TEXT，一个是当前时间，一个是自定义的时间

[帝企鹅已被占用]

用textbox代表datetime不太好。

[帝企鹅已被占用]

硬要用的话，试试datediff