![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
Access VBAで添付型フィールドからファイル名を取りだしたいのですが、どのようにすればいいでしょうか?
Private Sub Sample()
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim SQL As String
Set DB = CurrentDb
SQL_1 = "SELECT * FROM ボランティア情報 ORDER BY 分野 & 団体名読み;"
Set RS = DB.OpenRecordset(SQL_1, dbOpenDynaset)
With RS
Do While Not .EOF
MsgBox (!写真.FileName) ←ここでエラーが出ます。
. MoveNext
Loop
End With
RS.Close
Set RS = Nothing
Set MDB = Nothing
End Sub
No.1ベストアンサー
- 回答日時:
やってみて動いたッポイので回答してみますが、裏付け等はしてください。
テーブル「T5」で、フィールド「FF1」が添付ファイルとします。
フィールド「FF1」の Value はレコードセットになっているようで、
フィールドは6つ存在しました。(2007 にて)
その中で Name = "FileName" 部分の Value にファイル名があるようです。
Public Sub test1()
Dim rs As DAO.Recordset
Dim v As Variant
Set rs = CurrentDb.OpenRecordset("T5")
While (Not rs.EOF)
With rs("FF1").Value
While (Not .EOF)
For Each v In .Fields
If (v.Name = "FileName") Then
Debug.Print v.Value
Exit For
End If
Next
.MoveNext
Wend
End With
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
End Sub
Name = "FileName" はフィールドの3つ目にあるみたいで・・・(裏付けなし)
添付ファイルの個数は1つ or 設定なしであれば、以下でも良いのかも
Public Sub test2()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("T5")
While (Not rs.EOF)
With rs("FF1").Value
If (Not .EOF) Then Debug.Print .Fields(2)
End With
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
End Sub
とか
Public Sub test3()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("T5")
While (Not rs.EOF)
If (Not rs("FF1").Value.EOF) Then
Debug.Print rs("FF1").Value("FileName")
End If
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
Accessの入力フォームから、テーブルの添付ファイル型にファイルを入力する方法について
Access(アクセス)
-
ACCESS 添付ファイルを含む複数テーブルからクエリで新しいテーブルを作りたい
Access(アクセス)
-
アクセスVBAでの添付ファイルの取り込みについて
Access(アクセス)
-
-
4
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
5
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
6
ACCESSでコントロールソースの変更
Access(アクセス)
-
7
Access サブフォームでの選択行の取得
その他(データベース)
-
8
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
9
【ACCESS】レポートに添付ファイルを表示したい
Access(アクセス)
-
10
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
11
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
12
アクセスVBAのMe!と[ ]
Access(アクセス)
-
13
AccessでIDを入力したら他の項目も自動で表示
Access(アクセス)
-
14
ACCESS2010 WEBブラウザーコントロールにPDFを表示
Microsoft ASP
-
15
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
16
ACCESSでデータ読み取り専用を解除する方法
その他(データベース)
-
17
選択したチェックボックスのみチェックを入れたいのですが
その他(データベース)
-
18
Access でレコードセレクタが押されたときのイベントは?
その他(プログラミング・Web制作)
-
19
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
20
Accessのサブフォームから値を参照する方法について
その他(データベース)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access 2010で実行時エラー3061
-
DataTableに特定のフィールドが...
-
ADOでNullフィールドの抽出
-
アクセス ADO Null以外のレコ...
-
Accessの画像挿入のVBAコード
-
Accessのフィールド名に半角括...
-
2つ目のレコードの値を取得す...
-
INT64対応のprintf系関数はあり...
-
ACCESSで日別集計をする場合
-
フィールド名をループの添え字...
-
accessでフィールド追加のあと...
-
COBOLで、文字タイプのフィール...
-
データベース操作(DAO)でのフィ...
-
オートナンバー型を抽出条件に...
-
アクセスでADO 並べ替えが適用...
-
クリスタルレポートで文字列の...
-
Access VBA 添付型フィールド
-
クリスタルレポート(8.5)の書式...
-
FTPサーバーから受信したファイ...
-
AccessのDAOでフィールド名を配...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
accessでフィールド追加のあと...
-
Accessのフィールド名に半角括...
-
クリスタルレポートで困ってい...
-
2つ目のレコードの値を取得す...
-
DataTableに特定のフィールドが...
-
Access 2010で実行時エラー3061
-
INT64対応のprintf系関数はあり...
-
テーブルのデータ型の変更がで...
-
AccessのDAOでフィールド名を配...
-
日付と文字列を条件としてDLook...
-
クリスタルレポートで文字列の...
-
クリスタルレポート(8.5)の書式...
-
Access VBA 添付型フィールド
-
Access クエリで変数を参照する...
-
Accessの画像挿入のVBAコード
-
NULLを含む文字列の結合で...
-
SQLで複数のテーブルと結合した...
-
ACCESSで視覚的タイムテーブル...
-
ACCESSデータベースにV...
-
オートナンバー型を抽出条件に...
おすすめ情報