Access VBA質問箱 IV

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

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


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

5541 / 9994

←次へ　｜　前へ→


	【7670】顧客コードの頭に定型の番号を振る

TB1 - 06/4/10(月) 17:12 -


	引用なし

	パスワード

宜しくお願いします。
12桁の顧客コードを作成する際、頭5桁は22220と決まっております。
次に02など各店番が来ます。そして、下5桁が個々人でオリジナルのナンバーになっています。

フォームで新規登録をする際、店番を入れると自動で
2222002
のようになり、下5桁のみの入力でコードを生成するように作りたいのです。

会員情報というテーブルを使って下記のようなコードを書いたのですが、間違ってました。

Private Sub Form_BeforeInsert(Cancel As Integer)
　　If DCount("正規会員コード", "会員情報") = 0 Then
　　Me![正規会員コード] = "222200000001"
　　Else
　　me![正規会員コード] ="22220" & format(dcount("店番", "会員情報"), _
　　("会員番号", "会員情報") + 1, "000000000000")
　　
　　End If
　　
End Sub

考え方は、頭に22220という整数をつけ、会員情報テーブルの店コードを拾い、オリジナルの5桁会員番号を入力すると、会員情報テーブルの正規会員コードに12桁のコードが生成される、というつもりでした。

コードは赤くなってました。ろくに知識無いままやっております。
どうか教えてください。

447 hits

▼

【7670】顧客コードの頭に定型の番号を振る TB1 06/4/10(月) 17:12

≪