質問事項が分かり辛く申し訳ありません。
クエリのデータで空白の場合には、移行に入る値を代入する場合には、どの様な方法がありますでしょうか?
具体的には、以下の様な場合です。
区分CD 会社名
-------- -----------
A社
A社
B社
1100 B社
A社
C社
A社
1200 B社
上の状態から
下の状態にしたい
区分CD 会社名
-------- -----------
1100 A社
1100 A社
1100 B社
1100 B社
1200 A社
1200 C社
1200 A社
1200 B社
上記の状態に出来ないでしょうか?
No.2ベストアンサー
- 回答日時:
下記でどうでしょうか。
テーブル名は”Sample"としています。
ご自身のテーブル名に書き換えてください。
参照設定でADOを有効にしてください。
Sub CD_Update()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "Sample", cn, adOpenKeyset, adLockOptimistic
Counter = 0
Do Until rs.EOF
If IsNull(rs!区分CD) Then
Counter = Counter + 1
rs.MoveNext
Else
CD = rs!区分CD
rs.Move -1 * Counter
For i = 0 To Counter
rs!区分CD = CD
rs.MoveNext
i = i + 1
Next
Counter = 0
End If
Loop
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
ご教授頂いたVBAで望んだ結果を得ることが出来ました。
当初値が代入されなかった原因は「区分CD」フィールドが文字列だったためでした。数値型に変更したら問題ありませんでした。
なお、「区分CD」が文字列の場合に数値が代入する様にするにはどこを変更すればよろしいでしょう?合わせてご教授頂けると幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) xlDownの使い分けについての質問です vbaでxlDownを使って一覧近い空白までのセルをコピー 3 2022/08/04 12:20
- Excel(エクセル) 至急です><Excelの関数を教えてください。 2 2022/03/22 17:56
- Java javaのCSVデータ読込についてです 6 2022/07/02 10:58
- システム 質問です。 仮分数はどういう状態ですか? プログラムについてです。 例えば、とあるプログラムで、アイ 1 2023/07/24 01:39
- リフォーム・リノベーション マンションリフォーム工事の際に提出する「申請書・誓約書」について 3 2022/08/04 09:45
- Access(アクセス) スキルシートのエクセルの項目に 2 2023/04/04 22:41
- Excel(エクセル) IF関数について 5 2023/06/26 00:46
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
アクセスの初心者の質問です(空白の場合に他のフィールドを表示させたい。)
Access(アクセス)
-
AccessVBAについて テーブルの値が空白の場合、直近のデータで空白を埋めるには
Access(アクセス)
-
選択クエリで空欄のテーブルがあっても表示したい
Access(アクセス)
-
-
4
accessの代わりになるもの
Access(アクセス)
-
5
ACCESS VBA でのエラー解決の根拠がわかりません エラー「イベントプロパティに指定した式・・
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESS 一番最新の日付の金額...
-
Accessで在庫管理を
-
2つのテーブルを結合して合計(...
-
複数のテーブルから同じ条件で...
-
SQLで○○の値以外を持っているレ...
-
DB2 業種毎に連番をつけたいの...
-
SQL 件数取得を速くしたい
-
ビューで引数を使いたい
-
「マスタ」と「テーブル」の違...
-
Accessでフィールドを比較した...
-
ACCESS2007 フォーム 「バリア...
-
3つ以上のテーブルをUNIONする...
-
VBAの実行時エラー'2522'について
-
[ BETWEEN ] vs [ >= AND <= ]
-
accessテーブル作成クエリを実...
-
SELECT時の行ロックの必要性に...
-
sqlserverで対象のレコードを削...
-
2つのテーブルから条件に一致...
-
Access のリレーションシップで...
-
AccessでCSVインポートのゼロサ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESS 一番最新の日付の金額...
-
ビューで引数を使いたい
-
IFで条件を分岐させてのINSERT...
-
大学でSQLの授業があるのですが...
-
二つの表の項目を比較して値を...
-
Accessで在庫管理を
-
SQLについて質問です。 テーブ...
-
SQL 件数取得を速くしたい
-
複数のテーブルから同じ条件で...
-
空のテーブルの判別
-
INSERT文でサブクエリ
-
SQLの書き方
-
DB2 業種毎に連番をつけたいの...
-
Insert Into Select での重複に...
-
Access関数について クエリで空...
-
SQLで○○の値以外を持っているレ...
-
Sql文のUpdateと副問い合わせで...
-
select into句のトランザクショ...
-
リレーションシップ 全データを...
-
条件が混在しているSQLで値取得
おすすめ情報
頂いた回答を基にフォームコマンドより上記VBAにて動作をさせてみましたが、エラーは出ませんでしたが、現状のところ空欄を埋めることは出来ておりません。
もう少し、調整し改めて結果を報告させていただきます。