しかし、データ型が連携できると確信しています.1つのテーブルのItemIDはオートナンバーであり、他のテーブルの数字です。
Private Sub Command17_Click()
Dim cmbItem As String
cmbItem = "SELECT ItemID FROM Items WHERE Items.Name = " & Me.Combo0.Value & ";"
Dim sc1 As DAO.Recordset
Set sc1 = CurrentDb.OpenRecordset("Buy", dbOpenDynaset)
sc1.AddNew
sc1.Fields("ItemID").Value = cmbItem
sc1.Fields("BuyPrice").Value = Me.Text13.Value
sc1.Fields("Notes").Value = Me.Text18.Value
sc1.Update
End Sub
前もってありがとう、ボブP