Access VBA質問箱 IV

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

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


1223 / 2272 ツリー ←次へ | 前へ→

【8126】自動採番について kyou 06/7/3(月) 13:52 質問[未読]
【8131】Re:自動採番について 小僧 06/7/3(月) 15:23 回答[未読]
【8175】Re:自動採番について kyou 06/7/6(木) 11:50 お礼[未読]

【8126】自動採番について
質問  kyou  - 06/7/3(月) 13:52 -

引用なし
パスワード
   WinXP
ACCESS2002です。

フォームのコントロール[CDF]に自動採番するコードを表示したいと考えております。

T_施主マスタのAで始まる施主コードの最大がA100の場合に
A101を表示したいのですが、
下記の2行目で 演算子がありません!! というメッセージが出ます。
"施主コード like A*" あたりが適正ではないと思われますが
書き方がわかりません。
お手数ですが、おわかりになる方にご教授をお願いする次第です。

Dim Bango As Variant
Bango = Right(DMax("施主コード", "T_施主マスタ", "施主コード like A*"), 3)
Me.CDF = "A" & Format(Bango + 1, "0000")

【8131】Re:自動採番について
回答  小僧  - 06/7/3(月) 15:23 -

引用なし
パスワード
   ▼kyou さん:
こんにちは。

>"施主コード like A*" あたりが適正ではないと思われますが

施主コードがテキスト型の場合、
条件はダブルコーテーション (") でくくる必要があります。

今回は既に括られている中で使うので
その場合はダブルコーテーションを重ねます。

("施主コード", "T_施主マスタ", "施主コード like ""A*""")


もしくはシングルコーテーション (') を使います。

("施主コード", "T_施主マスタ", "施主コード like 'A*'")


>Me.CDF = "A" & Format(Bango + 1, "0000")
                  ^^^^
最大値が A100 だった場合、A0101 になっちゃいますよ^^


※ フィールド名に半角カタカナがあると、たまに誤作動の元になります。

 ミオナさんという方のサイトが解り易くまとまっていますので
 ご参考にされてみてください。

 Miona's Square
 フィールド、コントロール、オブジェクトや変数などに付ける「名前」について
 http://ww3.tiki.ne.jp/~kaya/Ac_tips.html#Tips0_001

【8175】Re:自動採番について
お礼  kyou  - 06/7/6(木) 11:50 -

引用なし
パスワード
   レス遅くなってしまいました。
適切なご指摘ありがとうございます。
無事に駆動しました。
フィールド名が半角カタカナの件は今後留意していきたいと思います。
ACCESS2000あたりからエディタで半角カタカナが全角カタカナに自動変換されるようになったことについて前々からちょっと不安に思っていました。
ご紹介頂いたサイトは参考にさせて頂きます。
ありがとうございました。

1223 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078226
(SS)C-BOARD v3.8 is Free