|
お世話になります。
部品情報が含まれているテーブル「部品マスター」は
プレフィックス (短いテキスト)
部品番号 (短いテキスト)
サフィックス (短いテキスト)
部品名、 (短いテキスト)
等のフィールドでできています。
今、部品番号を自動的に採番するために以下のような例を参照しました。
Private Sub Forom_BeforeInsert(Cancel As Integer)
If Dcount("*","部品マスタ")= 0 then
Me.部品番号 = "0000001"
Else
Me.部品番号 = Format(DMax("部品番号","部品マスタ") + 1,"0000000")
End if
End Sub
ただし、テーブル定義では部品番号は短いテキスト型になっています。テーブルの部品番号の型を数値型にすれば問題ないのですが、型を変更できないとき、どのようにすればよいでしょうか。
また、プレフィックス、部品番号、スァフィックスの組で重複は許されません。
プレフィックス、部品番号、サフィックスが入力された時点で重複レコードがないかチェックし、あればアラーム、なければ続いて部品名等を入力したいです。
上記2点、ご指導の程よろしくお願いもうしあげます。
|
|