[求助]请教一个ACCESS设计方面的问题！详情请入！

pengle520

请看下面一段VBA代码：

Private Sub 日期_AfterUpdate()

Set m = CurrentDb.OpenRecordset("select 日期,型号,正,次,返,优等品,一等品,合格品,单价,当日产值 from scjl")

DoCmd.GoToControl "日期"

Do Until m.EOF

If m.日期 = 日期 Then

型号 = m.型号

正 = m.正

次 = m.次

返 = m.返

优等品 = m.优等品

一等品 = m.一等品

合格品 = m.合格品

单价 = m.单价

当日产值 = m.当日产值

Exit Do

End If

m.MoveNext

Loop

End Sub

我在一个窗体主体中设计了一个组合框控件和其他文本框控件，这段代码就是实现在组合框中选择“日期”字段的记录后，在其它文本框中即显示表中相对应字段的记录的。但这段代码只能实现一一对应，也就是说必须要“日期”这个字段唯一对应一条记录才能正常运行，不能有重复。可是实际上这个字段的内容是有重复的。即在同一“日期”里，“型号”字段内容的不同对应记录的内容也不同，也就是说，只有“日期”和“型号”的组合才能唯一确定一条记录。我的问题如何修改才能实现“日期”和“型号”组合唯一确定一条记录的功能？望热心人给予我答复，不胜感谢！

000618

既是讨论ACCESS设计方面的问题，真得从设计合理性方面入手．在这个时候确定唯一记录就应考虑用合同号，定单号，作业号，流水号之类方式来解决，用日期＋型号的办法似有水来土囤之意，肯定不是上策．

海狸先生

If m.日期 = 日期 and m.型号=型号 Then