ник: Lukas
Добавить в процедуру FillListEx:
Dim strLINE As String
strLINE = String(30, "-") & ";"
strLINE = "0;" & strLINE & strLINE & strLINE & strLINE
и после строчки:
If datOld <> .Fields(1) Then
добавить:
strItem = strItem & strLINE
Перенести строчку:
If Nz(Me.ListEx, 0) = 0 Then Exit Sub ' чтобы не пыталась линии открывать в форме-карточке
из процедуры btnEdit_Click в процедуру ListEx_DblClick сразу за объявлениями переменных.
Должно получиться так: