MS Access

サブフォームで苦労

投稿日:2007年6月4日 更新日:

Access覚書。

サブフォームつきのフォームからダイアログ・フォームを呼び出す。
ダイアログフォームのリスト形式のレコードをクリックしたら、呼び出し元のフォームのサブフォームに値を追加して、次のための新規レコードも追加する・・・という仕組みを作るのに難航。

以下のようにして解決。

Private Sub Form_Click()
Forms![501業務]![入札].Form.Recordset.AddNew
Forms![501業務]![入札].Form![業者] = ID
End Sub

Recordset.AddNewのところをGoToRecordでやろうとしていたり、
Forms![501業務]![入札].Form![業者].Recordset.AddNew
なんて使い方を間違ったり、
Recordset.MoveNextとかSaveメソッドで何とかならないかとか見当違いをしたり、
していたために苦労した。

-MS Access

執筆者:

関連記事

Access「実行時エラー3061 パラメータが少なすぎます。2を指定してください」で意外な決着

クロス集計クエリをVBAで読むときで、かつパラメータクエリを使う場合には、クエリのパラメータパネルで、別途、パラメータを指定しなくてはならない(VBAで使わないなら不要) 本日のトラブルは、その後、W …

no image

AccessのレポートでNoDataでイベントキャンセル後もReport_Closeが実行されて困った

Accessのレポートで表示するデータがない場合は、以下のように書けばスマートにキャンセルできる。 [sourcecode] Private Sub Report_NoData(Cancel As I …

no image

SqlServerにAccessでいうオートナンバー型をつける

テストデータを作るために、Accessで2万件ほどのデータを用意し、別途追加クエリを作って、ODBC接続したSqlServerに追加しようとしたところ、「型変換エラーがどうのこうので追加出来ない」との …

no image

Access2007でテキストファイルエクスポートしたら1文字ずれる

Access2007で、指定フィールドからLeft関数で10文字とったクエリを作り、固定長でテキストファイルにエクスポートしたら、5000件のデータのうち3件だけが、文字が末尾に1桁多く入り、後ろがず …

no image

Accessのフォームでテキストボックスに入れた値を次回オープン時の既定値として自身に保存するには

ちょっとだけ苦労した。 次回もきっと使うことがあるだろうから、メモメモ。 現在の値を変数に入れておく(これをしておかないと、次の処理でデザインビューに切り替わるために入力した値も消える)。 フォームを …