ACCESS標準モジュールでテーブルの主キー採番したい。

質問

ACCESS標準モジュールでテーブルの主キー採番したい。
フォームが
(1)　[Fメインメニュー]
(2)　[F会社]
"(1)(2)全て非連結のtxtbox"
と２つあり、(1)のコマンドボタンから(2)のフォームを開く時に
(2)のｔｘｔboxに現在下記のコードで採番しています。
If DCount("*", "T会社") = 0 Then
Forms("F会社").txt会社コード = "001"
Else
Forms("F会社").txt会社コード = _
Format(DMax("会社コード", "T会社") + 1, "000")
End If
これを標準モジュールで行いたいのですが、良い方法を教えて下さい。
宜しくお願いいたします。

回答No.2

1050 円（@1050YEN） · ベストアンサー

単純に。。。。
(1)さっきの「新規会社CD取得」関数を、標準モジュールに張る

(2)F会社フォームをデザインで開く
→フォームのプロパティ
→→読込時イベントをイベントプロシージャにする。
→→→[...]となっているボタンを押し、フォームのモジュールに以下のようにする

Private Sub Form_Load()
Me.txt会社コード.Value = 新規会社CD取得()
End Sub

あとはVBAの本や、過去の履歴から学んでください。

「プログラミング > その他(プログラミング) 」
のカテゴリではなく、
「プログラミング > Visual Basic」
の方にもVBAの質問がされるので、そちらを見ると勉強になりますよ。

お礼

了解しました！
視野を広げて勉強します。
又なにかありましたら宜しくお願いいたします！
ありがとうございました。

回答No.1

1050 円（@1050YEN）

'新規会社コードを返す関数
Public Function 新規会社CD取得() As String
　　Dim l_int現在の最大 As Long

　　l_int現在の最大 = CLng(Nz(DMax("会社コード", "T会社"), "0"))

　　新規会社CD取得 = Format$(l_int現在の最大 + 1, "000")
End Function

'新規会社レコードを作成するメソッド
Public Sub 新規会社挿入()
　　Dim l_strSQL　　As String

　　l_strSQL = l_strSQL & "INSERT INTO T会社(会社コード)" & vbCrLf
　　l_strSQL = l_strSQL & "VALUES ('" & 新規会社CD取得() & "')" & vbCrLf

　　CurrentDb.Execute l_strSQL
End Sub

お礼

早急な返答ありがとうございます。
F会社のｔｘｔ会社コードに、この値を挿入したいのですが、挿入先をどこに記述すればよいですか？
素人ですみません・・・
アドバイス宜しくお願いいたします。