| |
うまく、行ったようでなによりです。
一応、おすすめの方法を提示しておきます。
サービスレポートフォーム の「データ入力用」は「いいえ」にしておきます。
「サービスレポート」コマンドボタンのクリック時のイベントプロシージャは下記のようにします。
Private Sub サービスレポート_Click()
On Error GoTo Err_サービスレポート_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "サービスレポートフォーム"
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd
Exit_サービスレポート_Click:
Exit Sub
Err_サービスレポート_Click:
MsgBox Err.Description
Resume Exit_サービスレポート_Click
End Sub
DoCmd.OpenForm の引数に acFormAdd を追加しただけです。
これで、「サービスレポート」コマンドボタンをクリックすると新規レコード入力状態で開きます。
次に、
抽出用のクエリを開いて、SQLビューにします。
WHERE句の条件式をコピーします。
例えば、
SELECT ・・・・・ FROM ・・・・
WHERE フィールド名 = 値;
となっていたら、フィールド名 = 値 の部分をコピーします。
「抽出」コマンドボタンのクリック次のイベントプロシージャ
Private Sub 抽出_Click()
On Error GoTo Err_サービスレポート_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "サービスレポートフォーム"
stLinkCriteria = "フィールド名 = 値"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_抽出_Click:
Exit Sub
Err_抽出_Click:
MsgBox Err.Description
Resume Exit_抽出_Click
End Sub
stLinkCriteria に先ほどコピーした条件式を代入してます。
これで「抽出」コマンドボタンをクリックすると指定した条件で抽出されて表示されます。
これでうまくいったらクエリはもう不必要なので削除して結構です。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
