¿Cómo reemplazar un string en Access con VBA?

Con la función Replace:

WORD_C_CABECERA = Replace(WORD_C_CABECERA, "IMAGEN", WORD_C_IMAGEN)

¿Cómo hacer consultas SQL desde VBA en Access?

Ejemplo 1: lectura secuencial

Dim db_m As Database
    Dim rs_m As DAO.Recordset
    Dim strSQL_m As String
    Dim strResult_m As String
    Set db_m = CurrentDb
    strSQL_m = "SELECT ..."
    Set rs_m = db_m.OpenRecordset(strSQL_m, dbOpenForwardOnly)
    If rs_m.RecordCount <> 0 Then
        While Not rs_m.EOF
            strResult = strResult & rs_m![Modelo]
            rs_m.MoveNext
        Wend
    End If

Ejemplo 2: lectura de un dato en particular

Dim db As Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim strResult As String
    Dim VarRecords As Variant
    
    Set db = CurrentDb
    
    strSQL = "SELECT Snippet FROM dbo_Snippets WHERE ID = '" & Id_Snippet & "'"
    
    Set rs = db.OpenRecordset(strSQL)
    VarRecords = rs.GetRows(1)

Más información

• http://msdn.microsoft.com/en-us/library/office/bb243789(v=office.12).aspx
• http://www.utteraccess.com/wiki/index.php/Recordsets_for_Beginners
• http://msdn.microsoft.com/en-us/library/office/ff820966.aspx

Error #type al pasar valores nulos en una función de VBA

Si se obtiene un error de tipo (#type) al pasar un valor nulo a una función en VBA, es posible que el problema sea haber definido los parámetros como String. En su lugar, podemos usar Variant que soporta:

• Empty
• Null
• Error

Más información en http://msdn.microsoft.com/en-us/library/aa716185(v=vs.60).aspx