ник: Lukas
Private Sub Список10_DblClick(Cancel As Integer)
With Me.подчиненная_форма_Применение_картриджа.Form
.RecordsetClone.FindFirst "КодКартриджа=" & Me.Список10
If .RecordsetClone.NoMatch Then
.Recordset.AddNew
.[Осн/совм] = Me.Переключатель18
Else
MsgBox "Глаза протри!"
End If
End With
End Sub
|
А по-хорошему, тех картриджей, что уже выбраны в правом списке быть не должно.
Да, и доступа к подчиненной форме и правому списку не должно быть, пока не выбран принтер в левом списке.