关于DLOOKUP函数

renyadong

求助大侠，帮我看看。我想达到的效果就是一输入浇注 炉号，它自动检索，如果有就显示并修改，没有则就显示空白输入数据

Henry D. Sy

什么意思?

renyadong

Henry D. Sy 发表于 2016-12-25 16:11
什么意思?

在窗体中有一个浇注炉号的文本框，在此文本框中输入一个炉号，它自动检索窗体数据源表中有没此炉号的记录，有就显示，没有就新增一条空白记录，待录入数据

Henry D. Sy

renyadong 发表于 2016-12-26 14:12
在窗体中有一个浇注炉号的文本框，在此文本框中输入一个炉号，它自动检索窗体数据源表中有没此炉号的记录 ...

1. Private Sub C1_Click()
   
2. 
   
3.     Dim rs As DAO.Recordset
   
4.     Dim strWhat As String
   
5. 
   
6. 
   
7.     On Error GoTo C1_Click_Error
   
8. 
   
9.     If IsNull(Me.T1) Then
   
10.         Exit Sub
    
11.     Else
    
12.         strWhat = Me.T1
    
13.     End If
    
14.     Set rs = Me.RecordsetClone
    
15.     rs.FindFirst "浇注炉号='" & strWhat & "'"
    
16.     If Not rs.NoMatch Then
    
17.         Me.Bookmark = rs.Bookmark
    
18.     Else
    
19.         DoCmd.GoToRecord , , acNewRec
    
20.     End If
    
21.     rs.Close
    
22.     Set rs = Nothing
    
23. 
    
24.     On Error GoTo 0
    
25.     Exit Sub
    
26. 
    
27. C1_Click_Error:
    
28. 
    
29.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
30. End Sub
    

复制代码

renyadong

Henry D. Sy 发表于 2016-12-26 16:21

大侠，我是access菜鸟，能否在原文件上帮我修改下。不胜感激！

Henry D. Sy

renyadong 发表于 2016-12-26 16:39
大侠，我是access菜鸟，能否在原文件上帮我修改下。不胜感激！

renyadong

Henry D. Sy 发表于 2016-12-26 20:13

谢谢大侠，是我说的那个意思！真是太感谢了！