日期控件代码出错

ycxchen

在例子中，录入的日期如果结束日期大于开始日期，则下面代码能执行，“结束日期”文本框能获得正确日期，但录入的日期如果结束日期小于开始日期，重新录入，不论是“开始日期”还是“结束日期”获得焦点，总是“开始日期”文本框获得日期值的，也就是说下面代码执行不了，代码有什么不完善？

Private Sub 结束日期_GotFocus()
If NewRecord Then
Me.Calendar6.Tag = "结束日期"
Me.Calendar6.Visible = True
End If
End Sub
另，如果在录入新记录时出错，想将刚录入的记录删除，后重新录入，代码如下，但也不能正确执行。我看代码是没错的。
Private Sub Command21_Click()
On Error GoTo Err_Command21_Click
If NewRecord Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.GoToRecord , , acLast
End If
Exit_Command21_Click:
    Exit Sub
Err_Command21_Click:
    MsgBox Err.Description
    Resume Exit_Command21_Click
   
End Sub
思维乱了，盼指教。

Agent

帮你修改了下.希望能合适你用!

ycxchen

谢谢Agent的热心帮忙！
楼上的小程序是年前写的，近日别人在用时发觉有点问题。昨晚详细看看，发现问题是下面红色语句引发的。当时为什么要加上此语句，自己记不起思路了。

Private Sub 结束日期_AfterUpdate()
If IsNull([开始日期]) Then
   MsgBox "请输入考勤开始日期！", vbExclamation + vbOKOnly, "温馨提示"
    Me.开始日期.SetFocus
     Else
      'DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
      If CVDate([开始日期]) > CVDate([结束日期]) Then
        MsgBox "开始日期不能大于结束日期，请重新确认！", vbExclamation + vbOKOnly, "温馨提示"
         Me.开始日期.SetFocus
           Else
            
             If DCount("*", "年休已满检测") > 0 Then
            MsgBox "已超出年休假限休天数，请重新确认并核对后修改！", vbExclamation + vbOKOnly, "温馨提示"
            DoCmd.GoToRecord , , acLast '回到最后一条记录，以便记录的修改
          Me.结束日期.SetFocus
       End If
     End If
  End If
End Sub

正如ROYCH版主以往所说，编程各有各的习惯，Agent加上了“保存”、“撤消”等按钮，未尝不可。

ycxchen

原因估计是数据保存了，ACCESS就认为不再是新记录了，下面的语句执行不了，
Private Sub Command21_Click()
On Error GoTo Err_Command21_Click
If NewRecord Then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.GoToRecord , , acLast
End If
Exit_Command21_Click:
    Exit Sub

Err_Command21_Click:
    MsgBox Err.Description
    Resume Exit_Command21_Click
   
End Sub

ycxchen

现在想起来了，当时写入DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
目的是运行如下语句：
  If DCount("*", "年休已满检测") > 0 Then
            MsgBox "已超出年休假限休天数，请重新确认并核对后修改！", vbExclamation + vbOKOnly, "温馨提示"
            DoCmd.GoToRecord , , acLast '回到最后一条记录，以便记录的修改
          Me.结束日期.SetFocus
       End If
但不运行DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70语句，
年休已满检测就不能进行，如何解决？