Private Sub id_prod_AfterUpdate()
Me.id_prod = UCase(Left((Me.id_prod),  1 )) & Mid(Me.prod,  2 )  'аналог маски 
Me.zak = Me!id_prod.Column( 2 )  'подставляю значения 
Me.procent = Me!id_prod.Column( 3 )  ' ---//--- 
Me.kol =  0 
If Me.zak >  0  Then  ' проверка и расчет итогов 
    Me.roz = Round((Me.procent * Me.zak /  100  + Me.zak),  1 )
    If Me.id_prod <> "Тара" Then Me.s_roz = Me.kol * Me.roz
    Me.s_zak = Me.kol * Me.zak
End If
If [post]![fl] = True And [shop]![fl] = True Then  ' проверка на наличие в справ. 
    If [Prod1]![fl] = False Then
        If [Forms]![osn]![zapros] =  3  Then  ' проверка на надобность сообщения 
            vopr = "В справочник добавлен продукт: " & _
                      Me.id_prod & " от поставщика: " & Me.id_post
            MsgBox vopr, , "Изменения в справочнике продуктов!"
        End If
        Me.[Prod1]![prod] = Me.id_prod  ' обновление спавочников 
        Me.[Prod1]![fl] = True
        Me.[prod]![id_post] = Me.id_post
        Me.[prod]![id_prod] = Me.id_prod
        Me.[prod].Requery
        Me.[Prod1].Requery
        Me.Form.Refresh
    End If
    Me.kol.SetFocus
Else
    If [post]![fl] = False And [shop]![fl] = True Then
        MsgBox "Не выбран Поставщик!"
        Me.id_prod = Null
        Me.id_post.SetFocus
    Else
        MsgBox "Не выбран Магазин!"
        Me.id_shop.SetFocus
    End If
End If
End Sub

Private Sub id_prod_LostFocus()
If [Prod1]![fl] = True Then Me.Form.Refresh

End Sub 

If Me.sprav = "Стоим.прод." Then
    sel1 = "select id_prod "
    rs1 = " from Prod group by id_prod order by id_prod"
    Me.s_prod.Visible = True
    Me.s_shop.Visible = False
    Me.s_post.Visible = False
    Me.s_prod1.Visible = False
    Me.s_prod.Form.RecordSource = "select * from Prod order by id_prod"
End If
    Me.sprav1.RowSource = sel1 & rs1
    Me.sprav1.Requery