要获取当前记录的ID，可以使用CurrentDb.OpenRecordset方法来打开当前数据表的记录集，然后使用Recordset对象的Fields属性来获取ID字段的值。

以下是一个使用Access宏获取当前记录ID的示例代码：

Sub GetCurrentRecordID()
    Dim rs As Recordset
    Dim currentID As Variant
    
    ' 打开当前数据表的记录集
    Set rs = CurrentDb.OpenRecordset("TableName")
    
    ' 移动记录集到当前记录
    rs.MoveFirst
    
    ' 获取ID字段的值
    currentID = rs.Fields("ID").Value
    
    ' 显示当前记录的ID
    MsgBox "当前记录的ID为：" & currentID
    
    ' 关闭记录集
    rs.Close
    Set rs = Nothing
End Sub

在上面的示例代码中，将TableName替换为你要获取ID的数据表的名称。然后，使用rs.Fields("ID").Value来获取ID字段的值。最后，使用MsgBox方法显示当前记录的ID。

请注意，这是一个简单的示例，假设表中只有一条记录。如果表中有多条记录，你可能需要根据需求来移动记录集到特定的记录位置，或者使用其他方法来获取所需的记录ID。