| |
 34 Кб. |
|
| | Вроде все работает. Однако по выбору записи в верхнем списке во втором меняется сразу, а в форме только после выбора записи во втором списке. Как результат - если выбираем запись в первом, все меняется во втором, а форма продолжает показывать предыдущую запись и меняет лишь когда щелкнем во втором списке.
Выдернул из базы и пристегнул. Обновления формы не помогают. Что делать? | |
| |
| |
| |
|
|
| | а вот так
Private Sub Список10_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Пациенты"
With Me.Описание_заключение_рекомендации.Form
.Filter = "КодПротОбл=" & Me.Список30.Column(1)
.FilterOn = True
End With
Me.Описание_заключение_рекомендации.Requery
' stLinkCriteria = "[КодПациента]=" & Me![Список10]
' DoCmd.OpenForm stDocName, , , stLinkCriteria
'DoCmd.Close acForm, "Поиск ввод пациентов"
MsgBox ("А тут открвается форма для просмотра последней записи на данного хрена и ввода новых записей")
End Sub
|
| |
| |
| |
| |
|
|
| | Не. По открытию той формы (которой нет в данной вырезке) все ОК,
Вопрос в другом. Выбираем иванова. Там их 2 шт. Кликаем на одном из них. Во втором списке все отрабатывает, а в форме - нет. Кликаем во втором списке - получаем данные в форме. До этого момента все гуд.
Потом в первом списке выбираем другого иванова. Результат - в списке внизу все отарбатывает, а в форме - остаются старые данные на чужого иванова. Их бы лучше вовсе не было, чем такое торможение. Приходится снова кликать во втором списке и снова все ок.
Как заставить форму отрабатывать вместе со вторым списком, когда выбираем другую запись в первом списке? Выделять первую запись во втором списке автоматом по выбору записи в первом. Или еще как-то. refresh, requery не спасают. 
Пока только на формах работал замечаний не было. А тут вот новые технологии осваиваю. | |
| |
| |
| |
|
|
| | Кажись причина ясная. Во втором списке остается выделенная строка. Убрать выделение из списка. ???? | |
| |
| |
| |
|
|
| | Me.Список30.RowSource = vbNullString - обнуляет список. Может как-то продолжить? | |
| |
| |
| |
|
|
| |
Private Sub Список10_AfterUpdate()
With Me.Список30
.Requery
.Value = Null
End With
With Me.Описание_заключение_рекомендации.Form
.Filter = "False"
.FilterOn = True
End With
End Sub
|
Эвано, как-мо.  | |
| |
| |
| |
|
|
| | Лукас-чародей. Вот так и должно работать.
Я все же озадачусь вопросом, который поставит вас в тупик.  | |
| |
| |
|
|
|
|
| |
|
|
| | 1. Я что-то пропустил? где тупичек?
2. Ответить то можно на любой вопрос. Будет-ли правильным ответ - это уже другой вопрос.  | |
| |
| |
|
|
за Lukas_a
