Прошу совета по оптимальному вводу данных с формы.

[Teslenko_EA]

Здравствуйте Uncle_Smith.
Поупражняйтесь с вариантом.
Евгений.

[Uncle_Smith]

Евгений, большое вам спасибо за пример! Обязательно разберу!

[Teslenko_EA]

Здравствуйте Uncle_Smith.
я обнаружил ошибку.
Прикреплен исправленный файл.
Евгений.

[Uncle_Smith]

Здравствуйте Евгений!
Большое спасибо за образец, классно реализован! Я понял в целом как все функционирует, но чувствую, что очень "плаваю" в VBA, не хватает опыта программирования на нем =(
Может быть посоветуете какую-нибудь литературу из своего опыта по VBA? Буду очень признателен!
Также обнаружил проблему, при работе БД на другой машине. При попытке экспортировать список в Excel, VB выдает ошибку "430"


MSOffice на обеих машинах стоит одинаковый.

[Uncle_Smith]

Евгений, добрый день!
Опять хочу обратиться к вам за помощью.
Возможно ли как-то обратиться к элементу списка? Например повесить, на отображаемое в списке значение, какое-либо условие?
Заранее спасибо!

[Teslenko_EA]

Здравствуйте Uncle_Smith.
способов решения может быть много, выбор за Вами, например:

Function savSelect(...)
	...
	occupied 'вызов "счетчика"
End Function

Private Sub Поле2_AfterUpdate()
	...
	occupied 'вызов "счетчика"
End Sub
Function occupied() 'конструкция "счетчика"
Const s1 = "Мест: ", s2 = ",  свободно: "
Dim i%, j%, sArr()
Dim r As ADODB.Recordset: Set r = New ADODB.Recordset
r.Open Список4.RowSource, CurrentProject.Connection
sArr = r.GetRows(r.RecordCount)
For i = 0 To Список4.ListCount - 1
    If Len(sArr(1, i) & "") = 0 Then j = j + 1
Next
Надпись5.Caption = s1 & Список4.ListCount & s2 & j
End Function

Евгений.

[Uncle_Smith]

Евгений, большое спасибо за помощь!

[Uncle_Smith]

Здравствуйте Евгений!
Опять хочу с вами посоветоваться
Для одного из итоговых отчетов мне понадобилось кол-во пассажиров едущих на конкретном рейсе. Для этого я добавил в таблице "Рейсы" поле "Пассажиров". Для записи количества пассажиров я решил использовать функцию savCount. Однако есть проблема: поле Id_рейс в таблице Рейсы имеет тип счетчик. А значение Id_рейс в Поле2 - числовое. Вылетает ошибка несоответствия типов данных в условии выборки (const Sq). Можно ли как-нибудь решить эту проблему?
Заранее спасибо!

Фрагмент кода:

Private Sub Кнопка12_Click() ' сохранение
Поле62 = cj ' свободно мест
Поле71 = Список4.ListCount - cj ' занято мест
z = Поле71
x = Поле2.Column(0)
savCount x, z
End Sub

Function savCount(s$, t$) As Long
Const Sq = "SELECT Id_рейс FROM Рейсы WHERE Id_рейс='"
Const sQa = "INSERT INTO Рейсы ( Пассажиров ) values ( '"
Dim r As DAO.Recordset
Set r = CurrentDb.OpenRecordset(Sq + s + "'")
If r.EOF Then
    r.Close
    CurrentDb.Execute sQa + t + "' )"
    Set r = CurrentDb.OpenRecordset(Sq + s + "'")
    If r.EOF Then Exit Function
    savCount = r(0)
Else
    savCount = r(0)
End If
r.Close
Set r = Nothing
End Function

[Uncle_Smith]

Извиняюсь, я кажется нашел ошибку.
В условии Where Id_рейс не нужен апостроф. Соответственно в (Sq + s + ) тоже. Однако все равно значение не заносится в таблицу.

[Teslenko_EA]

Здравствуйте Uncle_Smith.
"Можно ли как-нибудь решить эту проблему?", думаю необходимо не решать проблему, а отказаться от её создания, не создавая поле "Пассажиров", необходимости в нём нет. Данные о числе пассажиров для отчета, можно получать из подобной SQL конструкции:

SELECT Id_рейс, Дата, 
(SELECT Марка FROM Автобусы WHERE Id_автобус=автобус_Id) AS Автобус, 
(SELECT Count(рейс_Id) FROM Билеты WHERE рейс_Id=Id_рейс) AS Билетов
FROM Рейсы

Евгений.