Delphi ComboBox Нарушение прав доступа в выпадающем списке

Question

Я получаю сообщение об ошибке Access Access, но я знаю, что код правильный, так в чем может быть проблема? Я пытаюсь заполнить данные ComboBox с локальной AccessDB.

var i : integer;
    x : string;
begin
      with DataModule3.ADOTable1 do begin
         if RecordCount > 0 then
           for i := 1 to RecordCount do begin
             RecNo := i;
             x := FieldByName('Teacher').AsString;
             ComboBox1.Items.Add(x);
           end;
       end;
end;

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

Answer 1

Нарушение прав доступа возникает, скорее всего, из-за того, что вы забыли создать экземпляр модуля данных DataModule3, Проверьте это, вызвав Назначенную функцию.

Answer 2

begin
    with DataModule3.ADOTable1 do 
        if Active then
            while not Eof do
                begin
                    ComboBox1.Items.Add(FieldByName('Teacher').AsString);
                    Next;
                end;
end;