SELECT tblModelsInArtikul.Id_Artikul, tblModelsInArtikul.ModelInArt, tblModelSizes.Size, 
	tblModelSizes.Note, tblModelsInArtikul.ModelCount
FROM tblModelSizes INNER JOIN tblModelsInArtikul ON 
	tblModelSizes.Model_code = tblModelsInArtikul.ModelInArt
WHERE (((tblModelsInArtikul.Id_Artikul)=[Forms]![frmArtikul_Viewer]![Id_Artikul]))
ORDER BY tblModelsInArtikul.ModelInArt;

tblModelSizes	tblModelsInArtikul 
 -------------	------------------
 
Model_code  8  ----1 ModelInArt
 
Size		Id_Artikul
Note		ModelCount

RowSource = SELECT tblModel.Model_code, tblModelSizes.Size, tblModelSizes.Note, tblModel.Model_name, 
	iif(tblModelSizes.Model_code is null,False,true) AS Check 
FROM tblModel LEFT JOIN tblModelSizes ON tblModel.Model_code = tblModelSizes.Model_code;

CurrentDb.Execute  "INSERT INTO tblModelSizes ( Model_code, Size, [Note] ) "  _
        &  "VALUES ( "  "" & Me.cmbModel.Value & "  "", "  "" & strSize & "  "", "  "" & strNote & "  "" );" 

Me.RecordSource = Me.RecordSource

Me.Id_Artikul.Value = Me.lblArtikulId.Caption
Me.cmbModel.RowSource = Me.cmbModel.RowSource
Me.lblModel.Caption = Me.cmbModel.Value
Me.RecordsetClone.Bookmark = Me.Bookmark
Me.cmbModel.Value = Me.cmbModel.OldValue
Me.RecordSource = Me.RecordSource
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.cmbModel.Value = Me.lblModel.Caption
Me.RecordSource = Me.RecordSource
Me.Bookmark = Me.RecordsetClone.Bookmark

SELECT tblModelsInArtikul.Id_Artikul, tblModelsInArtikul.ModelInArt, tblModelSizes.Size, 
	tblModelSizes.Note, tblModelsInArtikul.ModelCount ...

SELECT tblModelsInArtikul.Id_Artikul, tblModelsInArtikul.Model_code, tblModelSizes.Size, 
	tblModelSizes.Note, tblModelsInArtikul.ModelCount ...

Private Sub cmbModel_AfterUpdate()
Dim rst As Recordset
Dim strSize As String
If Me.cmbModel.Column( 4 ) Then Exit Sub
Set rst = Me.RecordsetClone
  rst.FindFirst  "[ModelInArt] = '" & Me![cmbModel] & "'" 
  If rst.NoMatch Then
    strSize = Me.GetSizeFromName(Me.cmbModel.Column( 3 ))
    rst.AddNew
      rst.Fields( "Id_Artikul" ) = Int(Me.lblArtikulId.Caption)
      rst( "ModelInArt" ) = Me.cmbModel.Value
      rst( "Model_code" ) = Me.cmbModel.Value
      rst( "Size" ) = IIf(strSize =  "", Null, strSize)
      rst(" Note") = Me.GetNoteFromName(Me.cmbModel.Column( 3 ), strSize)
    rst.Update
    rst.Bookmark = rst.LastModified
  End If
  Me.lstModel.RowSource = Me.lstModel.RowSource
  Me.SetSelectionOnlst
  Me.cmbModel.RowSource = Me.cmbModel.RowSource
End Sub

tblModelSizes.Model_code  1 -> 8  tblModelsInArtikul.ModelInArt

стоитPrivate Sub Form_AfterUpdate()
  Me.lstModel.RowSource = Me.lstModel.RowSource
  Me.SetSelectionOnlst
End Sub

Sub SetSelectionOnlst()
On Error Resume Next
Dim i As Byte
  For i =  0  To Me.lstModel.ListCount
    If Me.lstModel.Column( 1 , i) = Me.cmbModel Then
      Me.lstModel.SetFocus
      Me.lstModel.Selected(i) = True
      Screen.PreviousControl.SetFocus
      Exit Sub
    End If
  Next i
  Screen.PreviousControl.SetFocus
End Sub