Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 позволит получить значение числа с таблицы и увеличить его на едини  [new]
Adolis
Member

Откуда:
Сообщений: 67
Нужно создать функцию которая позволит получить значение числа с таблицы [Класифікатор_об'єкти] и увеличить его на единицу. Хотелось бы получить значение и увеличить его на единицу пользуясь одним SQL-запросом. Помогите сделать этот запрос.

Вот что я использую:

'Визначає останній номер
Function ГенераторНомера(Object As Variant) As String
  Dim rs1 As Recordset
  Dim db As Database
a1:
  ГенераторНомера = ""
  
  Set db = CurrentDb
  Set rs1 = db.OpenRecordset("SELECT * FROM [Класифікатор_об'єкти] WHERE [Код]= " & Object)
  ГенераторНомера = rs1.Fields("Останнє значення коду").Value

  DoCmd.SetWarnings False
  DoCmd.RunSQL "Update [Класифікатор_об'єкти]  SET [Останнє значення коду] = " & rs1.Fields("Останнє значення коду").Value + 1 & " WHERE [Код]= " & Object
  DoCmd.SetWarnings True
End Function
17 янв 07, 13:42    [3654112]     Ответить | Цитировать Сообщить модератору
 Re: позволит получить значение числа с таблицы и увеличить его на едини  [new]
mds_world
Member

Откуда: Ташкент
Сообщений: 27547
'Визначає останній номер
Function ГенераторНомера(Object As Variant) As String
  Dim rs1 As Recordset
  Dim db As Database
a1:

  Set db = CurrentDb
  Set rs1 = db.OpenRecordset("SELECT * FROM [Класифікатор_об'єкти] WHERE [Код]= " & Object)
  rs1.edit
  rs1("Останнє значення коду") = rs1("Останнє значення коду") + 1
  rs1.Update
End Function

Вы уже практически все получили. Только завершить. И все будет.
17 янв 07, 14:11    [3654384]     Ответить | Цитировать Сообщить модератору
 Re: позволит получить значение числа с таблицы и увеличить его на едини  [new]
mds_world
Member

Откуда: Ташкент
Сообщений: 27547
Вы используете переменые с именами зарезервированными VBA, я имею в виду Object. Это может привести к ошибкам.
17 янв 07, 14:14    [3654413]     Ответить | Цитировать Сообщить модератору
 Re: позволит получить значение числа с таблицы и увеличить его на едини  [new]
Adolis
Member

Откуда:
Сообщений: 67
>Вы используете переменые с именами зарезервированными VBA, я имею в виду Object. Это может привести к ошибкам.

Спасибо. несообразил я. Учту.

>Вы уже практически все получили. Только завершить. И все будет.

mds_world, спасибо. я попробую.
17 янв 07, 14:30    [3654575]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить