ник: Дядя Федор
Ну и что.
Можно подправить.
Вот я прикинул ( табличная форма)
Option Compare Database
Option Explicit
Dim TEKID%
Private Sub Form_Current()
TEKID = Me.NOMER 'это ваш список
End Sub
Private Sub nomer_AfterUpdate()
If TEKID <> Me.NOMER Then
CurrentDb.Execute ("UPDATE Tablmestaparkodri SET ZANATO=FALSE WHERE ID=" & TEKID & ";")
CurrentDb.Execute ("UPDATE Tablmestaparkodri SET ZANATO=TRUE WHERE ID=" & Me.NOMER.Column(0) & ";")
Me.NOMER.Requery
End If
End Sub
'Таблица Tablmestaparkodri
'ID - идентификатор места
'NOMER - номер места
'ZANATO - да/нет
'Таблица авто-место
'Ida - идентификатор авто
'NOMER - номер места 'это список с источником
'на форме
'Ida - идентификатор авто
'NOMER - 'это список с источником
'SELECT Tablmestaparkodri.ID, Tablmestaparkodri.NOMER, Tablmestaparkodri.zanato FROM Tablmestaparkodri WHERE (((Tablmestaparkodri.zanato)=False));
'остальные поля по усмотрению
'к Ida можно привязать марку, владельца и т.п.
|
-> скрин
для корректности присоед.столбец - 2 - номер.