Dim QRY As String
QRY = "SELECT SUBSCRIBERS.numsub,SUBSCRIBERS.address, SUBSCRIBERS.namesub, SUBSCRIBERS.numcounter, SUBSCRIBERS.sizecutter, SUBSCRIBERS.servcounter, SUBSCRIBERS.multiply_num, places.placeid, places.placekind, ports.idport, ports.portname, bills.bill_num, bills.issue_bill, bills.lp_date, bills.dc_current, bills.old_readable, bills.new_readable, bills.consuming_amount, bills.cut_off_readable, bills.consuming_from, bills.consuming_to, bills.amountnow, bills.other, bills.oldamount, bills.amount, bills.km5, bills.km10, bills.km12, bills.km15, bills.km20, bills.km22, bills.km24, bills.km26, bills.id5, bills.id10, bills.id12, bills.id15, bills.id20, bills.id22, bills.id24, bills.id26, bills.days  from SUBSCRIBERS, bills, places,ports where NUMSUB = '" & S1 & "' and bills.bnumsub=SUBSCRIBERS.NUMSUB  order by NUMSUB DESC"
Set Q2 = CurrentDb.OpenRecordset(QRY)
If Q2.RecordCount > 0 Then
S2 = Q2!namesub
S3 = Q2!bill_num
S4 = Q2!numcounter
S5 = Q2!address
S6 = Q2!servcounter
S7 = Q2!portname
S8 = Q2!placekind
S9 = Q2!sizecutter
S10 = Q2!multiply_num
s31 = Q2!amount
s20 = Q2!id5
s21 = Q2!id10
s22 = Q2!id12
s23 = Q2!id15
s24 = Q2!id20
s25 = Q2!id22
s26 = Q2!id24
s27 = Q2!id26
k1 = Q2!km5
k2 = Q2!km10
k3 = Q2!km12
k4 = Q2!km15
k5 = Q2!km20
k6 = Q2!km22
k7 = Q2!km24
k8 = Q2!km26
k = Q2!days
S12 = Q2!issue_bill
S13 = Q2!lp_date
S14 = Q2!dc_current
S16 = Q2!old_readable
S15 = Q2!new_readable
'S17 = Q2!consuming_amount
'c = Q2!cut_off_readable
S18 = Q2!consuming_from
s19 = Q2!consuming_to
s28 = Q2!amountnow
s30 = Q2!other
s29 = Q2!oldamount

calc.Enabled = True

Else
MsgBox ("?C???I ?OE?? E??C C????")
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 = ""
S1.SetFocus

End If
Exit Sub
End Sub
