Как представить количество записей в форме красиво, без нижнего навигатора записей? Разговор получился интересный :)
Лиза 17.05.2001 | От: Лиза 17.05.2001 17:57:13 Красивое представление количества записей в таблице Есть форма (красивая):)) Как сделать так, чтобы количество записей, имеющихся в таблице и представленных в форме (особенно это важно в форме, являющейся результатом работы фильтра) было показано не просто внизу, как это обычно делается,а как-нибудь поэстетичнее в форме, чтоб бросалось в глаза? Наверняка же это очень просто. | Quick_yak 17.05.2001 | От: Quick_yak 17.05.2001 18:09:47 Создаешь элемент Эл в форме При нажатии кнопки вводишь процедуру: Dim rstSrc As Recordset Set rstSrc = Me("подчиненная форма Основные фонды").Form.RecordsetClone If rstSrc.RecordCount < 1 Then 'Нет записей в форме MsgBox "В исходной форме отсутствуют " & Chr(10) & Chr(13) & "строки для вывода в отчете" _ & Chr(10) & Chr(13) & "(возможно надо удалить фильтр)", vbInformation, "Ошибка" Exit Sub End If '.RecordCount < 1 With rstSrc .MoveLast .MoveFirst End With
|
Эл.Value = rstSrc.RecordCount | Лиза 17.05.2001 | От: Лиза 17.05.2001 18:25:56 У меня при этом ничего не происходит, учитывая что я все под свой вариант переделала:( | Владимир 18.05.2001 | От: Владимир 18.05.2001 8:10:54 Достаточно Элегантно выглядит Me.caption=Me.caption & ", Кол.записей = " & rst.recordcount
|
| Владимир 18.05.2001 | От: Владимир 18.05.2001 18:16:35 Re:Красивое представление количества записей в таблице Уточнение, если кто заметил ...& str(rst.recordset) | Mike 18.05.2001 | От: Mike 18.05.2001 11:08:25 наверное, не очень правильно цеплять всю эту красивую процедуру на FormOpen, поскольку данные не будут обновляться при добавлении и/или удалении записей. тогда уже надо цеплять на событие перехода к новой записи. только это уже будут конкретные тормоза (особенно если базу куда-нибуть в сетку выложить :) | Marat 19.05.2001 | От: Marat 19.05.2001 0:14:21 Miku i Vladimiru Da, pricepitt mojno kuda hochesh, mojno i na Caption, na knopku, na caption, voobcshe-to simpatichnaya ideya. Ogranichenie v osnovnom na fantaziyu. Na Form_Open ya by postavil, chtoby bylo prochse. Dlya obnovleniya vpolne mojno ispollzovatt Timer. Kajdyi chas skajem, ili 10 min. Na to i programmirovanie, che hotim to i delaem. |
Просмотров: 5654
Ваш коментарий будет первым | | |