ms-access - 列の下の表のテキストの前にテキストを挿入する方法

Question

私はできる限り作業しており、Excel からこのテーブルにデータをインポートしました。下の列の各テキストには異なるテキストが含まれています。選択したすべてのテキストの前に ID: を配置したいと思います。すべてのフィールドが ID: の前にあるとは限らないため、列全体にフォーマットを適用します。どうすればいいですか？

テーブルの「メモ」フィールドで丸で囲まれたデータを選択し、それらすべての前に ID: を配置できるようにしたいと考えています。

Answer 1

私は著者を理解できる最初の人です;-)、これが欲しいですか?

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

この Access 更新クエリは、'ID:' 文字列を Notes の前に追加します。

1. Access でクエリを作成し、たとえば qryUpdNotes という名前を付け、型を UPDATE に変更します。保存してダブルクリックします。残りの作業はアクセスが行います

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