请问能不能在窗体输入数据的时候,如果出现重复的数据则自动在该窗体显示重复的内容

smigu

请问能不能在窗体输入数据的时候,如果出现重复的数据则自动在该窗体显示重复的内容,而且还可以修改该内容,如附件所示,
  当在窗体上姓名栏输入姓名时,如果表中已经存在该姓名,则在后面的地址,电话栏显示对应的信息,并且该信息可以修改
如果输入的姓名在表中不存在就可以直接保存,请问这样的功能能不能实现呀?

风中漫步

能实现,帮你顶

smigu

高手,既然能实现,那帮小弟一把吧,怎么弄呀

smigu

非常感谢,正是我想要的结果{:soso_e100:}

Henry D. Sy

1. Private Sub 姓名_AfterUpdate()
   
2.     Dim strName As String
   
3.     Dim Criteria As String
   
4.     Dim intCount As Integer
   
5.     If IsNull(Me.姓名) Then
   
6.         Exit Sub
   
7.     End If
   
8.     strName = Me.姓名
   
9.     Criteria = "姓名='" & strName & "'"
   
10.     intCount = DCount("*", "用户信息", Criteria)
    
11.     If intCount <> 0 Then
    
12.         Me.Undo
    
13.         Me.DataEntry = False
    
14.         Me.姓名.SetFocus
    
15.         DoCmd.FindRecord strName
    
16.     End If
    
17. End Sub
    

复制代码