Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Строка как то непонятно обнуляется  [new]
snocky
Member

Откуда:
Сообщений: 296
вот кусок кода
Dim strFind, strFind2 As String

If Me.FindEdit.Enabled = True Then
    strFind = Trim(Me.FindEdit)
End If
If Me.FindEdit2.Enabled = True Then
    strFind2 = Trim(Me.FindEdit2)
End If

MsgBox strFind2 & " " & strFind       ' здесь сообщение со строками   strFind2 и strFind содержат какой то текст

Select Case True
    Case Flagok1
        MsgBox strFind     '  тут тоже всё ОК   в  strFind  есть текст
        Forms![frmBrowse]![pdFrmHome2].Form.Filter = "[CodeHome] Like " & "'" & strFind & "'"
        Forms![frmBrowse]![pdFrmHome2].Form.FilterOn = True
    Case Flagok2
        MsgBox strFind2  '   а вот тут значение strFind2 пропадает (идёт пустое сообщение)
        Forms![frmBrowse]![pdFrmHome2].Form.Filter = "[NumbHome] Like " & "'" & strFind2 & "'"
        Forms![frmBrowse]![pdFrmHome2].Form.FilterOn = True
    Case Else
        MsgBox "Ошибка."
End Select

почему значение переменной из меняется???
ps В другом месте подобный код нормально работаит
14 сен 05, 09:13    [1875246]     Ответить | Цитировать Сообщить модератору
 Re: Строка как то непонятно обнуляется  [new]
snocky
Member

Откуда:
Сообщений: 296
мля, всё решил. Сам накосячил. Извините :(
14 сен 05, 09:39    [1875338]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить