| |
今 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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
