Option Compare Database
Dim S0
'''''''''''''''добавление
Private Sub VOpisanie_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
KeyAscii = Asc("?")
End If
End Sub

Sub fpoisk()
Dim s1, s2
Me.Refresh
s1 = "true "
'''''''''''''''исправление
s2 = Replace("" & Me.VInstr_id, "?", " ")
If Form.Recordset.EOF Then Me.FilterOn = False
    Form.Dirty = False
    
 

If Len(s2) > 0 Then
s1 = s1 & " and  Instr_id like '*" & s2 & "*'"
End If
s2 = "" & Me.VOpisanie
If Len(s2) > 0 Then
s1 = s1 & " and Opisanie like '*" & s2 & "*'"
End If


Me.Filter = s1
Me.FilterOn = True
End Sub

Private Sub VInstr_id_Change()
S0 = "" & Me.VInstr_id

Call fpoisk
If Form.Recordset.EOF Then Me.FilterOn = False
    Form.Dirty = False
Me.VInstr_id.SelStart = Len(S0) + 1
End Sub

Private Sub Check1017_DblClick(Cancel As Integer)
    On Error GoTo errend
    Application.Echo False
    If Me.selectrecord Like "*|" & Me.ID & "|*" Then
        Me.selectrecord = Replace(Me.selectrecord, "|" & Me.ID & "|", "")
    Else
        Me.selectrecord = Me.selectrecord & "|" & Me.ID & "|"
    End If
    selectid = Me.selectrecord
    If Len(Me.selectrecord & "") = 0 Then
        Me.Summa = 0
        Me.Summa2 = 0
    Else
        Me.Summa = DSum("Cheloveko_chasi_na_TP_B1", "kl", "id in(" & inExpr(Me.selectrecord) & ")")
        Me.Summa2 = DSum("Cheloveko_chasi_na_TP_B2", "kl", "id in(" & inExpr(Me.selectrecord) & ")")
    End If
    Me.Recalc
errend:
    Application.Echo True
End Sub

Private Sub VOpisanie_Change()
S0 = "" & Me.VOpisanie

Call fpoisk
If Form.Recordset.EOF Then Me.FilterOn = False
    Form.Dirty = False
Me.VOpisanie.SelStart = Len(S0) + 1
End Sub