Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / НЕ пугайтесь тут чуть - чуть / 25 сообщений из 35, страница 1 из 2
  1  все
01.07.2003, 16:24
    #32196398
nana
nana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
Извините я вам уже надоела!(простите пожалуйста)ну еще чуть чуть осталось .
Есть список в котором выводятся все названия фильмов и есть кнопка добавить фильм на кнопке программка небольшая
Private Sub Кнопка75_Click() 'новый фильм
'открываем форму Список фильмов
DoCmd.OpenForm "Список фильмов"
'и переходим на новую запись
DoCmd.GoToRecord , "Список фильмов", acNewRec
End Sub

после того как я ввела новый фильм и закрыла это окошко эта строка(в которой новый фильм) должна выделяться.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 16:45
    #32196426
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
тут аж 2 страницы по данному вопросу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:04
    #32196456
nana
nana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
но мне не надо открывать новую форму просто чтоб после закрытия той формы на главной высвечивалась эта запись
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:11
    #32196464
Хам трамвайный
Хам трамвайный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
выделить-то можно
по какому-либо
признаку

а как ты определишь
что строка новая или
старая?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:12
    #32196465
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
Список? ListBox чтоль?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:14
    #32196468
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
Сфагнум, ты чего девушку пугаешь?
Она еще подумает что ее куда-то неприлично послал.

2 нана
Тебе нужно:
1. После добавления записи запомнить в какую нибудь переменную идентификатор новой записи (чтоб потом по нему эту запись найти)
2. Перед закрытием (после добавления) обновить основную форму (со списком фильмов). Видимо, с помощью Forms![ИмяФормы].Requery. Это нужно чтобы там новая запись появилась
3. В основной (обновленной) форме найти нужную (добавленную) запись и встать на нее. Видимо так
Код: plaintext
1.
2.
3.
4.
5.
Dim rst As Recordset
Set rst = Forms![ИмяФормы].RecordsetClone
rst.FindFirst  "[ИмяКлючевогоПоля]="  & ИмяПеременнойИзПункта1
If Not rst.NoMatch Then
    Forms![ИмяФормы].Bookmark = rst.Bookmark
End If

4. п.2 и 3 запихать в Form_Unload (у "Списка фильмов"), п.1 - хз, как вариант в Form_AfterInsert

З.Ы. Третий раз писать не буду... А то за очередную тысячу выйду. И сопьюсь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:16
    #32196471
nana
nana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
а как ты определишь
что строка новая или
старая?

Ну я думаю может по максимальному счетчику???

Список? ListBox чтоль?
Наверное он у мнея список называеться по умолчанию
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:19
    #32196475
nana
nana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
ЛОх ты конечно прости меня но я не знаю как запомнить счетчик??из 1 пункта
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:22
    #32196477
Нуф-нуф
Нуф-нуф
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
...наши женщины прощают нам нашу слабость...

1. в основной форме сделать
Код: plaintext
1.
2.
3.
Public Sub FindAddedRecord(RecordID)
Docmd.FindRecord  "[ИмяКлючевогоПоля]="  & RecordID
'или как там через ДуЦмд оформляется (я в этих макросах = 0)?'
End sub

2. перед закрытием формы "Список фильмов" делаешь:
Код: plaintext
Forms( "ИмяПервойФормы" ).FindAddedRecord ИмяКлючевогоПоля


естественно, это лишь "направление"... тестировать надо...

...наши женщины прощают нам наши слезы... ны-ны-ны...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:23
    #32196480
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
Не парься вот твой максимальный счетчик
ИмяПеременнойИзПункта1 = DMax("ИмяКлючевогоПоля", "TableName")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:23
    #32196481
Нуф-нуф
Нуф-нуф
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
Гы Надо всетаки жмать "Ответить", когда текст уже набрат, а набирать в паде... //мысли в слух :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:24
    #32196484
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
прощу

Код: plaintext
1.
2.
3.
4.
Private mlngID As Long ' В начале модуля формы '

Private Sub Form_AfterInsert()
    mlngID = Me![ИмяКлючевогоПоля].Value
End Sub

Для этого нужно чтобы поле [ИмяКлючевогоПоля] входило хотя бы в запрос, на котором таблица висит (контрол под это поле можно не делать).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:26
    #32196487
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
О как все наотвечали то
Надо учиться быстрее клаву топтать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:31
    #32196498
Нуф-нуф
Нуф-нуф
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
Гы... Лох, ты через приватную переменную да еще в форме собрался что-то передавать из другой формы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:31
    #32196499
nana
nana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
Я просто пытаюсь это сделать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:35
    #32196508
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
2 Нуф-Нуф
Неа. Не в другую форму. В этой же форме (на Unload) дергаю другую форму (за Requery, RecordsetClone и Bookmark). Никуда я ничего не передаю
Внимательнее нада читать аднака
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:43
    #32196515
nana
nana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
rst.FindFirst "[Код в картотеки]=" & mlngID

На это ругаеться а именно на FindFirst
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:48
    #32196524
Нуф-нуф
Нуф-нуф
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
Эээээ... Лох... Это, сорри однака :) Не прав был...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:51
    #32196530
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
2 nana
При выполнении или при компиляции?
В ссылках погляди, у тебя DAO подключено?
Как подключать DAO - тут
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 17:56
    #32196535
nana
nana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
подключила но все равно ругается
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 18:05
    #32196545
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
Таки не было подключено? Тогда странно, что именно на этой строке ругалось. У тебя случаем не adp-проект? Или просто может еще и ADO подключено?
"Dim rst As Recordset" замени на "Dim rst As DAO.Recordset"
или я уже ничего не понимаю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 18:07
    #32196547
nana
nana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
Ой ладно я пошла спать а то в час ночи не очень что то делается
спасибо что пытались помочь
И как жаль что у меня так ничего и не вышло
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 18:08
    #32196551
nana
nana
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
Хорошо я попробую заменить
но тоько завтра
если не получится зайду опять у вас помоши просить
уж извените вы мнея!!!!!!!!!!111
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 18:09
    #32196552
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
Ниче, все выйдет.

Ой марос марос...
Блин, ну почему у меня такая работа? То дни рождения пачками, сегодня диплом обмываем. Так ведь никакой печени не хватит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2003, 18:15
    #32196559
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НЕ пугайтесь тут чуть - чуть
Лох, бери пример с меня. Кто не курит и не пьет...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / НЕ пугайтесь тут чуть - чуть / 25 сообщений из 35, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 322ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1680750]:
 0ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 26ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 2ms
others: 223ms
total:  322ms
x
x
Закрыть


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