
Q2.Edit
Q2!id5 = s20
Q2!id10 = s21
Q2!id12 = s22
Q2!id15 = s23
Q2!id20 = s24
Q2!id22 = s25
Q2!id24 = s26
Q2!id26 = s27
Q2!km5 = k1
Q2!km10 = k2
Q2!km12 = k3
Q2!km15 = k4
Q2!km20 = k5
Q2!km22 = k6
Q2!km24 = k7
Q2!km26 = k8
Q2!amountnow = s28
Q2!oldamount = s29
Q2!other = s30
Q2!amount = s31


Q2.Update


MsgBox ("E? C?E?I?? ")

S1.SetFocus
ad:
Exit Sub
ed:
Resume ad


S1 = ""
S2 = ""
S3 = ""
S4 = ""
S5 = ""
S6 = ""
S7 = ""
S8 = ""
S9 = ""
S10 = ""
S11 = ""
S12 = ""
S13 = ""
S14 = ""
S15 = ""
S16 = ""
'S17 = 0
S18 = ""
s19 = ""
s20 = ""
s21 = ""
s22 = ""
s23 = ""
s24 = ""
s25 = ""
s26 = ""
s27 = ""
s28 = ""
s29 = ""
s30 = ""
s31 = ""
k1 = ""
k2 = ""
k3 = ""
k4 = ""
k5 = ""
k6 = ""
k7 = ""
k8 = ""
k = ""

End Sub