Автономер и новая запись / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автономер и новая запись

14 сообщений из 14, страница 1 из 1

Автономер и новая запись

#32872675

rulez22

Гость

Задача: программно создать новую запись с номером +1, вставить текущую дату-время, перейти на эту запись и показать в обновленном виде. Выполняется успешно но до уровня перехода на запись, т.е. она отображается в таком виде. Приходится тыкать на программную кнопку "предыдущая запись" и потом "следующая запись" и тогда видно обновление. Пытался делать Me.refresh, me.requery - не помогает. Все равно поле booking number пустое и поле ID имеет значение autonumber. Фотка приложена. Код на кнопку "следующая запись" такой:

Код: 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.
27.
28.

Private Sub tw_go_nextrecord_Click()
On Error Resume Next
Dim VN As Double
  VN = RBev!bookingnumber +  1 
  RBev.MoveNext
  If Not RBev.EOF Then
  Selectie = "SELECT * FROM maindata WHERE bookingnumber = " & RBev!bookingnumber
        Forms.dannie1.RecordSource = Selectie
  Else
     If MsgBox(" New record ? ", vbYesNo, " New record") = vbYes Then
        RBev.Index = "bookingnumber"
        r_search = "bookingnumber"
        RBev.MoveLast
        RBev.AddNew
        RBev!bookingnumber = VN
        RBev!bookingdate = Now()
        RBev.Update
        RBev.MoveLast
        Selectie = "SELECT * FROM dannie1 WHERE bookingnumber = " & RBev!bookingnumber
        Forms.dannie1.RecordSource = Selectie
        Forms.dannie1.clientname.SetFocus
     Else
       RBev.MoveLast
       Selectie = "SELECT * FROM dannie1 WHERE bookingnumber = " & RBev!bookingnumber
         Forms.dannie1.RecordSource = Selectie
         Forms.dannie1.clientname.SetFocus
     End If
  End If
End Sub

...

Рейтинг:

0 / 0

19.01.2005, 15:35:18

| Ответить | Цитировать | Написать

Автономер и новая запись

#32872712

rulez22

Гость

фотки тут
http://22.0catch.com/form1.gif - это при переходе на новую запись
http://22.0catch.com/form2.gif - это после отката назад и снова вперед, т.е. данные вставляются

...

Рейтинг:

0 / 0

19.01.2005, 15:46:25

| Ответить | Цитировать | Написать

Автономер и новая запись

#32872721

Kelme

Участник

Откуда: Riga, Latvia

Сообщения: 1 483

Рейтинг: 0 / 0

код просто великолепный
индекс то зачем?
переменная VN объявлена типа double, хотя по идее должна быть Long
да и ваще... ;)
--------------
crazy about...

...

Рейтинг:

0 / 0

19.01.2005, 15:51:03

| Ответить | Цитировать | Написать

Автономер и новая запись

#32872735

rulez22

Гость

дак мне не шашечки, мне ехать.. Не профессионал в акцессе, главное чтобы работало..

...

Рейтинг:

0 / 0

19.01.2005, 15:55:26

| Ответить | Цитировать | Написать

Автономер и новая запись

#32872766

Bagin

Участник

Сообщения: 830

Рейтинг: 0 / 0

rulez22Пытался делать Me.refresh, me.requery - не помогает.Запомнить ID необходимой записи, сделать Forms.dannie1.RecordSource = Selectie, переход на нужную запись или просто переход на последнюю запись, если уверены, что она самая та

...

Рейтинг:

0 / 0

19.01.2005, 16:05:34

| Ответить | Цитировать | Написать

Автономер и новая запись

#32872787

rulez22

Гость

А где и как именно в коде сделать это можно поподробнее пожалуйста?

...

Рейтинг:

0 / 0

19.01.2005, 16:12:19

| Ответить | Цитировать | Написать

Автономер и новая запись

#32872837

Bagin

Участник

Сообщения: 830

Рейтинг: 0 / 0

там, где Вы пытались делать Me.refresh, me.requery, в самом конце кода
А обязательно делать RBev!bookingdate = Now() программно, может по-умолчанию сделать и не мучаться
И вот еще, или я не понимаю или как. Вместо:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

     If MsgBox(" New record ? ", vbYesNo, " New record") = vbYes Then
        RBev.Index = "bookingnumber"
        r_search = "bookingnumber"
        RBev.MoveLast
        RBev.AddNew
        RBev!bookingnumber = VN
        RBev!bookingdate = Now()
        RBev.Update
        RBev.MoveLast
        Selectie = "SELECT * FROM dannie1 WHERE bookingnumber = " & RBev!bookingnumber
        Forms.dannie1.RecordSource = Selectie
        Forms.dannie1.clientname.SetFocus
     Else
       RBev.MoveLast
       Selectie = "SELECT * FROM dannie1 WHERE bookingnumber = " & RBev!bookingnumber
         Forms.dannie1.RecordSource = Selectie
         Forms.dannie1.clientname.SetFocus
     End If

Можно сделать:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

     If MsgBox(" New record ? ", vbYesNo, " New record") = vbYes Then
        RBev.Index = "bookingnumber"
        r_search = "bookingnumber"
        RBev.MoveLast
        RBev.AddNew
        RBev!bookingnumber = VN
        RBev!bookingdate = Now()
        RBev.Update
     End If
     RBev.MoveLast
     Selectie = "SELECT * FROM dannie1 WHERE bookingnumber = " & RBev!bookingnumber
     Forms.dannie1.RecordSource = Selectie
     Forms.dannie1.clientname.SetFocus

...

Рейтинг:

0 / 0

19.01.2005, 16:24:33

| Ответить | Цитировать | Написать

Автономер и новая запись

#32872871

rulez22

Гость

Хм, сделал. Так же данные вставляет но не обновляется на экране. Опять приходится откатываться.

...

Рейтинг:

0 / 0

19.01.2005, 16:32:03

| Ответить | Цитировать | Написать

Автономер и новая запись

#32872912

Bagin

Участник

Сообщения: 830

Рейтинг: 0 / 0

Приведите пожалуйста код

...

Рейтинг:

0 / 0

19.01.2005, 16:41:35

| Ответить | Цитировать | Написать

Автономер и новая запись

#32873152

rulez22

Гость

Как вы сказали так и сделал
Private Sub tw_go_nextrecord_Click()
Dim VN As Long
VN = RBev!bookingnumber + 1
RBev.MoveNext
If Not RBev.EOF Then
Selectie = "SELECT * FROM dannie1 WHERE bookingnumber = " & RBev!bookingnumber
Forms.dannie1.RecordSource = Selectie
Else
If MsgBox(" New record? ", vbYesNo, " New record") = vbYes Then
RBev.Index = "bookingnumber"
r_search = ""
RBev.MoveLast
RBev.AddNew
RBev!bookingnumber = VN
RBev!bookingdate = Now()
RBev.Update
End If
RBev.MoveLast
Selectie = "SELECT * FROM dannie1 WHERE bookingnumber = " & RBev!bookingnumber
Forms.dannie1.RecordSource = Selectie
End If
End Sub

...

Рейтинг:

0 / 0

19.01.2005, 18:06:46

| Ответить | Цитировать | Написать

Автономер и новая запись

#32873178

Bagin

Участник

Сообщения: 830

Рейтинг: 0 / 0

Не вижу чего-то такого.
Может поместите свою базу на форум, оставив только то, что касается Вашего вопроса, чтобы посмотреть в действии.

...

Рейтинг:

0 / 0

19.01.2005, 18:17:05

| Ответить | Цитировать | Написать

Автономер и новая запись

#32873192

GUESТ

Участник

Сообщения: 2 601

Рейтинг: 0 / 0

а это что еще такое?

>:|

http://22.0catch.com/Nazi%20symbol%201.jpg

...

Рейтинг:

0 / 0

19.01.2005, 18:21:18

| Ответить | Цитировать | Написать

Автономер и новая запись

#32873229

rulez22

Гость

2 Bagin: могу закинуть файл целиком на почту. Если сообщите емайл на icq 47-58-00-25

...

Рейтинг:

0 / 0

19.01.2005, 18:32:39

| Ответить | Цитировать | Написать

Автономер и новая запись

#32873317

rulez22

Гость

может как-нибудь через букмарки можно?

...

Рейтинг:

0 / 0

19.01.2005, 19:22:32

| Ответить | Цитировать | Написать

14 сообщений из 14, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автономер и новая запись

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=32872721&tid=1669192]:	0ms
get settings:	8ms
get forum list:	14ms
check forum access:	2ms
check topic access:	2ms
track hit:	34ms
get topic data:	6ms
get forum data:	2ms
get page messages:	31ms
get tp. blocked users:	1ms
others:	208ms

total:	308ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы