ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / НЕ пугайтесь тут чуть - чуть
35 сообщений из 35, показаны все 2 страниц
  все  
НЕ пугайтесь тут чуть - чуть
    #32196398
nana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nana
Гость
Извините я вам уже надоела!(простите пожалуйста)ну еще чуть чуть осталось .
Есть список в котором выводятся все названия фильмов и есть кнопка добавить фильм на кнопке программка небольшая
Private Sub Кнопка75_Click() 'новый фильм
'открываем форму Список фильмов
DoCmd.OpenForm "Список фильмов"
'и переходим на новую запись
DoCmd.GoToRecord , "Список фильмов", acNewRec
End Sub

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

а как ты определишь
что строка новая или
старая?
...
Рейтинг: 0 / 0
01.07.2003, 17:11
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196465
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
Список? ListBox чтоль?
...
Рейтинг: 0 / 0
01.07.2003, 17:12
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #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:14
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196471
nana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nana
Гость
а как ты определишь
что строка новая или
старая?

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

Список? ListBox чтоль?
Наверное он у мнея список называеться по умолчанию
...
Рейтинг: 0 / 0
01.07.2003, 17:16
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196475
nana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nana
Гость
ЛОх ты конечно прости меня но я не знаю как запомнить счетчик??из 1 пункта
...
Рейтинг: 0 / 0
01.07.2003, 17:19
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #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:22
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196480
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
Не парься вот твой максимальный счетчик
ИмяПеременнойИзПункта1 = DMax("ИмяКлючевогоПоля", "TableName")
...
Рейтинг: 0 / 0
01.07.2003, 17:23
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196481
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуф-нуф
Участник
Гы Надо всетаки жмать "Ответить", когда текст уже набрат, а набирать в паде... //мысли в слух :)
...
Рейтинг: 0 / 0
01.07.2003, 17:23
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #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:24
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196487
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
О как все наотвечали то
Надо учиться быстрее клаву топтать
...
Рейтинг: 0 / 0
01.07.2003, 17:26
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196498
Фотография Нуф-нуф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуф-нуф
Участник
Гы... Лох, ты через приватную переменную да еще в форме собрался что-то передавать из другой формы?
...
Рейтинг: 0 / 0
01.07.2003, 17:31
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196499
nana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nana
Гость
Я просто пытаюсь это сделать
...
Рейтинг: 0 / 0
01.07.2003, 17:31
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196508
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
2 Нуф-Нуф
Неа. Не в другую форму. В этой же форме (на Unload) дергаю другую форму (за Requery, RecordsetClone и Bookmark). Никуда я ничего не передаю
Внимательнее нада читать аднака
...
Рейтинг: 0 / 0
01.07.2003, 17:35
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196515
nana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nana
Гость
rst.FindFirst "[Код в картотеки]=" & mlngID

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

Ой марос марос...
Блин, ну почему у меня такая работа? То дни рождения пачками, сегодня диплом обмываем. Так ведь никакой печени не хватит.
...
Рейтинг: 0 / 0
01.07.2003, 18:09
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196559
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Лох, бери пример с меня. Кто не курит и не пьет...
...
Рейтинг: 0 / 0
01.07.2003, 18:15
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196568
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
...тот до смерти доживет
...
Рейтинг: 0 / 0
01.07.2003, 18:25
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196594
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Тот здоровеньким помрет. По-моему, в оригинале было так.
...
Рейтинг: 0 / 0
01.07.2003, 18:47
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196686
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
оригинал сосет
не переставая
...
Рейтинг: 0 / 0
01.07.2003, 22:12
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196688
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
пьяный я в попидузник..................
...
Рейтинг: 0 / 0
01.07.2003, 22:18
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196751
nana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nana
Гость
Написала
Dim rrst As Recordset
Dim strSQL
strSQL = "SELECT MAX Код_в_картотеки FROM Картотека ;"
Set rrst = CurrentDb.OpenRecordset(strSQL)
rrst.MoveFirst
Me.[Код в картотеки].Value = rrst.Fields(0)
rrst.Close
но почемуто все равно не работает хоть и ошибок не выдает:-/
...
Рейтинг: 0 / 0
02.07.2003, 07:29
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196799
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
strSQL = "SELECT MAX ( Код_в_картотеки ) FROM Картотека ;"
...
Рейтинг: 0 / 0
02.07.2003, 09:14
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32196810
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
Народ ну чё вы девицу то путаете, ей же чем проще тем лучше

nana всёчто в посте от Дата: сегодня, 07:29 на
Код: plaintext
Me.[Код в картотеки].Value = DMax( "Код_в_картотеки" ,  "Картотека" )

и будет счастие тебе
...
Рейтинг: 0 / 0
02.07.2003, 09:26
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32197499
nana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nana
Гость
>Me.[Код в картотеки].Value = DMax("Код_в_картотеки", "Картотека")
Может я это не туда пишу по этому не работает??
НАформа в которой я добавляю фильм у меня есть кнопка сохранить:
Private Sub Кнопка8_Click()
On Error GoTo Err_Кнопка8_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Кнопка8_Click:
Exit Sub
Err_Кнопка8_Click:
MsgBox Err.Description
Resume Exit_Кнопка8_Click
End Sub
на неё я и пишу или я не права????
...
Рейтинг: 0 / 0
02.07.2003, 16:25
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32197517
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Вот после DoCmd и пиши
...
Рейтинг: 0 / 0
02.07.2003, 16:32
| Ответить | Цитировать | Написать  
НЕ пугайтесь тут чуть - чуть
    #32197860
nana
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nana
Гость
Писала не помогает!
...
Рейтинг: 0 / 0
03.07.2003, 01:20
| Ответить | Цитировать | Написать  
35 сообщений из 35, показаны все 2 страниц
  все  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / НЕ пугайтесь тут чуть - чуть
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=45&tid=1680750]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 82ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 72ms
get tp. blocked users:
 1ms
others: 230ms
total:  432ms
созд. / загр.: 432ms
x
x
Закрыть


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