Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7776 / 9994

←次へ　｜　前へ→


	【5403】Re:縦方向（レコード）のデータを横方向（...

小僧 - 05/6/17(金) 15:00 -


	引用なし

	パスワード

▼さつきさん：
こんにちは。

メーカー名は空白にならない事が前提なのですが、

>>　　　　　　J = 0
>>'空のフィールドを検索
>>　　　　　　Do Until rs2(J) = "" Or IsNull(rs2(J))
>>　　　　　　　　J = J + 1
>>　　　　　　Loop

この部分、現在は「0」「1」「2」…が空白の時、となっていますよね？

これを「1」「4」「7」…が空白の時、と判断させれば良いと思います。

>>　　　　　　Do Until rs2(J) = "" Or IsNull(rs2(J))
→　　　　　　Do Until rs2(J*3+1) = "" Or IsNull(rs2(J*3+1))

これで空白のセルを３つおきに調べていくと思います。
いかがでしょうか？

1,276 hits

▼

【5385】縦方向（レコード）のデータを横方向（フィールド）に並べる さつき 05/6/15(水) 16:21