Запрос на создание записей в таблице.

[superpsih]

Добрый день. Помогите, пожалуйста, написать запрос на создание записей в таблице.
Задача следующая. В форме есть два числовых поля.
В первую переменную вытаскиваем значение первого поля

i=[Forms]![Form1]![text1]

Во вторую переменную вытаскиваем значение второго поля:

string=[Forms]![Form1]![text2]

Теперь делаем цикл

 For n=1 To i
?????
Next n

В результате этого цикла должно появиться в Table1 число записей равное i с именем i+"string".
Например, вбиты два числа: 3 и 247 в итоге должны появиться записи с:
1_247
2_247
3_247
Как это реализовать?

[superpsih]

Upd: Извиняюсь за создание темы. Решил сам через

Set rst = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)
rst.AddNew

[misha333]

есть Таблица1
в ней три поля

поле1
поле2
поле3

есть форма form1

в форме вставил еще одно поле4

задача такова в поле4 выбрать максимальное число из поле1 поле2 поле3

написал вот такой код:

Public Function vbMAX()
Dim a As Double
a = поле1
If a < поле2 Then a = поле2
If a < поле3 Then a = поле3
'may be continue

vbMAX = a

End Function


все работает прекрасно но есть все же одна проблемка следующего рода....

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


и второй проблема,,,,значения находит после того как сохранены ,,,а можно ли сделать так чтобы значения выводились сразу же после их ввода???

[VinniPuh]

Сообщение от misha333

есть Таблица1
в ней три поля

поле1
поле2
поле3

есть форма form1
...

Попробуйте поля обрамлять в - Nz
Типа так:
=(Nz([Поле1];0))+(Nz([Поле2];0))+(Nz([Поле3];0))
Если поле пусто, то будет считаться как - 0, а не - Null/

[misha333]

спасибо сам разобрался с причинной была ошибка...не правильно определил переменную

вопрос следующий огромная просьба кто может помогите
есть Таблица1
в ней три поля

поле1
поле2
поле3

есть форма form1

в форме вставил еще одно поле4

задача такова в поле4 выбрать максимальное число из поле1 поле2 поле3

написал вот такой код:

Public Function vbMAX()
Dim a As Double
a = поле1
If a < поле2 Then a = поле2
If a < поле3 Then a = поле3
'may be continue

vbMAX = a

End Function


все работает прекрасно

вопросы следующие

1 если переменная a=0 выводить в поле4 сообщение
2 если пустое значение то есть ничего не введенно выводить в поле4 другое сообщение
3 установить по умолчанию значения в каждом поле свое определенное


заранее спасибо