我认为我的问题有点独特。每个人都希望摆脱重复,但另一方面,我想允许出现指定数量的重复项。
我正在创建一个数据库,用于为献血活动保留日期。
我的数据库由
组成此外,每个广告系列都会获得唯一的ID号。问题是,我们每天只能容纳五个广告系列,即:应该允许日期列最多包含五个重复
关于如何实现这一目标的任何想法?
答案 0 :(得分:1)
答案 1 :(得分:0)
这是你需要做的。根据表创建一个新表单。更整洁,也可以捕获您需要的所有信息以及特殊条件,例如您现在拥有的信息。表单可以包含表中存在的所有或部分字段。表单创建后,我们将其称为 frm_EventMgm
您可以创建另一个仪表板/欢迎表单,您可以在其中创建一个TextBox,用于在表格中收集您想要输入的日期( dateEntryTxt )和一个按钮( addNewEntryBtn ),舔将有这个。
Private Sub addNewEntryBtn_Click()
If Not IsDate(Me.dateEntryTxt) Then
MsgBox "Please enter a valid date before you proceed.", _
vbCritical, "Missing Information !"
Exit Sub
End If
If DCount("*", "tbl_EventList", "DateFieldName = " & _
Format(Me.dateEntryTxt, "\#mm\/dd\/yyyy\#")) > 5 Then
MsgBox "The Date you selected has already have 5 bookings. " & _
"So please choose another date and try again.", vbInformation, _
"Cannot Add info. !"
Else
DoCmd.OpenForm "frm_EventMgm", DataMode:=acFormAdd
End If
End Sub
这是解决问题的最佳方式。希望这可以帮助。