我有一个关于 VBA @ MS Access 的问题(这就是我实际上在这里的原因:P)。
所以,我有一个关于鞋子的庞大数据库(嗯,对我来说它很大,大约 23K+ ID)。它有 5 列:ID、商品编号、尺寸 (mm)、成对(有现货)和 EAC13 代码。它每天更新。每天我都会在 CSV 上获取更新(所有这些 ID 都重新)并创建新表,尽管我只需要更新库存可用性。但是,为了获得报告,我必须更改一列:尺寸。我必须得到 2 份报告,一份是我以毫米为单位的鞋码,另一份是欧洲尺码。例如:245毫米等于35。就这么简单。我有一个 VBA,我认为它可以帮助我替换所有这些值(是的,“大小”列上的所有 23k),就像这样
Public Sub Substitui()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim fld As DAO.Field
Dim strSQL As String
Set db = CurrentDb()
strSQL = "SELECT * FROM BS_2704"
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
rst.MoveFirst
Do Until rst.EOF
For Each fld In rst.Fields
If fld.Value = "150" Then
rst.Edit
fld.Value = "24"
rst.Update
End If
If fld.Value = "160" Then
rst.Edit
fld.Value = "25"
rst.Update
End If
(...)
If fld.Value = "325" Then
rst.Edit
fld.Value = "50"
rst.Update
End If
Next fld
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub
无论如何...这只会更改 150 个条目(或多或少)。百万美元的问题是,为了让这个 VBA 更改所有 23k 条目,我在这里是否缺少任何类型的行?
我是这个领域的n00b,所以我会很感激一些n00b therms作为开始。谢谢你的耐心。