Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

670 / 9994

←次へ　｜　前へ→


	【12634】メインフォームのキーワードでサブフォームの検索抽出

rinrin - 14/10/31(金) 21:04 -


	引用なし

	パスワード

メインフォームにtxt会社名検索　コマンドボックスを置いて、
そこにキーワードを入力すると、、、
サブフォームのDBから、該当するレコードを抽出できるようなフォームを作ろうと思ってます。

でも
うまくいきません。。。
理由もわかりません。。。

ご指導願います。。。

Private Sub txt会社名検索_AfterUpdate()
　　Call CallPrivate3　　
End Sub

Private Sub CallPrivate3()
　　Dim StrSQL As String
'ｻﾌﾞﾌｫｰﾑのﾚｺｰﾄﾞｾｯﾄのSQL文を代入する
　　Dim MyName As Variant
'ｱｸﾃｨﾌﾞｺﾝﾄﾛｰﾙ名を歳入する変数
　　Dim MyVariable As String
'ﾌｫｰﾑ上で取得した変数名
'DCount関数のﾚｺｰﾄﾞ数を代入する変数
　　
'ｱｸﾃｨﾌﾞなｺﾝﾄﾛｰﾙ名を取得する
　　MyName = Me.ActiveControl.Name
'初期化
　　MyCount = 0
　　
'SQL文の条件句の分岐条件をSELECT CASE文で対応して簡素化する
　　Select Case MyName

　　　　Case "txt会社名検索"
　　　　　　MyVariable = " WHERE 取引先企業.会社名 LIKE '*" & [Forms]![MAIN取引先]![txt会社名検索] & "*' ;"
　　　　　　　　　　
　　　　Case "Cmd解除"
　　　　　　MyVariable = " ;"
　　　　　　
　　End Select
　　
'ｻﾌﾞﾌｫｰﾑのﾚｺｰﾄﾞｿｰｽに代入するSQL文
　　StrSQL = "SELECT * FROM 取引先企業 " & MyVariable
　　
'SQL文をｻﾌﾞﾌｫｰﾑのﾚｺｰﾄﾞｿｰｽに代入する
　　Me.Sub取引先.Form.RecordSource = StrSQL

'ｻﾌﾞﾌｫｰﾑを再表示させる処理
　　Forms![MAIN取引先]![Sub取引先].Form.Requery
　　
End Sub

265 hits

▼

【12634】メインフォームのキーワードでサブフォームの検索抽出 rinrin 14/10/31(金) 21:04