Option Explicit 'Zorgt ervoor dat alle variabelen verplicht gedeclareerd moeten worden.

Sub Main()        'Eerste procedure voor het gehele overzicht met knoppen en labels

'Declaratie van benodigde formuliercomponenten.
Dim Button1
Dim Label1
'Declaratie formulier zelf
Dim Frm

  Set Frm = Application.IsahForms.CreateEditForm 'Initialiseer het formulier

  Frm.Caption = "Managementrapportages"              'naam van het scherm
  Frm.SetBounds 0,0,540,540                          'afmetingen van het scherm
  'Frm.BackColor = RGB(255, 128, 128)
  Frm.Center

  ' Labels aanmaken
  Set Label1 = Frm.AddLabel( "Overzichten offertes boven 30.000 Euro:",20,40 )


 'knoppen van de rapportages aanmaken
  Set Button1 = Frm.AddButton("Button1","bekijk rapport",400,34,100,24)

Frm.ShowModal    'laat scherm zien

End Sub

  Sub IsahEvent_OnClick(Id)     'detecteer welke knop is ingedrukt en roep dan de desbetreffende functie aan

  Select case ID

  case 1:
  Overzicht_offertes_boven_30000()


  end select

End Sub
                         ' " AND Customer.GrpCode = '" & waarde & "'"

Sub   Overzicht_offertes_boven_30000()
         Dim strSql    'declaratie variabelen.
         Dim objQuery

         strSql = "Select CustomerAddress.Name AS Klantnaam, DossierMain.QuotNr AS Offertenummer,"&_
         " DossierMain.Description AS Omschrijving, Customer.Mnem AS Klantcode, "&_
         " DossierMain.CommTypeCode AS CommTypeCode, DossierMain.OrdType"&_
         " FROM DossierMain, Customer, CustomerAddress , DossierDetail"&_
         " WHERE DossierMain.CustId = Customer.CustId"&_
         " AND Customer.CustId = CustomerAddress.CustId" &_
         " AND  DossierMain.DossierCode = DossierDetail.Dossiercode" &_
         " AND  (DossierDetail.CurrPrice * DossierDetail.CalcQTY) > 30000"
         
         Set objQuery = Application.DataBase.CreateQuery( strSql )
         objQuery.Open
         objQuery.LookUp
         objQuery.Close
end sub