hatena
hatena
2023/11/04 (土) 10:14:32
これと同じランダムな数値をACCESSのレコードが作成されるたびに作成し
フィールドに格納(一度つくると変更しない)するにはどうしたらよいでしょうか?
そのランダムな数値は他のレコードと重複しないようにする必要はありますか。
おそらく必要性があると思いますので、その場合は、
入力フォームの挿入前処理に下記のコードを設定すればいいでしょう。
Private Sub Form_BeforeInsert(Cancel As Integer)
Randomize
Dim DNum As String
Do
DNum = Format(Int(Rnd * 9999), "0000-") & Format(Int(Rnd * 9999), "0000-") & Format(Int(Rnd * 9999), "0000")
Loop Until IsNull(DLookup("伝票番号", "テーブル1", "伝票番号='" & DNum & "'"))
Me.伝票番号 = DNum
End Sub
フィールド名、テーブル名は実際のものに変更してください。
重複してもいいのなら、ループさせる必要はないです。
通報 ...