请教，如何避免重复输入。

lts8823

比如一个销量表，当销售日期和商店名称同时和已经输入过的记录有重复的情况下提示有重复的输入发生。谢谢！！

wuaza

把销售日期和商店设为双主键。

gaoqiwen

将销售日期和商店名称同时设为主键试试！

呀！ 迟了点!

[此贴子已经被作者于2005-11-8 12:49:08编辑过]

lts8823

谢谢楼上两位！港试过了，问题没有搞定。

cnhbjm

用DAO，从下往上搜索N条，有重复报警，取消。

cnhbjm

这是我的实用例子，不知能否用。Private Sub 机号_LostFocus()

    On Error GoTo err_md

    Dim rec As DAO.Recordset

    Set rec = CurrentDb.OpenRecordset("tabl加油站流水表", dbOpenDynaset)

     rec.MoveLast

     For i = 0 To 20

     

   

        If rec("日期") = Me.日期 And rec("班次") = Me.班次 And rec("机号") = Me.机号 Then            MsgBox "这条记录已经输入了,输下一条记录", vbOKOnly + vbExclamation, "电脑提醒你!"

            Me.日期.SetFocus

            Exit Sub

        Else

            rec.MovePrevious

        End If

    Next i

exit_md:

    Exit Sub

err_md:

       Resume exit_mdEnd Sub

lts8823

谢谢楼上的朋友！小弟初学楼上的代码实在折腾不明白，我的文件在这里能请朋友们给改一下吗？谢谢！！

[em04]

cnhbjm

fuyvn

用宏  和  Dlookup()