| |
> 県別でソートして４人の名前を順次入力していけばよいと思うのですが、
> これをＶＢＡやクエリを利用して自動で出来ないでしょうか。
> 最終的に担当者別の受持件数は同じでなくてもいいんですが（数件の
> 違いはＯＫ）。
クエリでもできますが、この場合は、VBAの方が簡単かな。
DAO を使う場合の例
Dim rs As DAO.RecordSet
Dim tantou(4) As String
Dim i As Integer
tantou(0) = "ああ"
tantou(1) = "いい"
tantou(2) = "うう"
tantou(3) = "ええ"
Set rs = CurrentDB.OpenRecordSet("SELECT 担当 FROM テーブル名 ORDER BY 顧客名")
i = 0
Do Until rs.EOF
rs.Edit
rs!担当 = tantou(i)
rs.MoveNext
If i < 3 Then
i = i + 1
Else
i = 0
End If
Loop
担当が４人という事なので配列に入れましたが、
担当がテーブルにはいっているなら、それもレコードセットとして
開いて使用すればいいですね。
|
|
hatena
- 05/3/18(金) 15:23 -
