No.1ベストアンサー
- 回答日時:
ダサイ例ですが、
フォームのコントロール名が特定の規則に従っているのなら、
コントロール名がHoge1~HogeNだった場合
Dim lngI As Long
Dim lngMyArray(N) as Long
For lngI = 1 To N
lngMyArray(lngI) = Me("Hoge" & LngI)
Next
フォームのコントロール名がバラバラなら、
Dim lngI As Long
Dim lngMyArray(N) as Long
Dim strControlName as String
For lngI = 1 To N
Select Case lngI
Case 1
strControlName = "Momotaro" '<-コントロールの名前
Case 2
strControlName = "Saru"
Case 3
strControlName = "Inu"
Case 4
strControlName = "Kiji"
・
・
・
Case N
strControlName = "Oni"
End Select
lngMyArray(lngI) = Me(strControlName)
Next
No.2
- 回答日時:
ゴメンナサイ。
レコードが1~Nでしたね。
Dim lngMyArray() As Long ' <-データが数値の場合です。
Dim rstMySet As Recordset
Dim lngRecCount As Long
Dim lngI As Long
lngRecCount = Dcount("Hoge","MyTable")
ReDim lngMyArray(ingIRecCount)
Set rstMyset = CurrentDb.OpenRecordset("MyTable")
lngI = 1
Do Until rstMySet.EOF
lngMyArray(lngI) = rstMySet!Hoge
lngI = lngI + 1
rstMySet.MoveNext
Loop
rstMySet.Close
ちなみにDAOですから、ADOだとセッティングが多少異なります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Access(アクセス) accessでexcelを読み込む時のデータ型 1 2022/03/28 19:45
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- その他(データベース) IT用語について質問です。 以前ITパスポートの試験を受けた際にデータベースが何の集まりかについての 2 2022/12/10 12:29
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- その他(Microsoft Office) ピボットテーブルへの集計フィールド挿入 1 2023/02/26 11:33
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESSのフォームからデータの...
-
accessの自動更新処理をできな...
-
ACCESSで入力フォームをHTMLフ...
-
「メソッドまたはデータメンバ...
-
アクセスでの項目追加について...
-
選択したチェックボックスのみ...
-
Access2002 フォームを閉じるた...
-
アクセスのフォームのビューが...
-
Access 別フォームへの再クエ...
-
Accessのフォーム上にレコード...
-
Access:yesの時は画像を表示、...
-
Access2000で起動時にフォーム...
-
dlookup関数が使えない
-
ACCESS(アクセス):一度の入力で...
-
フォームを削除するVBA
-
アクセス 0以外をカウントす...
-
AccessVBAを使用して、DB内を...
-
[至急]accessクエリ結果を入力...
-
Accessフォームのテキストボッ...
-
Accessのフォーム画面について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのフォーム上にレコード...
-
ACCESSのフォームからデータの...
-
アクセスのフォームのビューが...
-
選択したチェックボックスのみ...
-
Accessフォームのテキストボッ...
-
アクセスでテーブルの変更内容...
-
accessの自動更新処理をできな...
-
Access 別フォームへの再クエ...
-
ACCESSで入力フォームをHTMLフ...
-
「メソッドまたはデータメンバ...
-
アクセス 0以外をカウントす...
-
Access2002 フォームを閉じるた...
-
ADOでRecordsetオブジェクトを...
-
Access:yesの時は画像を表示、...
-
ACCESSで、フォームのレコード...
-
Accessのフォームで作業領域を...
-
アクセスでの項目追加について...
-
帳票フォームに全レコードを表...
-
ACCESSフォームでのレコード数...
-
ACCESS フォームの値がすぐに...
おすすめ情報