| |
|
|
| | На событие открытия формы ставлю
DoCmd.DoMenuItem acFormBar, 3, 0, , acMenuVer70
Открывается окно пустое (все записи спрятаны), текущая - новая запись. А как сделать так, чтобы записи не прятались, а новая запись ставала текущей?
Заранее всем спасибо! | |
| |
| |
| |
|
|
| | DoCmd.GoToRecord <parameters> acNewRec | |
| |
| |
| |
|
|
| | Увы, то же самое. Все записи в форме спрятаны, пока не двинешь колесико мышки... На экране только текущая новая запись (пустая строчка) вверху формы. А хочется, чтобы новая (пустая) строчка была внизу, и она была текущей, а все строчки были видны на экране. | |
| |
| |
| |
|
|
| | а если записей больше чем влезает на экран - тогда как? | |
| |
| |
| |
|
|
| | Ну, вот именно. Пусть себе и не влезают! Но чтоб видно было все последние и новая в том числе (внизу формы). Пусть первых и не видно будет, это не важно. | |
| |
| |
| |
|
|
| | у тебя и так первых не видно - на acNewRec :) | |
| |
| |
| |
|
|
| | но и последних не видно! а надо, чтоб было видно последние и новая текущая!!!!!!!!! | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=46&Itemid=35
не катит?
или acLast
или
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
поле1.SetFocus | |
| |
| |
| |
|
|
| | в общем случае на новую запись можно идти только по явному указанию пользователя а не по умолчанию.
иначе это верный способ наплодить мусора в таблицах
впрочем это не суть - речь идет о позиционировании записей на экране.
на лебансе был пример | |
| |
| |
| |
|
|
| | не катит...
и это -
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
поле1.SetFocus
тоже не катит...
результат тот же -- записей не видно, только новая вверху ... | |
| |
| |
| |
|
|
| | на лебансе был пример
может есть что-то конкретно (ссылка?) | |
| |
| |
| |
|
|
| | все, ушел отсыпаться.
есть примеры в тырнете - поищи полазай. | |
| |
| |
| |
|
|
| | А так?
Private Sub Form_Load()
With Me.Recordset
If Not .EOF Then
.MoveLast
.Move -5
End If
.AddNew
End With
End Sub
|
| |
| |
| |
| |
|
|
| | Супер-Супер-Супер!!!!!! а я уже и не надеялась, что такое возможно!
Спасибо ОГРОМНОЕ !!!!!!!! | |
| |
| |
