Access VBA質問箱 IV

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

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


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

5349 / 9994

←次へ　｜　前へ→


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

TB1 - 06/5/25(木) 11:15 -


	引用なし

	パスワード

▼855 さん：
ご指摘ありがとうございます。
一応、自分のコードと見比べるのですが、どこが悪いのかわかりません。
その後、下5桁はオラクルのほうから指定されるので手入力で良くなりました。
由って上7桁が自動で入ればよいのですが、うまく行きません。
　　　　　＿＿＿＿＿＿＿＿＿
店番　　｜＿＿＿＿＿＿＿＿＿｜←コンボボックスで店番が入っています。
　　　　　＿＿＿＿＿＿＿＿＿
会員番号｜＿＿＿＿＿＿＿＿＿｜←現状2222099999となってしまう。

以下コード

Private Sub Form_BeforeInsert(Cancel As Integer)

If DCount("正規会員コード", "会員情報", "店番=' " & Me.店番 & "'") = 0 Then
　　Me![正規会員コード] = "22220" & Me.店番 & "99999"

　　Else
　　Me![正規会員コード] = Format(DMax("正規会員コード", "会員情報", "店番=' " & Me.店番 & "'") + 1, "000000000000")

　　End If
End Sub

855さんがコードを走らせて問題なかったとおっしゃるものと比較してみてもどうして私のはだめなのかわかりません。

それからサンプルとして取り込んだデータの店番を変更してみても、始めの希望する形なら
22220 01 12345　を　コンボボックスで02に変えると　　22220 02 12345
と反映されるはずなんですが、されていません。

間違えている箇所を教えてください。
宜しくお願いします。

334 hits

▼

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