2013-11-04 21 views
1

我正在使用at和able,并且我已经将excel中的数据导入到此表格中。下面一栏中的每个文本都有不同的文本,并且我想将ID放在所选的所有文本的前面,因为不是所有的字段都有ID:在它前面,所以我不想要将格式应用于整列。我将如何做到这一点?如何在列表下的表格中插入文本infront的文本

This is what the column looks like:

我希望能够选择在表中的“备注”字段圆圈的数据,然后把ID:在众人面前。

+1

。你是什​​么意思“把ID放在前面”和“应用格式”? Access中的条件格式是逐行处理的,而不是列式处理。你可以考虑重写你的问题,使问题更清楚。 – HK1

+0

我最近的编辑更有意义吗? – D347HxD

+0

是否要更新Notes列以将“ID:”添加到尚未拥有它的每个字段值? – HansUp

回答

2

我是第一个可以理解作者的人;-),你想要这个吗?

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

此访问更新查询预先在没有它的Notes之前存在'ID:'字符串。

  1. 在Access中,您创建一个查询,将其命名为qryUpdNotes,例如,将类型更改为UPDATE。保存并双击它。访问将做的工作

  2. 使用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 
+0

我究竟在哪里放这个vba代码? – D347HxD

+0

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

相关问题