Unable to bind to field: 'item' (Error 545)

[shady]

Прошу помощи у коллективного разума в решении моей проблемы.

Есть некая программа которая работает с БД и которую юзают более 30 человек. Но у 2х имеется сабжевая проблема.
Google не рулит. MSDN (http://msdn2.microsoft.com/en-us/library/aa267016.aspx) тоже

На чем же может возникать такая проблема ?! Да вроде бы на том месте, где ее не должно быть.:
[code="vb"]Set txtN.DataSource = rst
txtN.DataField = "Field"
[/code]
Рекордсет объявлен в форме где и используется:
Public WithEvents rst As ADODB.Recordset (открываю его асинхронно)

Можно конечно (наверное) делать txtN.Text = rst("Field"), но тогда надо будет проверять на isnull. А так как текстбоксов почти 2 десятка, то всё это дело подтормаживает.

На этой же форме есть грида у которой DataSource = rst. Данные в ней отображаются нормально.

Из всего вышеперечисленного я сделал вывод что есть какая-то проблема с "биндингом" текстбокса и рекордсета. По идее за этот "биндинг" должна отвечать какая-нить библиотека типа MSBIND.DLL.

Кто-нить сталкивался с таким?

[alibek]

Что насчет патчей?

[shady]

Что насчет патчей?

Каких именно патчей?
Windows на машинах пользователей XP Pro SP 2

+
Сейчас лишний раз убедился что с рекордсетом все нормально

Код: Выделить всё

    App.StartLogging App.Path & "" & App.Title & ".log", vbLogToFile

    App.LogEvent "Всего полей в рекордсете: " & rst.Fields.Count, vbLogEventTypeInformation
    Dim i As Long
    For i = 0 To rst.Fields.Count - 1
        App.LogEvent "Поле " & i & " " & rst.Fields(i).Name, vbLogEventTypeInformation
    Next

[alibek]

Шестой сервис-пак на студию и патч для runtime.

[shady]

Шестой сервис пак стоит. А вот патч для runtime сомневаюсь. Не припоминаю чтобы я его ставил. Попроую поискать и скачать.

[shady]

Патч для Runtime я так понял вот этот ? :
http://www.microsoft.com/downloads/deta ... laylang=en

[alibek]

Да.

[shady]

Тогда не помогло .
И сейчас еще на одном компе поставил программу та же фигня. Значит прецедентов уже 3.

[shady]

Решил сделать все-таки по второму пути через iif(isnull(..)... Конечно хотелось бы докопаться до истины, но к сожалению не могу на долго занимать компьютеры пользователей.

[alibek]

Можно и так: Text1.Text = "" & rst!Field

[shady]

alibek, действительно! Минус 2 лишние функции. Спасибо!

[alibek]

Разумеется, это годится только для текстовых полей.
Но вообще сабж -- это какой-то глюк. И я бы впервую очередь избавлялся от причины, а не искал способы обхода.

[Antonariy]

Можно и так: Text1.Text = "" & rst!Field

А быстрее так:

Код: Выделить всё

Public Function CString(ByVal sValue) As String
    If Not IsNull(sValue) Then CString = CStr(sValue)
End Function

[alibek]

Ты думаешь, что вызов функции с передачей аргумента по значению будет быстрее, чем конкатенция?
Если же речь идет о читабельности, то я давно такую функцию включаю в проекты, связанные с БД:

Код: Выделить всё

Function IfNull(Value, Optional NullValue = Empty)
If IsObject(Value) Then
  If Value Is Nothing Then
    If IsEmpty(NullValue) Then
      Set IfNull = Nothing
    Else
      Set IfNull = NullValue
    End If
  Else
    Set IfNull = Value
  End If
Else
  If IsNull(Value) Then
    Let IfNull = NullValue
  Else
    Let IfNull = Value
  End If
End If
End Function

[Antonariy]

ByVal не я вписал, скопипастил и не заметил. А вообще да, думал конкатенация медленнее. Оказалось быстрее даже чем с ByRef.

[shady]

Разумеется, это годится только для текстовых полей.
Но вообще сабж -- это какой-то глюк. И я бы впервую очередь избавлялся от причины (ибо такие глюки появляются на машинах с ), а не искал способы обхода.

Подниму тему, так как решил все-таки найти причину глюков.
Что проделано на данный момент.
Методом проб и ошибок удалось таки выявить виновника этой страннй и необъяснимой ошибки. Во всем виноват MSBIND.DLL. И еще какие-то файлы. Какие, выяснить пока не удалось. С достоверностью 100% могу сказать, что на компе Win XP SP2 + Долбаный Open Offce получаю сообщение об ошибке. Стоит только накатить сверху Microsoft Office, ошибки как и небывало.
Осталось узнать какие именно файлы, критичные для меня, заменяет Open Office.