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

Question

我正在使用，我已将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：'＆amp; 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