Member
Beiträge: 22
| Hallo Zusammen,
dieser VBA Code soll in einer Access Tabelle alle Null-Werte durch Blank ersetzen. Das klappt auch soweit:
Sub AlleTextFelderMitBlankFuellen()
Const cstrTable As String = "tblDeineTabelle"
Dim strSQL As String
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Set db = DBEngine(0)(0)
Set tdf = db.TableDefs(cstrTable)
For Each fld In tdf.Fields
If fld.Type = dbText Then
strSQL = "UPDATE " & cstrTable _
& " SET [" & fld.Name & "]= 'Blank'" _
& " WHERE [" & fld.Name & "] Is Null"
db.Execute strSQL, 128 'dbFailOnError
End If
Next fld
Set fld = Nothing
Set tdf = Nothing
Set db = Nothing
End Sub
Kann mit jemand diesen Code so anpassen, dass zusätzlich alle Einträge die mit # beginnen, ebenfalls durch "Blank" ersetzt werden? Ich bekomme das leider in VBA nicht hin, in SQL wäre es kein Problem.
Vorab vielen Dank für die Unterstützung. |