jag försöker ta bort alla tomma poster i en tabell med koden:
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & App.Path & "\db.mdb"
On Error Resume Next
con.Open ConnectionString
rst.Open "SELECT * From best", con
Do Until rst.EOF
If Len(rst!dagensdatum) = Null Then
rst.Delete
rst.Update
End If
rst.MoveNext
Loop
Set con = Nothing
Set rst = Nothing


men det funkar inte, vad är det för fel??

det är inte säkert att rst!dagensdatum är NULL, det kan även vara "".

testa med att skriva en sql-sats

sql = "select * from best where dagensdatum is null"
set rst=con.execute(sql)

do while not rst.eof
debug.print rst(0)
rst.movenext
loop

-----

funkar det så använd:

sql = "delete from best where dagensdatum is null"
con.execute sql

/pelle

tack.....