PDF complete version (5 MB) - ETH - LUE - ETH Zürich

Anhang 34
stpu = stp_search![stpu]
stp_search.Seek "=", stpu
End If
x = x + 1
Loop
Else
stp.Seek "=", stpi
stp.Edit
stp![relevant] = 0
stp.Update
End If
End Select
stp.MoveNext
Loop
End Sub
6.10 Optimum ersetzen
Public Sub optimum_ersetzen()
Dim placebo As Database
Dim stp, stp_opt, effe_effi As Recordset
Set placebo = DBEngine.Workspaces(0).Databases(0)
Set effe_effi = placebo.OpenRecordset("3_effe_effi", dbOpenDynaset)
Set stp = placebo.OpenRecordset("stp")
Set stp_opt = placebo.OpenRecordset("stp_opt")
stp_opt.MoveFirst
stp.Index = "stp_id"
Do Until stp_opt.EOF
stp.Seek "=", stp_opt![stp_id]
stp_opt.Edit
stp_opt![massnahme] = stp![massnahme]
stp_opt.Update
stp_opt.MoveNext
Loop
effe_effi.Requery
effe_effi.MoveFirst
stp_opt.Index = "stp_id"
Do Until effe_effi.EOF
stp_opt.Seek "=", effe_effi![stp_id]
stp_opt.Edit
stp_opt![effektivitaet] = effe_effi![effektivitaet]
stp_opt![effizienz] = effe_effi![effi]
stp_opt.Update
effe_effi.MoveNext
Loop