在庫管理システム-データベースへのアクセス

sql = "SELECT * FROM  （テーブル名） WHERE （フィールド名）= '（パラメータ名）'"

sql = "SELECT * FROM T_社員 WHERE 社員 = '鈴木一郎'"

sql = "SELECT * FROM " & strTable & " WHERE " & strField1 & "= '" & strParameter & "'"

Public Function ReadDatabase(ByVal strTable As String, ByVal strField1 As String, ByVal strParameter As String, ByVal strField2 As String) As String
    On Error Resume Next
    Dim sql As String
    Dim rst As DAO.Recordset
    
    sql = "SELECT * FROM " & strTable & " WHERE " & strField1 & "= '" & strParameter & "'"
    Set rst = CurrentDb.OpenRecordset(sql)
    ReadDatabase = rst.Fields(strField2)
    If IsNull(ReadDatabase) = True Then ReadDatabase = "" 'Nullだった場合の処理

    rst.Close
    Set rst = Nothing
End Function

msgbox ReadDatabase("T_社員","社員","鈴木一郎","社員コード")

Dim int社員名 as Integer
int社員名 = Val(ReadDatabase("T_社員","社員","鈴木一郎","社員コード"))

    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("T_入出庫処理", dbOpenTable)
    With rst
        .AddNew
        .Fields("日付") = Me.txt_日付
        .Fields("品目コード") = Me.cmb_品目
        '～省略～
        .Update
        .Close
    End With

    Set rst = Nothing

    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset(（テーブル名）, dbOpenTable)
    rst.AddNew
    rst.Fields(フィールド名)=（書き込みデータ）
    rst.Update

    rst.Close
    Set rst = Nothing

    rst.AddNew
    rst.Fields("日付") = Me.txt_日付
    rst.Fields("品目コード") = Me.cmb_品目
    '～省略～
    rst.Update
    rst.Close