title image


Smiley Re: A97; Tabellen; Wenn Feld in Tabelle NULL ...
Sub null0()Dim db As DatabaseDim rs As RecordsetDim f As FieldSet db = CurrentDbSet rs = db.OpenRecordset("select * from tabelle3")While Not rs.EOF rs.Edit For Each f In rs.Fields If IsNull(f.Value) And (f.Type = dbInteger Or f.Type = dbLong Or f.Type = dbFloat Or f.Type = dbDouble) Then f.Value = 0 End If Next rs.Update rs.MoveNextWendEnd SubGruss K.K

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: