Премирование Сотрудников

Private Sub КнВставитьЛичности_Click() ' Огромная кнопка "Вставить Личности"
Dim sVal$
    If Len(Me.ВыборГода & "") = 0 Or Me.Код_Организации.ListIndex = -1 Then
        MsgBox "Нет данных же!", vbExclamation, "Низ-з-з-з-зЯ!"
        Exit Sub
    End If
    
    If Me.фпЧленскиеВзносы.Form.Recordset.RecordCount > 0 Then
        If MsgBox("Данные уже есть!" & vbCrLf & "Перезаписать?", _
            vbYesNo + vbQuestion + vbDefaultButton2, _
            "Низ-з-з-з-зЯ!") = vbNo Then Exit Sub
            
        sVal = "DELETE FROM ЧленскиеВзносы" & vbCrLf & _
            "WHERE ((КодОрганизацииЧВ=" & Me.Код_Организации & ") AND (ГодЧВ=" & Me.ВыборГода & "));"
        CurrentDb.Execute sVal
    End If
    
    sVal = "INSERT INTO ЧленскиеВзносы ( КодЛичностиЧВ, КодОрганизацииЧВ, ГодЧВ )" & vbCrLf & _
        "SELECT Личности.Код_Личности, " & _
            Me.Код_Организации & " AS КодПородительногоОргана, " & _
            Me.ВыборГода & " AS Год" & vbCrLf & _
        "FROM Личности INNER JOIN ЛичностиОрганизации ON Личности.Код_Личности = ЛичностиОрганизации.КодЛичностиЛО" & vbCrLf & _
        "WHERE (ЛичностиОрганизации.КодСтатусаЛО=1);"
 
    'Debug.Print sVal
    CurrentDb.Execute sVal
    
' Принудительное обновление формы - опционально - но не повредит.
    Me.фпЧленскиеВзносы.Form.Requery
    MsgBox "Готово!", vbInformation, "Зя!"
    
End Sub