Access VBA質問箱 IV

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

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


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

837 / 9994

←次へ　｜　前へ→


	【12464】Access2010で抽出プログラムの構築

rinrin - 14/1/18(土) 9:29 -


	引用なし

	パスワード

今　Access2010でデータ抽出プログラムを構築しようとしてます。。。

Mainフォームにサブフォームを組み込んで街頭レコードを抽出できるものを構築しようとしてます。。。。。。。
データの抽出ができません。。。。。。。。。。；；

今までXPでAccessをやってました。。。
でも
今回からAccess2010でやってます。。。。。。。
ハッキリ言ってとても難しいです。。。。；；

ご指導お願いします。。。。。。。。。＾＾
　　Dim stCri As String
　　Dim MyPublic As String
　　Dim MyPublic2 As String
　　
Private Sub CmdCancel_Click()
　　Me.購買依頼番号.Value = ""
　　Me.購買発注番号.Value = ""
　　Me.受入番号.Value = ""
　　Me.整理番号.Value = ""
　　Me.見積番号.Value = ""
　　Me.原価センタ.Value = ""
　　Me.会社名.Value = ""
　　Me.担当者名.Value = ""
　　Me.年度 = ""
　　
　　Forms![Main購買実績]![購買実績一覧].SetFocus
　　Me.[購買実績一覧].Form.Filter = stCri
End Sub

Private Sub 会社名_AfterUpdate()
　　MyPublic2 = Me.会社名.Value
　　Call Call呼出
End Sub

Private Sub 見積番号_AfterUpdate()
　　MyPublic2 = Me.見積番号.Value
　　Call Call呼出
End Sub

Private Sub 原価センタ_AfterUpdate()
　　MyPublic2 = Me.原価センタ.Value
　　Call Call呼出
End Sub

Private Sub 購買依頼番号_AfterUpdate()
　　MyPublic2 = Me.購買依頼番号.Value
　　Call Call呼出
End Sub

Public Sub Call呼出()
　　On Error Resume Next
　　Dim Ctl As Variant
　　Dim stCri As String
　　
'パブリック変数に選択したコンボBOXの名前を取得
　　MyPublic = Me.ActiveControl.Name
　　
'このフォーム内のすべてのコントロールを検索
　　For Each Ctl In Me.Controls
　　With Ctl
　　　　If .ControlType = acComboBox And Ctl.Name <> MyPublic Then
'コントロールの種類がテキストボックスなら値をNULL（空）に設定
　　　　.Value = Null
　　　　End If
　　End With
　　Next Ctl
　　
　　stCri = "" & "='" & MyPublic2 & "'"
　　Mypublic3 = " WHERE " & "='" & MyPublic2 & "'"
　　
　　Me.購買実績一覧.Form.Filter = stCri
　　Me.購買実績一覧.Form.FilterOn = True
End Sub

Public Sub Call2()
　　Dim Ctl As Variant
　　
　　For Each Ctl In Me.Controls
　　With Ctl
　　　　If .ControlType = acComboBox Then
'コントロールの種類がテキストボックスなら値をNull（空）に設定
　　　　　　.Value = Null
　　　　End If
　　End With
　　Next Ctl
End Sub

Private Sub 購買発注番号_AfterUpdate()
　　MyPublic2 = Me.購買発注番号.Value
　　Call Call呼出
End Sub

Private Sub 受入番号_AfterUpdate()
　　MyPublic2 = Me.受入番号.Value
　　Call Call呼出
End Sub

Private Sub 整理番号_AfterUpdate()
　　MyPublic2 = Me.整理番号.Value
　　Call Call呼出
End Sub

Private Sub 担当者名_AfterUpdate()
　　MyPublic2 = Me.担当者名.Value
　　Call Call呼出
End Sub

Private Sub 年度_AfterUpdate()
　　MyPublic2 = Me.年度.Value
　　Call Call呼出
End Sub

366 hits

▼

【12464】Access2010で抽出プログラムの構築 rinrin 14/1/18(土) 9:29