は、フォームのボタン(I」のOn_Clickイベントにこのコードを入れて、あなたは列の提案とリファレンスとコントロールtxtReferenceとtxtProposalを持つ単一のフォームを持つテーブルを持っていると仮定すると、私の画面の画像です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
ありがとうございます。私はこれを見て、私がどのように実装できるかを見ていきます。あなたの助けに感謝。 – usatraveler
コードに入力ミスをします。 rs.FindFirst "Proposal = '"&outstr& "'"という行はrs.FindFirst "Proposal = '"&strProposal& "'"を読み、コードを編集しました。 – Rene