世知辛さの記録
投稿日：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メソッドで何とかならないかとか見当違いをしたり、
していたために苦労した。
執筆者：admin
関連記事
Accessでフォームフィルタの結果をExcelにエクスポートする
ちょっと、苦労した。 [code] Private Sub cmdDMデータ作成_Click() On Error GoTo Err_cmdDMデータ作成_Click Dim rstf As Stri …
Accessで DoCmd.RunSQL を CurrentDb.Executeにしたら、1秒高速化した
処理が遅いので速くして欲しいとの要望があったので、コードを調査。 DoCmd.RunSQL を CurrentDb.Execute に置き換えると非同期で実行されるとの情報を得たので、試す。 結果、6 …
Accessではクエリの中で同じフィールド名を使えない！ ・・・とずっと思っていた。 なので、テーブルで使っているフィールﾄﾞ名でクエリの結果を出す必要があった際には、クエリを二つ作ってそれぞれ前処理 …
AccessからVBAでブラウザの入力フォームに値をセットする
ExcelWebAddin でWebフォームを自動入力 – Home and Abroad CliborのマクロをPythonの正規表現を使ってフォームに値をセットする – Home and Abro …
Accessでメッセージ内容が無い（のっぺらぼう、OKボタンのみ）エラーメッセージがでる
自分作のモジュールの記述で、以下のように書いている箇所があって、 [code] If rs.EOF = True Then GoTo Err_chkFukuyamaVcr ‘error E …
2026/03/24
2025/11/20
手軽にSpotifyから曲を検索するツールをFirefox拡張機能で作る
2025/08/18
2025/07/07
【重要・ご対応のお願い】Chatwork APIリクエストの仕様変更についてのお知らせ
