|
入力フォーム上でID番号を検索して、そのID番号の入力フォームを表示させたい。
下記はACCESSデータベースを活用したもので問題なく動作しますが、この操作をEXCELのSheet1(A1)にID番号1.2.3・・・をVBAで入力フォーム上で検索してフォーム上でID番号を検索して、そのID番号の入力フォームを表示させるコードがよくわかりません。どのようにすればよいのですか?
初心者で、うまく説明できませんが、ACCESSデータベースではなくEXCELのWorkSheet上で入力フォームを作成して検察→そのID番号の入力フォームへ移動できればよいのです。宜しくお願いします。
Private Sub mnuEdiFind_Click()
Dim IDNo As String
Dim bmark As Variant
Dim ret As Integer
bmark = deMain.rscmdMaster.Bookmark
IDNo = InputBox("ID番号を入力してください", "ID検索")
If IDNo = "" Then
Exit Sub
End If
deMain.rscmdMaster.MoveFirst
deMain.rscmdMaster.Find "ID = " & CLng(IDNo)
If deMain.rscmdMaster.EOF Then
Beep
ret = MsgBox("該当するID番号が見つかりません.", vbOKOnly, "ID検索")
deMain.rscmdMaster.Bookmark = bmark
End If
End Sub
|
|