| |
メインフォームに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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
