| |
>表形式のフォームに連番を0001〜nnnnまで自動採番をして
>表示したいのですが。
>
>「Aテーブル」から、会社名順に抽出する
>「Aクエリ」を作り、抽出した結果を表示する
>「Aフォーム」を作りました。
>この「Aフォーム」(表形式です)の行の一番左には、"連番"という領域が
>あります。
>この"連番"に1〜自動採番をしたいのですが手法が分かりません。
>
>「Aテーブル」のデザインは、氏名，会社名，住所・・ となっています。
>
>前画面の条件入力画面で「会社名順表示」ボタンクリックした時のイベントは
> Private Sub 会社名順表示_Click()
> DoCmd.OpenForm "Aクエリ"
ここは、
DoCmd.OpenForm "Aフォーム"
ですよね。
> End Sub です。
>「Aクエリ」の内容は
>SELECT *
>FROM お客様情報
>ORDER BY お客様情報.会社名カナ;
>としました。
>
>「Aフォーム」のデザインは
>連番(非連結)，氏名(連結)，会社名(連結)，住所(連結)・・
>となっています。
会社名カナ には重複は有りませんか。
ないのなら、連番 のテキストボックスのコントロールソースに
=DCount("*", "お客様情報", "会社名カナ='" & [会社名カナ] & "'")
と設定すれば連番が表示されると思います。
クエリの方に、上記の式の演算フィールドを追加しても
いいです。
SELECT *,
DCount("*", "お客様情報", "会社名カナ='" & [会社名カナ] & "'")
AS 連番
FROM お客様情報
ORDER BY お客様情報.会社名カナ;
|
|
hatena
- 07/6/10(日) 11:24 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
