Office中国论坛/Access中国论坛

标题: 关于DLOOKUP函数 [打印本页]
作者: renyadong    时间: 2016-12-25 15:49
标题: 关于DLOOKUP函数
本帖最后由 renyadong 于 2016-12-25 15:53 编辑

求助大侠，帮我看看。我想达到的效果就是一输入浇注 炉号，它自动检索，如果有就显示并修改，没有则就显示空白输入数据
作者: Henry D. Sy    时间: 2016-12-25 16:11
什么意思?
作者: renyadong    时间: 2016-12-26 14:12
Henry D. Sy 发表于 2016-12-25 16:11
什么意思?

在窗体中有一个浇注炉号的文本框，在此文本框中输入一个炉号，它自动检索窗体数据源表中有没此炉号的记录，有就显示，没有就新增一条空白记录，待录入数据
作者: Henry D. Sy    时间: 2016-12-26 16:21
renyadong 发表于 2016-12-26 14:12
在窗体中有一个浇注炉号的文本框，在此文本框中输入一个炉号，它自动检索窗体数据源表中有没此炉号的记录 ...
  1. Private Sub C1_Click()

  3.     Dim rs As DAO.Recordset
  4.     Dim strWhat As String


  7.     On Error GoTo C1_Click_Error

  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

  24.     On Error GoTo 0
  25.     Exit Sub

  27. C1_Click_Error:

  29.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
  30. End Sub
复制代码
作者: renyadong    时间: 2016-12-26 16:39
Henry D. Sy 发表于 2016-12-26 16:21

大侠，我是access菜鸟，能否在原文件上帮我修改下。不胜感激！
作者: Henry D. Sy    时间: 2016-12-26 20:13
renyadong 发表于 2016-12-26 16:39
大侠，我是access菜鸟，能否在原文件上帮我修改下。不胜感激！

[attach]60594[/attach]


作者: renyadong    时间: 2016-12-27 09:49
本帖最后由 renyadong 于 2016-12-27 09:59 编辑
Henry D. Sy 发表于 2016-12-26 20:13

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



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3