Access VBA質問箱 IV

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

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


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

3051 / 9994

←次へ　｜　前へ→


	【10207】Re:テーブルを変換するには

にしもり - 08/2/4(月) 15:15 -


	引用なし

	パスワード

▼hatena さん：
ありがとうございます。
アドバイスにしたがいグループごとに連番を振る方法をWebを調べたら　標準プロシージャ IntGpを作成せよ　とありました。
↓↓↓↓↓

Option Compare Database
Option Explicit

Dim Int対比 As Integer
Dim Int連番 As Integer

Function IntGp(Var基準値 As Variant) As Integer

　　If Not IsNull(Var基準値) Then
　　
　　　　If Int対比 <> Var基準値 Then Int連番 = 0

　　　　Int連番 = Int連番 + 1
　　　　IntGp = Int連番
　　　　Int対比 = Var基準値
　　
　　Else
　　
　　　　MsgBox "基準値に空白がありますので作業を停止します。"
　　　　End
　　　　
　　End If
　　
End Function

しかし、できてません。
グループは東京店11/13でAグループ、東京店11/26でBグループというふうに　東京店でひとつのグループというわけではありません。
上記方法ですと、A、Bグループ各々にVar基準値が要るようです。

例：
210021、東京店、2007/11/13,Apple
210021、東京店、2007/11/13,Banana
210021、東京店、2007/11/13,Orange
210021、東京店、2007/11/26,Apple
210021、東京店、2007/11/26,Banana
210022、大阪店、2007/11/13,Apple
210022、大阪店、2007/11/13,Banana

の場合まず００１、００２といったグループ番号を付与しなければいけないようです。それが難しいです。

001、210021、東京店、2007/11/13,Apple
001、210021、東京店、2007/11/13,Banana
001、210021、東京店、2007/11/13,Orange
002、210021、東京店、2007/11/26,Apple
002、210021、東京店、2007/11/26,Banana
003、210022、大阪店、2007/11/13,Apple
003、210022、大阪店、2007/11/13,Banana

また、（説明不足だったのですが）店コードはデータ型で、数値にしようと思ったのですが変換するとレコードがいくつかロストしてしまいます。
どうすれば宜しいでしょうか。

641 hits

▼

【10200】テーブルを変換するには にしもり 08/2/1(金) 16:14