Сравнения значений столбца с полем формы - VBA
Формулировка задачи:
Имеется столбец с ID неких объектов, также имеется форма с полем добавления новых значений для этого столбца.
Необходима проверка на совпадение введенного значения в поле на форме со значениями в столбце ID.
И сразу интересно следующее, возможно ли считать значения столбца и занести их в массив, а затем работать с тем массивом в цикле?
Решение задачи: «Сравнения значений столбца с полем формы»
textual
Листинг программы
Private Sub Кнопка1_Click() For i = 0 To count(Поле.[Код]) If Поле2 = командасчитываниязначениястроки(i) Then error_qn = 1 End If Next i If error_qn = 1 Then msgbox "Тест с данным номером уже существует, введите другой номер" Else On Error Resume Next Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("ÏðåïîäГ*ГўГ*òåëü", dbOpenDynaset) ' Г‚ ñëó÷Г*ГҐ äîáГ*âëåГ*ГЁГї ïðåïîäГ*ГўГ*òåëÿ rs.AddNew rs!ÏðåïîäГ*ГўГ*òåëü = Me!Ïîëå6 rs.Update rs.Close Set rs = Nothing Set rs = CurrentDb.OpenRecordset("Г’ГҐГ±ГІ", dbOpenDynaset) ' Г‚ ñëó÷Г*ГҐ âûáîðГ* ГЁГ§ èìåþùèõñÿ Г¤Г*Г*Г*ûõ rs.AddNew rs!Êîä = Me!Ïîëå2 rs!ГЌГ*çâГ*Г*ГЁГҐ = Me!Ïîëå4 rs!ÑîçäГ*òåëü = Me!Ïîëå6 rs!ÄèñöèïëèГ*Г* = Me!Ïîëå8 rs.Update rs.Close Set rs = Nothing On Error GoTo 0 End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д