Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.09.2016 08:56:02 |
Mylopotas |
|
|
vba access, tabellenfeld wenn null, mit vorherigen wert füllen |
09.09.2016 09:18:26 |
SJ |
|
|
|
09.09.2016 09:59:22 |
Gast4557 |
|
|
Von:
SJ |
Datum:
09.09.2016 09:18:26 |
Views:
548 |
Rating:
|
Antwort:
|
Thema:
vba access, tabellenfeld wenn null, mit vorherigen wert füllen |
Guten Morgen,
nicht schön, sollte jedoch funktionieren:
Option Compare Database
Option Explicit
Public Sub fill_empty_fields()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sTableName As String
Dim sFieldName As String
Dim tmp As String
sTableName = "tbl_Test" 'Tabellenname Anpassen
sFieldName = "Vorname" 'Feldname Anpassen
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM " & sTableName & ";")
Do Until rs.EOF
If Not IsNull(rs.Fields(sFieldName)) Then
tmp = rs.Fields(sFieldName)
End If
If IsNull(rs.Fields(sFieldName)) Then
If Not tmp = vbNullString Then
rs.Edit
rs.Fields(sFieldName) = tmp
rs.Update
End If
End If
rs.MoveNext
Loop
rs.Close
db.Close
Set db = Nothing
End Sub
Wichtig: Vorher ein Backup von entsprechender Tabelle machen um einen möglichen Datenverlust zu vermeiden.
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.09.2016 08:56:02 |
Mylopotas |
|
|
vba access, tabellenfeld wenn null, mit vorherigen wert füllen |
09.09.2016 09:18:26 |
SJ |
|
|
|
09.09.2016 09:59:22 |
Gast4557 |
|
|