powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / про форму
14 сообщений из 14, страница 1 из 1
про форму
    #32371086
mursilka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как сделать так , чтобы формочка открывалась на последней редактируемой(заносимой) записи
...
Рейтинг: 0 / 0
про форму
    #32371088
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
По моему так: DoCmd.GoToRecord , , acNewRec
...
Рейтинг: 0 / 0
про форму
    #32371090
mursilka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Чё...
...
Рейтинг: 0 / 0
про форму
    #32371092
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На событие открытия формы повесь:
DoCmd.GoToRecord , , acNewRec
...
Рейтинг: 0 / 0
про форму
    #32371101
mursilka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
спасиюо все хорошо но тогда форма открывается на новой записи, а надо на последней записи, которая была перед закрытием
...
Рейтинг: 0 / 0
про форму
    #32371103
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
acNewRec - Форма будет открываться на Новой записи, а вот для того, что бы открыть формы именно на "последней редактируемой записи" - надо где-то запоминать код этой записи и позиционировать на оную через bookmark'и
...
Рейтинг: 0 / 0
про форму
    #32371114
mursilka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
замечательно! а подробнее...пожалуйста
...
Рейтинг: 0 / 0
про форму
    #32371116
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А если вот так:

DoCmd.GoToRecord , , acLast


P.S. И вообще не ленитесь. Нажмите F1 и посмотрите метод GotoRecord...
...
Рейтинг: 0 / 0
про форму
    #32371143
mursilka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а у меня помощь на английском и все книги увели
...
Рейтинг: 0 / 0
про форму
    #32371146
Фотография Daf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну а с acLast заработало?
...
Рейтинг: 0 / 0
про форму
    #32371148
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 mursilka
Не слушай Дафа, он не волшебник, он еще только учится людей в справку посылать

Тебе надо
1. При выгрузке или закрытии формы (Unload или Close) запомнить идентификатор текущей записи. Запоминать либо в табличку в базе, либо в реестр (у меня в реестр запоминается)
2. На загрузке формы (Load) прочитать (напр. из реестра) запомненное значение идентификатора последней записи.
3. Используя св-во RecordsetClone по нужному идентификатору найти нужную запись
4. Отпозиционировать форму на найденную запись (используя св-ва Form.Bookmark и RecordsetClone.Bookmark)
5. Не забыть про случай, когда ничего не нашли (типа запись то запомнили, но ее кто-то успел грохнуть). Тогда никуда не позиционировать

Если что по пунктам не понятно - спрашивай. Хотя все это, в принципе, уже обсуждалось.
...
Рейтинг: 0 / 0
про форму
    #32372765
mursilka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пользователей устроило пока acLast
...
Рейтинг: 0 / 0
про форму
    #32372773
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Запись найденная с помощью

DoCmd.GoToRecord , , acLast

не всегда будет последней редактируемой(заносимой) в таблицу

Обнаружится это может через некоторое время - придется переделывать.
...
Рейтинг: 0 / 0
про форму
    #32372776
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 mursilka
Жалко мне твоих пользователей стало
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Private Sub Form_Load()
    Dim LastID As Long
    LastID = CLng(GetSetting( "трампампам v.1 . 0 ", Me.name,  "ID" ,  "0 "))
    FindRecord LastID
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SaveSetting  "трампампам v.1 . 0 ", Me.name,  "ID" , CStr(Nz(Me![ID].value,  0 ))
End Sub

Public Function FindRecord(ID As Long)
On Error GoTo Err_Handler
    Dim rstClone As Recordset
    Set rstClone = Me.RecordsetClone
    rstClone.FindFirst  "ID="  & ID

    If Not rstClone.NoMatch Then
        Me.Bookmark = rstClone.Bookmark
    End If
Exit_Label:
On Error Resume Next
    rstClone.Close: Set rstClone = Nothing
    Exit Function
Err_Handler:
    MsgBox Err.Description
    Resume Exit_Label
End Function
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / про форму
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]