Dim QRY As String
QRY = "SELECT * from SUBSCRIBERS where NUMSUB = '" & S1 & "'"
Set Q2 = CurrentDb.OpenRecordset(QRY)
If Q2.RecordCount > 0 Then
S2 = Q2!namesub
S3 = Q2!idnum
S4 = Q2!numcounter
S5 = Q2!address
S6 = Q2!servcounter
S7 = Q2!idport
S8 = Q2!placeid
S9 = Q2!sizecutter
S10 = Q2!multiply_num
S11 = Q2!mob
S12 = Q2!phone
S13 = Q2!fax
S14 = Q2!other
S15 = Q2!kmob
S16 = Q2!kphone
S17 = Q2!kfax
S18 = Q2!kother

Else
MsgBox ("?C???I ??? ???C C????")


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
End If
S1.SetFocus
'S1.Enabled = False
'U.Enabled = False

ad:
Exit Sub
ed:
Resume ad
End Sub
