ник: СкН
Список - контрол listBox, заголовки столбцов не отображаются.
Во второй форме сделал кнопку с таким кодом
Private Sub Кнопка_Click()
Dim Позиция As Long
Dim Условие As String
Dim кодДок As Long
кодДок = Me.Поле1 ‘ значение передается из первой формы
Условие = "КодТипаДокумента = 1 Or КодТипаДокумента = 10"
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * From Документ WHERE (" & Условие & ")")
rs.FindFirst "[КодДокумента] =" & КодДок
Позиция = rs.AbsolutePosition
Me.Список0.Selected (rs.AbsolutePosition) ‘ – остановка на этой строке с сообщением
End Sub
Сообщение: - Object doesn’t support this property or method
Может я что не так сделал?