Fatal编程技术网
  • vba/
  • Vba “接收”；过程声明与具有相同名称的事件或过程的描述不匹配；错误

Vba “接收”；过程声明与具有相同名称的事件或过程的描述不匹配；错误

vba ms-access

Vba “接收”；过程声明与具有相同名称的事件或过程的描述不匹配；错误,vba,ms-access,Vba,Ms Access,我为一家土壤钻探公司写了一个数据库。当用户添加新项目时，他们会输入该项目应钻取的钻孔数。单击“添加项目”按钮后，将添加项目，并应运行一个程序，将钻孔数量添加到钻孔表中，并生成钻孔编号（B-1、B-2、B-3等）。然后窗体应该关闭，主窗体应该打开 然而，每当我更新项目编号或计数文本框时，我总是会出现“过程声明与事件或同名过程的描述不匹配”错误。在这些框的After Update事件中，我将值设置为临时变量（tmpProjectID和tmpBoringCount），然后应该将它们传递给过程…对吗 以

我为一家土壤钻探公司写了一个数据库。当用户添加新项目时，他们会输入该项目应钻取的钻孔数。单击“添加项目”按钮后，将添加项目，并应运行一个程序，将钻孔数量添加到钻孔表中，并生成钻孔编号（B-1、B-2、B-3等）。然后窗体应该关闭，主窗体应该打开

然而，每当我更新项目编号或计数文本框时，我总是会出现“过程声明与事件或同名过程的描述不匹配”错误。在这些框的After Update事件中，我将值设置为临时变量（tmpProjectID和tmpBoringCount），然后应该将它们传递给过程…对吗

以下是添加项目按钮的OnClick事件的过程：

私有子btnAddProject\单击（tmpBoringCount为整数，tmpProjectID为整数）
Dim数据库作为DAO.Database
Dim rs作为DAO.Recordset
作为整数的Dim i
Dim tmpBoringNumber作为字符串
Set db=CurrentDb
Set rs=db.OpenRecordset（“钻孔”）
i=1
tmpBoringNumber=“B-”&i

Do While i按钮单击事件过程没有参数-您不能通过添加它们来更改方法签名。从
btnAddProject\中删除参数，单击
并直接从文本框中读取所需的值。要直接从表单文本框中获取值，可以使用
rs！ProjectID=txtTempProjectID
或
rs！projectd=表单！[frmMyForm]！[txtTempProjectID]