请教如何在ACCESS中自动出现已录入用户提示[求助]

licunbin

请教各位高手，小弟公司的用户数据是有ACCESS数据库进行管理的，现在有一个问题。我想在录入用户数据的时候，假如这个用户已经存在的话，则在录入时自动出现提示，提示该用户已经存在。现在不知道该如何实现这个功能，请大家赐教啊，解小弟燃眉之急啊！

sepdog

try  following in your form module:
remember add your update rows.

Private Sub orderID_BeforeUpdate(Cancel As Integer)  

    Dim db As Database   
    Dim inputName As Variant
    Dim sqlstr As String
   
    Set db = OpenDatabase("c:\mydatabase.mdb")
    inputName = Me.Name.Value
    if sqlstr <> "SELECT list.name, list.address, list.department,list.salary" FROM

WHERE (((list.name)=inputname));" then
      'update your database action here
     Else
     MsgBox "Name exist already!!"  
   
End Sub