Dim cbr As CommandBar

Dim WithEvents cbrHistory As CommandBarButton
Dim WithEvents cbrDepozit As CommandBarButton


public sub AAAA()
 Dim qd As DAO.QueryDef
 Dim rst As DAO.Recordset
 Dim x As Long
 Dim Kopa As Single
 Dim cbrButActionDelete As CommandBarButton
 Dim cbrButActionEdit As CommandBarButton
 Dim cbrCaption As CommandBarButton
 Dim cbrBut As CommandBarPopup

        Set qd = CurrentDb.QueryDefs("_GetDebtPaymentsList")
        qd!parUserID = globalContractOperationUserID
        qd!parContractID = globalContractID
        qd!parOperationID = globalContractOperationID
        
        On Error Resume Next
            cbr.ShowPopup
            CommandBars("Debts").Delete
        On Error GoTo  0 
        
        Set cbr = CommandBars.Add("Debts", Position:=msoBarPopup, Temporary:=False)
        
        Set cbrHistory = cbr.Controls.Add(msoControlButton, , ,  1 , True)
        cbrHistory.Caption = "Parada maksajums"
        cbrHistory.FaceId =  1643 
        
        If DebtSum =  0  Then
            cbrHistory.Enabled = False
        Else
            cbrHistory.Enabled = True
        End If
        
        Set rst = qd.OpenRecordset(, dbOpenForwardOnly)
        x =  2 
        Kopa =  0 
        If rst.RecordCount >  0  Then
            Set cbrCaption = cbr.Controls.Add(msoControlButton, , , x, True)
            cbrCaption.Caption = "Parada maksajuma vesture"
            cbrCaption.FaceId =  487 
            cbrCaption.BeginGroup = True
           
            Do While Not rst.EOF
                
                x = x +  1 
                Kopa = Kopa + rst!PaymentSum
                
                Set cbrBut = cbr.Controls.Add(msoControlPopup, , rst!DebtPaymentID, x, True)
                cbrBut.Caption = rst!PaymentDate & "  " & Format(rst!PaymentSum, "0.00") & "Ls  " & IIf(rst!PaymentConfirmed, "+", "-")
              
                Set cbrButActionEdit = cbrBut.Controls.Add(msoControlButton, , rst!DebtPaymentID)
                cbrButActionEdit.Caption = "Rediget"
                cbrButActionEdit.FaceId =  2042 
                cbrButActionEdit.OnAction = "=ActionEdit()"
                cbrButActionEdit.Parameter = rst!DebtPaymentID
                
                Set cbrButActionDelete = cbrBut.Controls.Add(msoControlButton, , rst!DebtPaymentID)
                cbrButActionDelete.Caption = "Dzest"
                cbrButActionDelete.FaceId =  1088 
                cbrButActionDelete.OnAction = "=ActionDelete()"
                cbrButActionDelete.Parameter = rst!DebtPaymentID
                
                rst.MoveNext
                
            Loop
            Set cbrCaption = cbr.Controls.Add(msoControlButton, , - 1 , x +  1 , True)
            cbrCaption.FaceId =  226 
            cbrCaption.Caption = "Kopa:           " & Format(Kopa, "0.00Ls")
            cbrCaption.BeginGroup = True
        End If
a:
        On Error Resume Next
            cbr.ShowPopup
            CommandBars("Debts").Delete
        On Error GoTo  0 
end sub

If Button And acRightButton Then
    AAAA
  End If