Question

拥有一个销售提案访问数据库，其中包含一个字段，您可以将较早的相应提案编号作为参考。如果单击该字段下的按钮，它将直接转到该早期记录。有时我们在A-12345，E-12345号码前面有一个前缀，或者它可能只是12345.

我需要能够抓住没有字母的数字和 - 以使搜索正常工作。感谢

Here是我的屏幕图片

Answer 1

假设您有一个包含Proposal和Reference列的表以及一个包含控件txtReference和txtProposal的表单，请将此代码放入表单按钮的On_Click事件中（我正在使用DAO）：

Dim strProposal As String
Dim i As Integer
Dim rs As DAO.Recordset

If Len(Nz(Me.txtReference, "")) < 1 Then
MsgBox "No reference number entered"
Else
For i = 1 To Len(Me.txtReference)
      If IsNumeric(Mid(Me.txtReference, i, 1)) Then
      strProposal = strProposal & Mid(Me.txtReference, i, 1)
      End If
Next
End If

Set rs = Me.RecordsetClone
rs.MoveFirst
rs.FindFirst "Proposal = '" & StrProposal & "'"
If rs.NoMatch Then
MsgBox "Original proposal not found"
Else
Me.Bookmark = rs.Bookmark
Me.txtProposal.SetFocus
End If

rs.Close
Set rs = Nothing

访问2013，从字段中提取数字以用于搜索

1 个答案: