我正在使用at和able,并且我已经将excel中的数据导入到此表格中。下面一栏中的每个文本都有不同的文本,并且我想将ID放在所选的所有文本的前面,因为不是所有的字段都有ID:在它前面,所以我不想要将格式应用于整列。我将如何做到这一点?如何在列表下的表格中插入文本infront的文本
我希望能够选择在表中的“备注”字段圆圈的数据,然后把ID:在众人面前。
我正在使用at和able,并且我已经将excel中的数据导入到此表格中。下面一栏中的每个文本都有不同的文本,并且我想将ID放在所选的所有文本的前面,因为不是所有的字段都有ID:在它前面,所以我不想要将格式应用于整列。我将如何做到这一点?如何在列表下的表格中插入文本infront的文本
我希望能够选择在表中的“备注”字段圆圈的数据,然后把ID:在众人面前。
我是第一个可以理解作者的人;-),你想要这个吗?
UPDATE MyTable SET Notes = 'ID:' & Notes
WHERE (Notes NOT LIKE 'ID:*');
此访问更新查询预先在没有它的Notes之前存在'ID:'字符串。
在Access中,您创建一个查询,将其命名为qryUpdNotes,例如,将类型更改为UPDATE。保存并双击它。访问将做的工作
使用DAO在VBA的休息: CurrentDb.Execute “UPDATE MyTable的设置Notes = 'ID:' &注意WHERE(注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
而且在Sub /宏调用它是这样的:我无法作出任何意义了你的问题的
Dim strSQL
strSQL = "UPDATE MyTable SET Notes = 'ID:' & Notes" _
& " WHERE (Notes NOT LIKE 'ID:*');"
daoExecuteSql strSQL
。你是什么意思“把ID放在前面”和“应用格式”? Access中的条件格式是逐行处理的,而不是列式处理。你可以考虑重写你的问题,使问题更清楚。 – HK1
我最近的编辑更有意义吗? – D347HxD
是否要更新Notes列以将“ID:”添加到尚未拥有它的每个字段值? – HansUp