小编Edm*_*ond的帖子

如果我试图说,我将如何编写IF语句

IF the date today is equal to Monday THEN

    Have Outlook prepare 3 emails

ELSE 

    Have Outlook prepare 2 emails

END IF

我只需要"如果今天的日期等于星期一."

我需要一些代码,当取消选中复选框时,它会更改我的表单的背景颜色,并在选中时将其恢复为原始颜色.我选中的复选框代码当前会在选择值时锁定组合框.以下示例

Private Sub AccessKeyNo_AfterUpdate()
If MsgBox("Do you want to assign Access Key " & Me.AccessKeyNo & "?", _
        vbYesNo) = vbYes Then
    Me.GuestAccessKeyID = Me.AccessKeyNo

    If Me.Dirty Then Me.Dirty = False
    Me.AccessKeyNo.Requery
    Me.AccessKeyNo = Null

    Me.MyCheckBox = IsNull(Me.GuestAccessKeyID)
End If
End Sub