Ms-Access 和使用数字链接表格答案

【问题标题】：Ms-Access and using numbers to link formsMs-Access 和使用数字链接表格
【发布时间】：2018-08-05 10:39:35
【问题描述】：

我有一个 ms-access 2010 数据库。我使用自动编号作为我的主键来链接表格的表格。我正在将表导出到共享点。我不能再使用我的自动编号或主键了，因为 sharepoint 不允许这样做。我将自动编号更改为仅数字。这就是我遇到问题的地方。我有一个名为Shipping 的表格，其中包含一个运输号码字段。我有一个 ShippingDetails 子表单，其中包含一个运输详细信息 ID 字段，该字段链接到带有运输编号字段的 Shipping 表单。我需要将运输编号和运输详细信息 ID 增加 1。我在表单的当前事件中使用以下代码使运输编号增加：

If Me.NewRecord = True Then
   Me.ShippingNumber =Nz(DMax("ShippingNumber","Shipping"),x)+1
End If

x 是我表单中的最后一个发货单号

我尝试在我的子表单 ShippingDetails 当前事件中使用相同的代码并进行以下更改：

If Me.NewRecord = True Then
   Me.DetailsID =Nz(DMax("DetailsID","qryShippingDetails"),x)+1
End If

x 是我表单中的最后一个详细信息 ID。

子表单ShippingDetails 是一个数据表视图，第一条记录将增加值，但随后每条新记录都是重复的。详细信息 ID 不会更改。如果您能给我任何帮助，我将不胜感激。

【问题讨论】：

标签： vba ms-access-2010

【解决方案1】：

为什么需要在表单中使用DMax 以及最后的详细信息 ID？这是否意味着您可以在将它们插入表格之前输入多个详细信息？否则Nz(DMax("DetailsID","qryShippingDetails"),0)+1 就足够了。

我每次都会调整 x

If Me.NewRecord Then
    x = Nz(DMax("DetailsID", "qryShippingDetails"), x) + 1
    Me.DetailsID = x
End If

【讨论】：

每个详细记录都必须单独输入到表格中。我在网上找到了该代码并对其进行了修改以供我使用。我不是程序员。我试过你的代码，它可以满足我的需要。谢谢你的帮助，奥利弗。