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

執筆者:

関連記事

no image

AccessのDoCmd.OpenForm acPreviewでデータが表示されない

なぜか、フォームに新規データを入力し、印刷プレビュー(DoCmd.OpenForm “見積請求書F”, acPreview)した際に、それまで入力したデータが消えたようになる。 …

no image

AccessでIN演算子をクエリの抽出条件に使うのに苦労

やりたいこと: 非連結のチェックボックスでレコードを選択する – hatena chips ・・・のようなこと。 ・フォームのテキストボックスに、’354942-0007474 …

no image

Accessでのキーワード検索(フィルタ)とブックマークの関係備忘録

Accessでのキーワード検索(フィルタ)とブックマークの関係を作るのに苦労したのでここに備忘録。 ポイントは、検索ではなくフィルタを使うことと、BookmarkではなくIDをグローバル変数に保存して …

no image

AccessからVBAでブラウザの入力フォームに値をセットする

ExcelWebAddin でWebフォームを自動入力 – Home and Abroad CliborのマクロをPythonの正規表現を使ってフォームに値をセットする – Home and Abro …

no image

Accessでメッセージ内容が無い(のっぺらぼう、OKボタンのみ)エラーメッセージがでる

自分作のモジュールの記述で、以下のように書いている箇所があって、 [code] If rs.EOF = True Then GoTo Err_chkFukuyamaVcr ‘error E …