Question

如何添加自动编号取决于我的最后一行？

在Excel上，我可以将此代码作为参考：

Lastentry = Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row
Help1 = Replace(Range("B" & Last_entry).Value, "B-AK", "")
Boxnummer.Value = "B-AK" & (CInt(Help1) + 1)

但在我的Access数据库中，我不知道如何将raws作为参考。我在一些解决方案之后在互联网上查看但我找不到有用的信息，因为实际上我没有很好的访问技能..

Answer 1

这一切都取决于你想要实现的目标。有许多不同的方法来记录记录。

1）DCount功能：

Dim count_ As Long
    count_ = DCount("*","TableName")

2）Recordset.RecordCount属性：

Dim rs As DAO.Recordset
Set rs = CurrentDb().OpenRecordset("SELECT * FROM TableName")
    rs.MoveLast

count_ = rs.RecordCount

3）Control.ControlSource属性：

TextBox.ControlSource = "=Count(*)"

修改

在这种情况下，您需要DLookup功能。查看附加链接以了解有关DLookup函数的更多信息，但简而言之就是：

给我“ColumnName”中的最后一个值，该值位于“TableName”中。

Dim ref As String ref = "B-AK" & Format(Date, "yy") & _ DLookup("ColumnName", "TableName", "ID=" & DMax("ID", "TableName")) 'Change "ColumnName", "TableName" and "ID" to their actual names.

是否有类似的方法使这个excel-vba代码可以访问？

1 个答案: