Forms Ms Access窗体控件基于一天中的时间计算值

我有一个组合框[cboShift]，有两个选项“Daylight”和“午后”。我想根据当前时间自动选择班次

---

因此，如果当前时间是从凌晨2:01到下午4点，那么我需要组合框选择为日光，如果是从下午4:01到凌晨2点，则选择为下午。

这就是您想要做的吗

Function getShift() As String
Dim tm As Date
Dim evstart As Date
Dim evend As Date
Dim retval As String
tm = Format(Now(), "hh AMPM")
evstart = "4:00pm"
evend = "2:00am"
If (tm <= evstart) Then
    If (tm >= evend) Then
        retval = "Daylight"
    Else
    retval = "Afternoon"
    End If
End If
getShift = retval
End Function

函数getShift（）作为字符串 Dim tm作为日期 开始日期 暗淡无光 作为字符串的Dim retval tm=格式（现在为（），“hh-AMPM”） evstart=“下午4:00” evend=“凌晨2:00” 如果（tm=evend），则 retval=“日光” 其他的 retval=“下午” 如果结束 如果结束 getShift=retval 端函数

---

只有当您移动到表单上的新记录时，它才会显示

你的问题到底是什么？是怎么知道现在几点的？或者是如何在组合框中设置所选项目？你忘了问问题了。请你的帖子这样做。是的，它看起来像我所寻找的，但我如何从控件的默认值调用？我试着输入=getShift（），但它什么也没做，它仍然是一个空白，等待我点击它来选择白天或下午。谢谢对于默认值，form=getShift（）应该可以正常工作。只需确保在一个公共模块中声明getShift，而不是表单的后端。Benaiah，是的，我之前尝试过，但它对我不起作用。我去看新唱片，它还是空白的。唯一有效的方法是HansUp值列表方式。。。。。谢谢