Сравнения значений столбца с полем формы - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы