1

所以我这里有一个查询，它显示棒球运动员姓名、薪水，然后显示正常的棒球统计数据，例如命中、打点等。我想要的是让代码在最后创建一个查询，其中将包含球员的名称和表达式的结果看起来像

 IIf([H]<>0,Format(([Salary]/[H]),'$#,###.##'),0) AS Per_H

我基本上希望能够将该公式应用于他们的姓名和薪水之后的每一列。

现在我有

Table  PlayerSal
NAME SALARY H R HR

H 是 Hits，R 是 Runs，HR 是 Homeruns。我想要的结果查询应该是这样的。

 Player_Per

NAME Per_H, Per_R, Per_HR.

我具体需要做什么？

编辑

我应该补充一点，是的，我知道我可以为每个要计算的统计数据输入相同的函数，这不是重点。我正在尝试扩展我的知识，同时将其应用到我觉得有趣的事情上。但是，我知道这可能会扩展到其他事情。

4

3 回答 3

1

对不起，兄弟。最后一枪。此代码有效。但是，它需要一个小的调整，因为它不会遍历所有记录。 

Public Function HitTest()

Dim db As Database
Dim rec As DAO.Recordset
Dim fld As DAO.Field

Set db = CurrentDb
Set rec = db.OpenRecordset("tblPlayers")
EditTable = "tblPlayers"

For Each fld In rec.Fields
  If fld.Name <> "PName" And fld.Name <> "Salary" And Left(fld.Name, 4) <> "Per_" Then
    strFieldName = "Per_" & fld.Name & ""
    'rs.Fields (strFieldName)
    'X = "IIf(rec([" & fld.Name & "]) <> 0, Format((rec([Salary]) / rec([" & fld.Name & "])), '$#,###.##'), 0)"
    If FieldExists(EditTable, strFieldName) Then
    Else
        'AltTable = "ALTER TABLE " & EditTable & " ADD COLUMN " & strFieldName & " Double;"
        'CurrentDb.Execute (AltTable)
    End If
        rec.Edit
        X = IIf(rec((fld.Name)) <> 0, Format((rec("Salary") / rec((fld.Name))), "$#,###.##"), 0)
        rec.Fields(strFieldName).Value = X
        rec.Update
  End If
Next fld

End Function
于 2013-06-06T14:15:02.033 回答
0

我确定我不理解这个问题，但你可以这样做：

Dim db as database
dim rec as recordset
Dim fld as Field

Set db = CurrentDB
Set rec = db.OpenRecordset("PlayerSal")

For each Fld.name in rec
  If Fld.Name <> "Name" and Fld.Name <> "Salary" then
    Per_" & Fld.Name & " = IIf([" & Fld.Name & "]<>0,Format(([Salary]/[" & Fld.Name & "]),'$#,###.##'),0)
  End If
Next Fld.Name

以上完全是“空气代码”，很可能不会开箱即用，但希望它能给你一个想法。

于 2013-06-05T14:23:39.670 回答
0

我对此做了更多的研究。看起来您需要打开一个记录集以确保所有“Per_”字段都存在并确定您需要添加的任何新字段。然后您需要关闭记录集并运行 ALTER TABLE 语句来创建您需要的任何新字段。然后您需要重新打开记录集并使用公式的值更新您的字段。

如果您只是手动添加新字段，您可能可以消除前两个步骤，但这就是您必须这样做的方式。如果你想消除前两个步骤，你最终会得到这样的结果：

Dim db As Database
Dim rec As DAO.Recordset
Dim fld As DAO.Field

Set db = CurrentDb
Set rec = db.OpenRecordset("tblPlayers")
EditTable = "tblPlayers"

For Each fld In rec.Fields
  If fld.Name <> "PName" And fld.Name <> "Salary" Then
    strFieldName = "Per_" & fld.Name & ""
    X = "IIf([" & fld.Name & "] <> 0, Format(([Salary] / [" & fld.Name & "]), '$#,###.##'), 0)"
    If FieldExists(EditTable, strFieldName) Then
        rec.Edit
        rec.Fields(strFieldName).Value = X
        rec.Update    
    Else
    End If

  End If
Next fld

然后你需要这个函数来检查字段是否存在：

Public Function FieldExists(ByVal tableName As String, ByVal fieldName As String) As Boolean
Dim nLen As Long

On Error GoTo Failed
    With DBEngine(0)(0).TableDefs(tableName)
        .Fields.Refresh
        nLen = Len(.Fields(fieldName).Name)
        If nFldLen > 0 Then FieldExists = True
    End With
    Exit Function
Failed:
    If Err.Number = 3265 Then Err.Clear ' Error 3265 : Item not found in this collection.
    FieldExists = False
End Function
于 2013-06-05T20:00:33.083 回答