Tietueen hallittu poisto lomakkeen painikkeella

Itselläni on tilaustenhallinta/laskutusohjelmassani tehty asiakkaan poisto seuraavasti:

Asiakaslomakkeella on valintaruutu, joka ruksataan ennen "Poista" painikkeen painamista. Siis estetään tahaton poisto. Poisto kohdistuu sillä hetkellä lomakkeellaolevaan asiakastietueeseen. Poista-painikkeella on tapahtumatoimintosarja:

Private Sub Komento80_Click()
If Poista = False Then
msgbox "Asiakasta ei ole merkitty poistettavaksi, toiminto keskeytetty."
Exit Sub
End If
DoCmd.RunCommand acCmdDeleteRecord
End Sub

Miksi poistaa asiakkaan tilaukset? Seurannankin kannalta ne on hyvä säilyttää. Voihan ne siirtää lopetettujen yhteiselle asiakasnumerolle.

Ei siihen mitään koodinpätkiä tarvita. Teet muutoskyselyn, joka kohdistuu "Tilaukset" (tai vastaava) taulukossa asiakasnumeroon, siis vaihtaa lopetettujen asiakkaiden asiakasnumeroon. Muutoksen jälkeen voit poistaa asiakkaan asiakasrekisteristä. Ja tietysti asiakasrekisterissä täytyy olla numero lopetetuille asiakkaille.

Toimi näin:
Luo ==> Kysely
Kaksoisnapsauta taulukko "Tilaukset" (tai vastaava)
Sulje taulukoiden valintaruutu
Kaksoisnapsauta kenttä "asiakasnumero" jolloin se siirtyy kyselyn rakenteeseen
Rakenne ==> Päivitys
Kohta "Päivitä" = uusi asiakasnumero
Kohta "Ehdot" = Vanha asiakasnumero
Rakenne ==> Suorita

Nyt pitäisi "Tilaukset" taulokossa olla asiakasnumero vaihtunut. Tee ensin kokeilu kopioidulla tietokannalla.

Tein omastani tuollaisen demon jossa on mm. tähän aiheeseen liittyvä toiminto. Osa kentistä on disabloitu, mutta sitä pystyy hyvin kokeilemaan. Ladattavissa tuolta:

https://skydrive.live.com/view.aspx/.Documents/Taulukot ^0 tekstit/Laskukone.xlsx?cid=ba405a82cd4bc318&sc=documents#!/?cid=ba405a82cd4bc318&sc=documents&uc=1&id=BA405A82CD4BC318!131