MS Access VBA Update Field Function For versions 2000, 2002, 2003, 2007

Function updateField(TableName As String , FieldName As String , _
      WhereField As String , WhereStrValue As String , _
      strValue As String ) As Boolean

   ' Updates a Field with a given strValue where another WhereStrValue exists in a field
   ' in table TableName.
   ' Accepts
   ' TableName: Name of table in which the field is located
   ' FieldName: Name of the field to update
   ' WhereField: Name of the field with criteria
   ' WhereStrValue: Given Criteria
   ' strValue: String to update the field to
   ' Returns True on success, false otherwise
   'USAGE: updateField "TABLENAME", "FIELDNAME", "WHEREFIELD", "WHERESTRVALUE", "STRVALUE"
   On Error GoTo errhandler
   Dim strSql As String , Db As dao.Database


   'Create the Update SQL Code from our Four String Values
   'Create the Update SQL Code from our Four String Values
   strSql = "UPDATE " & TableName & " SET " & TableName & _
         "." & FieldName & "='" & strValue & "' WHERE ((([" & _
         TableName & "]." & WhereField & ")='" & WhereStrValue & "'));"


   'Print the SQL so we can paste into the query build if there are errors
   Debug.Print strSql
   'Use Current Database
   Set Db = CurrentDb()


   'Run the SQL Query
   Db.Execute strSql

   'If no errors return true
   updateField = True
ExitHere:

   Set Db = Nothing

   'Notify the user the process is complete.
   MsgBox "Update Complete"
   Exit Function
errhandler:
   'There is an error return false
   updateField = False
   With Err
      MsgBox "Error " & .Number & vbCrLf & .Description, _
            vbOKOnly Or vbCritical, "updateField"
   End With
   Resume ExitHere
End Function