ms-access - 如何在列下表格中的文本前面插入文本

Question

我正在与 atable 合作，并且我已将数据从 excel 导入到此表中。下面列中的每个文本都有不同的文本，我想把 ID: 放在我选择的所有前面，因为并非所有字段都有 ID: 在它前面所以我不想要将格式应用于整个列。我该怎么做？

我希望能够在表格的“注释”字段中选择圈出的数据，然后将 ID: 放在它们的前面。

Answer 1

我是第一个可能了解作者的人;-)，你想要这个吗？

UPDATE MyTable SET Notes = 'ID:' & Notes
WHERE (Notes NOT LIKE 'ID:*');

此 Access 更新查询会在没有它的 Notes 之前添加“ID：”字符串。

1. 在 Access 中，您创建一个查询，例如将其命名为 qryUpdNotes，将类型更改为 UPDATE。保存并双击它。Access 将完成剩下的工作

2. 在 VBA 中使用 DAO：CurrentDb.Execute "UPDATE MyTable SET Notes = 'ID:' & Notes WHERE (Notes NOT LIKE 'ID:*');"

我用这个：

Function daoExecuteSql(ByVal strSQL As String) As Long
'
  Dim nDone As Long
'
  Dim db As DAO.Database
'
  On Error GoTo ErrorStatus
'
  Set db = CurrentDb
  db.Execute strSQL, dbFailOnError
'
  nDone = db.RecordsAffected
'
  On Error GoTo 0
'
' db.Close
  Set db = Nothing
'
  daoExecuteSql = nDone
'
  Exit Function
'
ErrorStatus:
'
  MsgBox "daoExecuteSql(): " & strSQL
'
  Set db = Nothing
  daoExecuteSql = 0
'
End Function

并在子/宏中这样称呼它：

Dim strSQL
strSQL = "UPDATE MyTable SET Notes = 'ID:' & Notes" _
  & " WHERE (Notes NOT LIKE 'ID:*');"
daoExecuteSql strSQL