Question

Private Sub cmdAdd_Click()
'add data to table
   CurrentDb.Execute "INSERT INTO Products(ProductCode, ProductName, Category, UnitPrice, UnitCost, QuantityInStock, SupplierCode) " & _
          " VALUES (" & Me.txtProductCode & " , '" & Me.txtProductName & "' , '" & Me.cboCategory & "' , '" & Me.txtUnitPrice & "' , '" & Me.txtUnitCost & "' , '" & Me.txtQuantityInStock & "' , '" & Me.cboSupplierCode & "')"
   'refresh data on list of form
   ProductsSub.Form.Requery
End Sub

上面的代码假设记录从接口输入的数据，但它没有做任何事情。相同格式的代码以不同的形式使用，并且有效。真的很奇怪，但我不知道怎么可能。

Answer 1

你需要调试它。您引用的其中一个值是Me对象未解析。在CurrentDB.Execute命令上放置一个断点，并将鼠标悬停在每个Me引用（即Me.txtProductCode）上，以确保它为插入获取正确的值。如果您已将其移动到库，则可能需要使用CodeDB.Execute而不是CurrentDB.Execute。我还会检查表格，看看实际的INSERT是否正常工作，因为Requery事件可能存在问题。

Microsoft Access中的Visual Basic代码不起作用

1 个答案: