Formas Rainbows procedūru teksti

Formas Rainbows procedūru teksti

Option Compare Database

Option Explicit

'                  P R O C E D Ū R A S

'-------------------------------------------------------

Private Sub all_Click()

On Error GoTo Err_All_Click

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "start"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_All_Click:

    Exit Sub

Err_All_Click:

    MsgBox Err.Description

    Resume Exit_All_Click

   

End Sub

'Izsauc formu - Exit, kura pabeidz programmas darbību un nodod vadību Windows operacionālajai sistēmai

'-----------------------------------------------------------------------------------------------

Private Sub exit_Click()

DoCmd.OpenForm "exit"

End Sub

'Izsauc formu Exit, kurā lietotājs var izvēlēties beigt programmas darbību

'-----------------------------------------------------------------------------------------------

Private Sub Form_Close()

 Dim Link As String

 DoCmd.OpenForm "exit", , , Link

End Sub

'Izsauc formu History, kurā tiek attēlota informācija par pārdotām precēm

‘-----------------------------------------------------------------------------------------------

Private Sub history_Click()

   

    DoCmd.OpenForm "history"

End Sub

'Izsauc formu - Print, kurā lietotājs var izvelēties drukāt datus uz printeri

‘---------------------------------------------------------------------------------------------

Private Sub print_Click()

   Dim choice As String

  

   'Atceras nospiesto radio pogas vērtību

   choice = Me.radio.Value

   'Ja nav nospiesta radio poga - Clients, tad atver formu - Print

   If choice <> 5 Then

      DoCmd.OpenForm "print"

    End If

   

   'Atkarība no nospiestās radio pogas, aizpilda formas Print neredzamo lauku

   '  ar izvēlēto posteni(neredzamais lauks ir nepieciešams,

   '  lai reports atlasītu datus pēc pārdevēja posteņa(tabulas lauks- Post))

  Select Case choice

   

    'Print Marketing directors

    Case 2:

              Forms!print!hidden_post.Caption = "Marketing Directors"

       

    'Print Dealers

    Case 3:

            Forms!print!hidden_post.Caption = "Dealers"

   

    'Print Talent Scouts

    Case 4:

            Forms!print!hidden_post.Caption = "Talent Scouts"

   

    'Print clients

    Case 5:   DoCmd.OpenForm "print_clients"

                Exit Sub

    End Select

   

    'Izsauc formu Print, kas pieprasa apstiprināt izdruku uz printeri

    DoCmd.OpenForm "print"

End Sub

'Izsauc formu - Sum, kura izvada informāciju par pārdotām precēm

Private Sub sums_Click()

  

    Dim post_criteria As String

    Dim x As Integer

   

    x = Me!radio.Value 'Nolasa, kura pēc kārtas radio poga ir nospiesta

 

  'Uzliek filtru uz formu - Sums, un izmaina formas virsrakstu

  ' uz izvēlēto posteni(radio pogas lauks - radio)

  Select Case x

   

     'Show all records

    Case 1:   DoCmd.OpenForm "Sum"

              Forms!Sum!C_post = "All"

       

    'Show Marketing directors

    Case 2:   DoCmd.OpenForm "Sum", , , "post = 'marketing director'"

              Forms!Sum!t_post.Caption = "Marketing Directors"

              Forms!Sum!C_post = "Marketing Director"

       

    'Show Dealers

    Case 3:   DoCmd.OpenForm "Sum", , , "post = 'dealer'"

              Forms!Sum!t_post.Caption = "Dealers"

              Forms!Sum!C_post = "Dealer"

   

    'Show Talent Scouts

    Case 4:   DoCmd.OpenForm "Sum", , , "post = 'talent scout'"

              Forms!Sum!t_post.Caption = "Talent Scouts"

              Forms!Sum!C_post = "Talent Scout"

   

   

End Select

End Sub

'Izsauc formu - All(sinonīms AllPeople) un uzliek filtru uz lauku post,

'                atkarībā no nospiestās radio pogas

Private Sub view_Click()

    Dim post_criteria As String

    Dim x As Integer

   

    x = Me!radio.Value

 

  'Kura pēc kartas radio poga ir nospiesta

  Select Case x

   

     'Show all records

    Case 1:   DoCmd.OpenForm "all"

              Forms!All!C_post = "All"

       

    'Show Marketing directors

    Case 2:   DoCmd.OpenForm "all", , , "post = 'marketing director'"

              Forms!All!t_post.Caption = "Marketing Directors"

              Forms!All!C_post = "Marketing Director"

       

    'Show Dealers

    Case 3:   DoCmd.OpenForm "all", , , "post = 'dealer'"

              Forms!All!t_post.Caption = "Dealers"

              Forms!All!C_post = "Dealer"

   

    'Show Talent Scouts

    Case 4:   DoCmd.OpenForm "all", , , "post = 'talent scout'"

              Forms!All!t_post.Caption = "Talent Scouts"

              Forms!All!C_post = "Talent Scout"

   

    'Show clients

    Case 5:   DoCmd.OpenForm "clients"

End Select

End Sub

'Atver noliktavas formu - WareHouse

Private Sub ware_house_Click()

    DoCmd.OpenForm "warehouse"

End Sub

Formas - All procedūru teksti

Option Compare Database

Option Explicit

'Pāriet jaunu ierakstu un pārvieto kursoru uz lauku - Surname

Private Sub add_Click()

   

    DoCmd.GoToRecord , , acNewRec

    Me!surname.SetFocus

End Sub

'Uzklikšķino divas reizes uz lauku - Address, tiek izsaukta formu,

' kura parāda informāciju par tekošā pārdevēja padotajiemun klientiem

Private Sub address_DblClick(Cancel As Integer)

   

    DoCmd.OpenForm "all_info", , , "id = [forms]![all]![id]"

End Sub

'Izmainot kontroles lauku - C_post, tiek atlasīti tiek ieraksti,

'  kuru lauks - Post sakrīt ar kontroles lauka - C_post vērtību

Private Sub c_post_AfterUpdate()

   

    If Me!C_post.Value = "all" Then

        DoCmd.ShowAllRecords

        Me!t_post.Caption = "All People"

    Else

        'Uzliek tekošajai fomai filtru

        DoCmd.ApplyFilter , "post=[forms]![all]![c_post].value"

       

        'Nomaina tekošās formas virsraksta saturu

        Me!t_post.Caption = Me!C_post.Value + "s"

    End If

   

    'Kad ir izmainīts formas filtrs, ir nepieciešams atjaunot formas tabulas informāciju,

    Me.Requery

    Me.Refresh

   

End Sub

'Uzklikšķino divas reizes uz lauku - Chief, tiek izsaukta formu,

' kura parāda informāciju par tekošā pārdevēja padotajiem un klientiem

Private Sub chief_DblClick(Cancel As Integer)

   

    DoCmd.OpenForm "all_info", , , "id = [forms]![all]![id]"

End Sub

'Uzklikšķino divas reizes uz lauku - City, tiek izsaukta formu,

' kura parāda informāciju par tekošā pārdevēja padotajiem un klientiem

Private Sub city_DblClick(Cancel As Integer)

   

    DoCmd.OpenForm "all_info", , , "id = [forms]![all]![id]"

End Sub

'Izsauc Reportu - All un uzliek uz šo reportu atlases nosacījumu

Private Sub print_preview_Click()

   

    Dim x, where As String

  

    x = Me!t_post.Caption

    

    'Atkarībā no tekoša formas virsraksta(domāts formas lauka - t_post saturs),

    ' izmaina atlases nosacījumu

    Select Case x

   

    Case "all people":           where = ""

    Case "marketing directors":  where = "post = 'Marketing Director'"

    Case "dealers":              where = "post = 'Dealer'"

    Case "talent scouts":              where = "post = 'Talent Scout'"

    End Select

            

            

    'Atver reportu - All

    DoCmd.OpenReport "all", acPreview, , where

    'Izmaina Reporta - All virsrakstu, atkarībā no tekošās formas virsraksta

   Select Case x

   

    Case "all people":

          Reports!All!header_all_people.Visible = True

          Reports!All!header_marketing_directors.Visible = False

          Reports!All!header_dealers.Visible = False

          Reports!All!header_talent_scouts.Visible = False

   

    Case "marketing directors":

          Reports!All!header_all_people.Visible = False

          Reports!All!header_marketing_directors.Visible = True

          Reports!All!header_dealers.Visible = False

          Reports!All!header_talent_scouts.Visible = False

   

   

    Case "dealers":

          Reports!All!header_all_people.Visible = False

          Reports!All!header_marketing_directors.Visible = False

          Reports!All!header_dealers.Visible = True

          Reports!All!header_talent_scouts.Visible = False

   

    Case "talent scouts":

          Reports!All!header_all_people.Visible = False

          Reports!All!header_marketing_directors.Visible = False

          Reports!All!header_dealers.Visible = False

          Reports!All!header_talent_scouts.Visible = True

  

    End Select

End Sub

'Uzklikšķino divas reizes uz lauku - Name, tiek izsaukta formu,

' kura parāda informāciju par tekošā pārdevēja padotajiem un klientiem

Private Sub name_DblClick(Cancel As Integer)

   

    DoCmd.OpenForm "all_info", , , "id = [forms]![all]![id]"

End Sub

'Aizver formu(tekošo) AllPeople

Private Sub close_Click()

   

    DoCmd.close

End Sub

'Izmet tekošo ierakstu

Private Sub delete_Click()

On Error GoTo Err_delete_Click

   

    Me!surname.SetFocus

   

   

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_delete_Click:

    Exit Sub

Err_delete_Click:

   

    If Err.Number <> 2501 Then

       MsgBox Err.Description

    End If

    Resume Exit_delete_Click

    Me!surname.SetFocus

End Sub

'Izmetot ierakstu pāriet pārvieto kursoru uz tabulas lauku - Surname

Private Sub Form_AfterDelConfirm(status As Integer)

        Me!surname.SetFocus

End Sub

'Deaktivizē pogas - Modify, Delete, Add un

'     aizliedz mainīt tekošās formas tabulas informāciju

Private Sub view_Click()

   

    Me!C_post.Visible = False

    Me!Choose_Post.Visible = False

   

    Me!delete.Enabled = False

    Me!surname.SetFocus

   

    Me!add.Enabled = False

   

    Me!modify.Enabled = True

   

    Me!view.Enabled = False

    Me.AllowEdits = False

    Me.AllowAdditions = False

    Me.AllowDeletions = False

    Me.Refresh

End Sub

'Uzklikšķino divas reizes uz lauku - Phone, tiek izsaukta formu,

' kura parāda informāciju par tekošā pārdevēja padotajiem un klientiem

Private Sub phone_DblClick(Cancel As Integer)

   

    DoCmd.OpenForm "all_info", , , "id = [forms]![all]![id]"

End Sub

'Uzklikšķino divas reizes uz lauku - Post, tiek izsaukta formu,

' kura parāda informāciju par tekošā pārdevēja padotajiem un klientiem

Private Sub post_DblClick(Cancel As Integer)

   

    DoCmd.OpenForm "all_info", , , "id = [forms]![all]![id]"

End Sub

'Izsauc formu Print, kurā lietotājs var izvēlēties drukāt datus uz printeri

Private Sub print_Click()

    DoCmd.OpenForm "print"

   

    Forms!print!hidden_post.Caption = Forms!All!t_post.Caption

End Sub

'Uzklikšķino divas reizes uz lauku - Surname, tiek izsaukta formu,

' kura parāda informāciju par tekošā pārdevēja padotajiem un klientiem

Private Sub surname_DblClick(Cancel As Integer)

    DoCmd.OpenForm "all_info", , , "id = [forms]![all]![id]"

End Sub

'Nospiežot pogu Modidfy, lietotājam tiek atļauts

' mainīt formas tabulas lauku saturu

Private Sub modify_Click()

    Me!C_post.Visible = True

    Me!Choose_Post.Visible = True

   

    Me!view.Enabled = True

    Me!surname.SetFocus

   

    Me!delete.Enabled = True

    Me!add.Enabled = True

    Me!modify.Enabled = False

    Me.AllowEdits = True

    

    Me.AllowAdditions = True

    Me.AllowDeletions = True

    Me.Refresh

   

   

   

End Sub

'Tiek izsaukta Access`a forma - Find,

'   kura nodrošina infomācijas meklēšanu formas tabulā

Private Sub find_Click()

On Error GoTo Err_find_Click

    Screen.PreviousControl.SetFocus

    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_find_Click:

    Exit Sub

Err_find_Click:

    MsgBox Err.Description

    Resume Exit_find_Click

   

End Sub

Formas - Clients procedūru teksti

Option Compare Database

Option Explicit

'Nostājās uz jaunu ierakstu un pārvieto kursoru uz lauku - Surname

Private Sub add_Click()

   

    DoCmd.GoToRecord , , acNewRec

    Me!surname.SetFocus

End Sub

'Izsauc Reportu - Clients

Private Sub print_preview_Click()

   

    DoCmd.OpenReport "clients", acPreview

End Sub

'Aizver formu - Clients

Private Sub close_Click()

   

    DoCmd.close

End Sub

'Izmet tekošo ierakstu

Private Sub delete_Click()

On Error GoTo Err_delete_Click

   

    Me!surname.SetFocus

   

   

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_delete_Click:

    Exit Sub

Err_delete_Click:

   

    If Err.Number <> 2501 Then

       MsgBox Err.Description

    End If

    Resume Exit_delete_Click

    Me!surname.SetFocus

End Sub

'Izsauc Access formu - Find, kura nodrošina

' informācijas meklēšanu tekošās formas tabulā

Private Sub find_Click()

   

    Screen.PreviousControl.SetFocus

    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

End Sub

'Pēc ieraksta izdēšanas, pārvieto kursoru uz tabulas lauku - Surname

Private Sub Form_AfterDelConfirm(status As Integer)

        Me!surname.SetFocus

End Sub

'Atļauj lietotājam mainīt formas tabulas saturu

Private Sub modify_Click()

   

    Me!delete.Enabled = False

    Me!surname.SetFocus

   

    Me!add.Enabled = False

   

    Me!view.Enabled = True

   

    Me!modify.Enabled = False

    Me.AllowEdits = False

    Me.AllowAdditions = False

    Me.AllowDeletions = False

    Me.Refresh

End Sub

'Atver formu - Print_Clients, kur lietotājs var izvēlēties

'               drukāt infromāciju uz printeri

Private Sub print_Click()

    DoCmd.OpenForm "print_clients"

End Sub

'Aizliedz lietotājam mainīt formas tabulas saturu

Private Sub view_Click()

    Me!modify.Enabled = True

    Me!surname.SetFocus

   

    Me!delete.Enabled = True

    Me!add.Enabled = True

    Me!view.Enabled = False

    Me.AllowEdits = True

   

    Me.AllowAdditions = True

    Me.AllowDeletions = True

    Me.Refresh

End Sub