Вход VBA из поля со списком

Question

Это мой первый проект по разработке баз данных, и я немного потерян.

У меня есть форма с комбинированным ящиком, который подключен к уникальному количеству/количеству тепла. Когда я печатаю много цифр в своем Combo Box, он правильно вытягивает LotNumber из моих записей.

Как я могу теперь использовать эту запись в VBA? Мне нужно иметь возможность ссылаться на все поля записи, а также все поля предыдущей записи для расчета. Я могу программировать, но я просто не знаю синтаксиса.

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

Answer 1

Я не совсем понимаю, что вы подразумеваете под «предыдущей записью». Для того, чтобы получить доступ ко всем записям на основе выбранного LotNumber, вы могли бы сделать что-то вроде этого:

Dim db as Database 
Dim rec as Recordset 

Set db = CurrentDB 
Set rec = db.OpenRecordset ("Select * from MyTable where LotNumber = '" & Me.ComboBox.Value & "'") 

прна теперь держит набор данных всех записей, где LotNumber является то, что выбрано в вашем комбо. В зависимости от того, как вы хотите, чтобы выбрать «предыдущий рекорд», вы всегда можете создать еще один набор записей, как:

Set rec2 = db.OpenRecordset ("Select * from MyTable where Whatever = '" & SomeValue & "'") 

Если вы основываете его LotNumber минус 1, это будет что-то вроде:

Set rec2 = db.OpenRecordset ("Select * from MyTable where LotNumber = '" & (Me.ComboBox.Value) - 1 & "'") 

Тогда вы ссылаться на них, говоря:

MyVariable1 = rec("WhateverFieldName") 
MyVariable2 = rec("SomeOtherFieldName") 
MyVariable3 = rec2("WhateverFieldName") 
MyVariable4 = rec2("SomeOtherFieldName") 

следует отметить, что если ваш LotNumber является тип данных Integer, вы должны удалить одиночные кавычки в ИНЕКЕ.