K
kas1
Guest
hei
im arbeider med VB6 og tilgang.Jeg har en kommandoknapp kalt "cmddelete".når jeg klikker på denne rekken av tilgang skal slettes.raden har felt "pære", "status", "type" når klikke knappen alle feltene blir slettet.for at im bruke følgende kode
ad1.Recordset.Filter = "pære = '" & dinningroom & "'"
ad1.Recordset.Fields ( "status"). Value = Slett
ad1.Recordset.Fields ( "pære"). Value = Slett
ad1.Recordset.Fields ( "type"). Value = Slett
ad1.Recordset.Update
ad1.Recordset.Filter = adFilterNone
Denne koden fungerer korrekt og slette oppføringer på rad.men problemet er da "spise rom" rad i midten av tabellen etter sletting vil det være en tom rad i midten av bordet.Jeg trenger ikke å ha tomme rader.Jeg trenger å flytte andre oppføringer enkeltvis opp etter slette rad.Hvordan kan jeg gjøre dette.Hva bør jeg legge til denne koden?
pls hjelpe meg
thanx
im arbeider med VB6 og tilgang.Jeg har en kommandoknapp kalt "cmddelete".når jeg klikker på denne rekken av tilgang skal slettes.raden har felt "pære", "status", "type" når klikke knappen alle feltene blir slettet.for at im bruke følgende kode
ad1.Recordset.Filter = "pære = '" & dinningroom & "'"
ad1.Recordset.Fields ( "status"). Value = Slett
ad1.Recordset.Fields ( "pære"). Value = Slett
ad1.Recordset.Fields ( "type"). Value = Slett
ad1.Recordset.Update
ad1.Recordset.Filter = adFilterNone
Denne koden fungerer korrekt og slette oppføringer på rad.men problemet er da "spise rom" rad i midten av tabellen etter sletting vil det være en tom rad i midten av bordet.Jeg trenger ikke å ha tomme rader.Jeg trenger å flytte andre oppføringer enkeltvis opp etter slette rad.Hvordan kan jeg gjøre dette.Hva bør jeg legge til denne koden?
pls hjelpe meg
thanx