| |
▼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
また、（説明不足だったのですが）店コードはデータ型で、数値にしようと思ったのですが変換するとレコードがいくつかロストしてしまいます。
どうすれば宜しいでしょうか。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
