Access VBA質問箱 IV

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

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


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

987 / 9994

←次へ　｜　前へ→


	【12310】Re:フォームを開く時のデータ

hatena - 13/4/16(火) 18:24 -


	引用なし

	パスワード

うまく、行ったようでなによりです。

一応、おすすめの方法を提示しておきます。

サービスレポートフォームの「データ入力用」は「いいえ」にしておきます。

「サービスレポート」コマンドボタンのクリック時のイベントプロシージャは下記のようにします。

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 に先ほどコピーした条件式を代入してます。

これで「抽出」コマンドボタンをクリックすると指定した条件で抽出されて表示されます。

これでうまくいったらクエリはもう不必要なので削除して結構です。

658 hits

▼

【12304】フォームを開く時のデータ くやっち 13/4/15(月) 14:04