Access97で下記のような入力フォームを作成しました。
【1】「ファイルを参照」ボタンをクリック
【2】ダイアログボックスが開くので、目的のファイルを選択する。
【3】サブフォーム(表形式)の1件目に、そのファイルのフルパスが格納される。
この直後に【2】の操作によって2つ目のファイルを選択すると、
やはりサブフォームの1件目にファイルのフルパスが格納されてしまい、
最初に選んだファイルのパスが上書きされてしまいます。
ここで上書きせずに、次のレコードへ移動してからファイルパスを書きこむ
ロジックを書きたいのですが、VBA初心者なのでどうしたら良いのかわかりません。
ご教授を願います。
No.3ベストアンサー
- 回答日時:
Docmd.GoToControl "サブフォームの名前"
Docmd.GotoRecord , , acNewRec
docmd.GotoControl "書込み先コントロールの名前"
Screen.ActiveControl = "ファイルのパス"
といった形でどうでしょうか?
もちろん下の2行は
Forms!Main.Sub!Control = xxxx
の形で1行にしても問題ないかと思います。
No.2
- 回答日時:
フォームがどの様になっていて、何がしたいかわからないので
的外れな事かもしれませんが、、、
表形式のサブフォームはどこかしらのテーブルとつながって
いるんですよね?つながっているならテーブルに直接
データを入れてしまえば良いのでは、、、?それではダメですか?
余計なおせっかいですが、サブフォームではなくてリストボックス
の方が良さそうなイメージ?
No.1
- 回答日時:
DAOを使用したサンプルを記述します
(参照設定にて「Microsoft DAO Object Library」をチェックして下さい)
'~~~~~~~~~~
Private Sub CmdFilePath_Click()
Dim stPathName As String
Dim RS As DAO.Recordset
'ファイル名取得
stPathName = Get_FullPathName
'取得できなかったら、処理終了
If stPathName = "" Then Exit Sub
'サブフォームのレコードセットクローン
Set RS = Me.SubForm.Form.RecordsetClone
'新規追加
RS.AddNew
RS![PathName] = stPathName
RS.Update
'レコードセット解放
Set RS = Nothing
'表示更新
Me.SubForm.Form.Repaint
End Sub
'~~~~~~~~~~
サブフォームのフォーカスを新規レコードに移動する方法は、残念ながら知りません(T_T)
(既に登録してあるデータならば、「GotoPage」メソッドを使用すれば移動できるのですが・・・)
参考までに
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- PHP どうして送信されないのでしょうか? 1 2022/12/09 05:23
- Windows 10 コマンドプロンプトの使い方 1 2022/10/13 14:43
- Excel(エクセル) 【VBA】フォルダAにある2つのファイルの内1つを、フォルダBへ。もう1つを、フォルダBへ移動したい 6 2022/07/26 08:51
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Visual Basic(VBA) batにて、異なるフォルダの同名ファイルを参照し、文字列を判別。擬似配列で変数へ格納 3 2022/04/10 03:37
- Excel(エクセル) フォルダAから1つのファイルだけを、フォルダBへを移動するVBAについて 2 2022/07/25 11:45
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サブフォームに対してGoToRecor...
-
親フォームからサブフォームの...
-
ACCESS──メインフォームでサブ...
-
クエリで出来た表にチェックボ...
-
【Access】サブフォームのソー...
-
皆さん使っているブラウザを教...
-
アクセスのサブフォームからメ...
-
サブフォームを非表示させる方...
-
親・子リンクフィールドの設定...
-
アクセスでこんなフォームを作...
-
ACCESSのサブフォームコピーに...
-
Access 2003でサブフォームが更...
-
Accessでセレクタをダブルクリ...
-
Accessで埋め込んだサブフォー...
-
access サブフォーム作成につ...
-
ACCESS サブフォームの...
-
サブフォームのあるフォームか...
-
Access VBA には Gridはないで...
-
ACCESSのフォームで列固定?
-
サブフォームに変数を代入し、R...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サブフォームに対してGoToRecor...
-
クエリで出来た表にチェックボ...
-
親フォームからサブフォームの...
-
皆さん使っているブラウザを教...
-
ACCESS──メインフォームでサブ...
-
ACCESSにて
-
サブフォームを非表示させる方...
-
親・子リンクフィールドの設定...
-
ACCESS VBA メインフォーム及び...
-
ACCESSのフォームで列固定?
-
ACCESSサブフォームにデータ反...
-
Access VBA には Gridはないで...
-
ACCESSで条件によってサブフォ...
-
Accessで埋め込んだサブフォー...
-
【Access】サブフォームのソー...
-
ACCESSのサブフォームコピーに...
-
アクセス2003のサブフォームの...
-
サブフォームに変数を代入し、R...
-
ACCESS サブ・メインフォーム...
-
Access フォームで条件抽出し...
おすすめ情報