2016-07-12 5 views
0

以前の対応する提案番号を参照として使用できるフィールドを持つ作業用の販売提案アクセスデータベースがあります。そのフィールドの下にあるボタンをクリックすると、その前のレコードに直接移動します。数字A-12345、E-12345の前にプレフィックスがあるか、それとも12345となることがあります。アクセス2013、検索に使用するフィールドから抽出する番号

文字なしで数字だけを取得できるようにする必要があります。正しくおかげ

Here

答えて

0

は、フォームのボタン(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 
+0

ありがとうございます。私はこれを見て、私がどのように実装できるかを見ていきます。あなたの助けに感謝。 – usatraveler

+0

コードに入力ミスをします。 rs.FindFirst "Proposal = '"&outstr& "'"という行はrs.FindFirst "Proposal = '"&strProposal& "'"を読み、コードを編集しました。 – Rene

関連する問題