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
|