複数のテーブルに対応したプロシージャは作成可能ですか？

質問

複数のテーブルに対応したプロシージャは作成可能ですか？
テーブルが
T会社、T社員と２つあり、
フォームが
FメインメニューとF会社とF社員で3つあります。（ｔｘｔBoxは全て非連結）
Fメインメニューのコマンドボタン(1)より下記のプロシージャでF会社のｔｘｔBoxに主キーの番号を振っています。（以前このサイトで教えて頂いたもの（＾_＾；））
これを同じプロシージャでコマンドボタンによって、元になるテーブルや出力先のフォームを切り替て、Fメインメニューのコマンドボタン(2)でF社員のｔｘｔBoxにT社員の最大数を振る事は可能ですか？
独学でやっている素人です。お力添え宜しくお願いいたします。
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 新規会社CD挿入()

Dim l_strSQL As String

l_strSQL = l_strSQL & "INSERT INTO T会社(会社コード)" & vbCrLf
l_strSQL = l_strSQL & "VALUES ('" & 新規会社ID() & "')" & vbCrLf
CurrentDb.Execute l_strSQL
End Sub

回答No.2

samz_ · ベストアンサー

コマンドボタン(1)のクリック時イベントに、
Me.txt会社コード = 新規レコード挿入("T会社", "会社コード")
を、
コマンドボタン(2)のクリック時イベントに、
Me.txt社員コード = 新規レコード挿入("T社員", "社員コード")
を、それぞれ記述します

プロシージャは、

Public Function 新規レコード挿入(pTable As String, pKey As String) As Long

Dim l_strSQL As String
Dim lngMAX As Integer

lngMAX = CLng(Nz(DMax(pKey, pTable), 0)) + 1
l_strSQL = l_strSQL & "INSERT INTO " & pTable & "(" & pKey & ")" & vbCrLf
l_strSQL = l_strSQL & "VALUES ('"
l_strSQL = l_strSQL & Format(lngMAX, "000")
l_strSQL = l_strSQL & "')" & vbCrLf
CurrentDb.Execute l_strSQL
新規レコード挿入 = lngMAX
End Function

にするとか

お礼

返答ありがとうございます。
バッチリ！理想どうりに起動しました！
また機会がありましたら、お力添え宜しくお願いいたします。

回答No.1

samz_

コマンドボタン(1)のクリック時イベントに、
Call 新規レコード挿入("T会社", "会社コード")
を、
コマンドボタン(2)のクリック時イベントに、
Call 新規レコード挿入("T社員", "社員コード")
を、それぞれ記述します

プロシージャは、

Public Sub 新規レコード挿入(pTable As String, pKey As String)

Dim l_strSQL As String

l_strSQL = l_strSQL & "INSERT INTO " & pTable & "(" & pKey & ")" & vbCrLf
l_strSQL = l_strSQL & "VALUES ('"
l_strSQL = l_strSQL & Format(CLng(Nz(DMax(pKey, pTable), 0)) + 1, "000")
l_strSQL = l_strSQL & "')" & vbCrLf
CurrentDb.Execute l_strSQL
End Sub

の様にしてどうでしょうか？

お礼

早急な回答ありがとうございます。
やってみたのですが、どこかに
forms！F会社.txt会社コード.Value
的なコードを記述しなければｔｘｔBoxに挿入されないと思い、
色々試したのですが・・・
ホント素人でお手数掛けますm（_ _）m
F会社のtxt会社コードに値を渡す記述を
教えてください。