コンバンハ。MS-Access2000・Windows98SEです。
レコードの抽出をして、その中で[顧客マスタT]テーブルの
[宛名印刷除外]フィールド(Yes/No型)にチェックが入った顧客はプレビューしない方法を探しています。
ちなみに抽出レコードのみをプレビューするVBAは
~~~~~~~~~~~~~~~~~~~~~~~
Private Sub cmb抽出データを横書印刷プレビュー_Click()
If Me.FilterOn = True Then
DoCmd.OpenReport "R葉書宛名横書印刷",_
acViewPreview, , Me.Filter
End If
End Sub
~~~~~~~~~~~~~~~~~~~~~~~
としています。
何かよい方法はあるのでしょうか?よろしくお願い致します。
Private Sub Form_ApplyFilter
If ApplyType = acShowAllRecords Then
フィルタオプション = 1
ElseIf Filter <> “都道府県 = ‘東京都’” Then
フィルタオプション = Null
End if
End Sub
アクセスVBAの次の2行について教えてください。
よろしくお願いします。
ApplyType = acShowAllRecords
ElseIf Filter <> “都道府県 = ‘東京都’” Then
履歴を取るのに「更新者=使用者」これは、currentuserですよね!
「テーブル全体を履歴に残す」バージョンでテーブルの更新者の規定値にcurrentuser()と入れればできる!と思ったのですが、テーブルではその式は利用できませんでした。モジュールに何か書き込まないとできないのでしょうか?
現在のモジュールは以下の通りです。
Sub History_a()
Dim Ctr As Control
Dim strSQL As String
For Each Ctr In Me.Controls
If Ctr.ControlType = 109 Then
If Ctr.OldValue <> Ctr.Value Then
strSQL = "insert into あ履歴 select * FROM あ " & _
"where 顧客コード = " & Me.顧客コード
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
Exit Sub
End If
End If
Next Ctr
End Sub
ここで作成した使用者を顧客コードをキーに最終更新日の更新者を取り出すという、ややこしくてわけがわからなくなりそうなことも可能でしょうか?
履歴を取るのに「更新者=使用者」これは、currentuserですよね!
「テーブル全体を履歴に残す」バージョンでテーブルの更新者の規定値にcurrentuser()と入れればできる!と思ったのですが、テーブルではその式は利用できませんでした。モジュールに何か書き込まないとできないのでしょうか?
現在のモジュールは以下の通りです。
Sub History_a()
Dim Ctr As Control
Dim strSQL As String
For Each Ctr In Me.Controls
If Ctr.ControlType = 109 Then
If Ctr.OldValue <> Ctr.Value Then
strSQL = "insert into あ履歴 select * FROM あ " & _
"where 顧客コード = " & Me.顧客コード
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
Exit Sub
End If
End If
Next Ctr
End Sub
ここで作成した使用者を顧客コードをキーに最終更新日の更新者を取り出すという、ややこしくてわけがわからなくなりそうなことも可能でしょうか?