Q2.Edit
Q2!namesub = S2
Q2!address = S5
Q2!numcounter = S4
Q2!servcounter = S6
Q2!idport = S7
Q2!placeid = S8
Q2!sizecutter = S9
Q2!multiply_num = S10
Q2!mob = S11
Q2!phone = S12
Q2!fax = S13
Q2!other = S14
Q2!kmob = S15
Q2!kphone = S16
Q2!kfax = S17
Q2!kother = S18
Q2.Update




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

S1 = Null
S2 = Null
S3 = Null
S4 = Null
S5 = Null
S6 = Null
S7 = Null
S8 = Null
S9 = Null
S10 = Null
S11 = Null
S12 = Null
S13 = Null
S14 = Null
S15 = Null
S16 = Null
S17 = Null
S18 = Null
S1.SetFocus
'S.Enabled = True
'U.Enabled = False
ad:
Exit Sub
ed:
Resume ad
End Sub
