Jump to content

MS Access VBA Case statement too large

TOR

TOR,
in Programmēšana

 Share

Recommended Posts

TOR

TOR

Ierakstīts
Ierakstīts

Sveiki,

 

Esmu iesācējs Visual basic un programmēšanā kā tādā.. Problēma drošvien pavisam muļķīga - Procedure too large! Šāda problēma, kad procedūra satur pārāk daudz koda rindu var noteikti gadīties tikai ar pilnīgiem noobiem.. Tātad, man kodā ir nodefinēts Select Case ar vismaz 17 dažādiem Case gadījumiem, zem katra gadījuma ir kaudze ar izteiksmēm, kuras liela daļa visos gadījumos atkārtojas. Kāpēc? Jo Access formā man ir dropdowns, pēc kura atlases (tātad šeit nostrādā select case) parādās papildus ievades logi, tobiš katram gadījumam ir no 2 līdz 6 ievades logiem, kuri top Visible attiecīgajai izvēlei, un pie katras izvēles tiek nohaidoti ievades lauki pārējiem 16 gadījumiem. Rezultātā sanāk milzīga procedūra, kura galu galā izmet erroru - procedure too large. Ar google palīdzību netika skaidrs kā varētu sadalīt šada veida procedūru vairākās mazākās procedūrās, saglabājot to pašu funkcionalitāti, jeb arī kā izvairīties no tik repetitīva koda.. ceru uz kāda gudrāka palīdzību. :)

Link to comment
Share on other sites
TOR

TOR

  • Author

Pats kods jau nav problemātisks, tas vienkārši pārsniedz VBA 64k limitu vienai procedūrai, vismaz cik es zinu. Viss Select Case statement man ir uz 2500 rindiņām. Pašam tomēr izdevās sadalīt to visu 3 atsevišķās procedūrās un izsaukt tās galvenajā _AfterUpdate() klases laukā. Gribētos tikai zināt, kā būtu pratīgāk t.i. īsāk tāda veida Case'us apstrādāt, jo normāla prakse tā acīmredzot nav..

Link to comment
Share on other sites
Mezavecis

Mezavecis

Interesanti būtu zināt, kādā veidā var sanākt tik daudz to casu gadījumu? Ja kods neierūmējas 64k, tad noteikti tur iekš katra case iebāzts vesels koda blāķis, kas atkārtojas n reizes. Derētu nosacījumus sagrupēt. Ja tiek analizētas tekstuālās vērtības, tad labāk if..else izmantot. 

Link to comment
Share on other sites
TOR

TOR

  • Author

Tur jau tā problēma, ka katram Case'am ir milzīgs skaits ar koda rindiņām, no kurām gandrīz visas katram Case'am atkārtojas, līdz ar to kods izskatās pēc pilnīga draņķa. Bet kkā es nespēju izdomāt citu risinājumu, lai katram Case'am kļūtu redzami tam attīecīgie ievades lauki, un tai pat laikā noslēptos pārējo Case'u ievades lauki. īsāk sakot ja no dropdown A,B vai C es izvēlos A, tad parādās redzami A lauki un noslēpjas B un C lauki. toties ja pēctam izvēlos C, tad parādās C lauki un noslēpjas A un B ievades lauki..

Link to comment
Share on other sites
androidss

androidss

Vari tos koda blāķus pārtaisīt par funkcijām un katrā case izsaukt attiecīgo funkciju. Performance, loģiski, mazliet pasliktināsies, bet izskatās, ka šajā gadījumā tas nav aktuāli. Jebkurā gadījumā iemet te savu kodu, nav te telepātu...

Link to comment
Share on other sites
ju

ju

Es nezinu vai ir, bet ja ir, tad var kādu masīvu varbūt izmantot.

Ja jau tur tik daudz kas atkārtojas, varbūt var pie katra CASE salikt divus nosacījumus, un tā samazināt visu par kārtu?

Bet te tiešām jāredz kods. 

Link to comment
Share on other sites
Mezavecis

Mezavecis

Ja case atkārtojas, tak nevajag katru reizi to atkārtot un vajag sagrupēt pēc kopīgām pazīmēm. 

Dim number As Integer = 8
Select Case number
    Case 1 To 5
        Debug.WriteLine("Between 1 and 5, inclusive")
        ' The following is the only Case clause that evaluates to True. 
    Case 6, 7, 8
        Debug.WriteLine("Between 6 and 8, inclusive")
    Case 9 To 10
        Debug.WriteLine("Equal to 9 or 10")
    Case Else
        Debug.WriteLine("Not between 1 and 10, inclusive")
End Select
Link to comment
Share on other sites
camel

camel

Iespējams, ka tos case var sarakstīt tbulā, kur kolonnas atbilstu katram combobox un rindiņas katram case (to var ērti izdarīt iekš excel un pēc tam pārkopēt uz access). Atverot formu šo tabulu varētu nolasīt masīvā vai tur afterupdate meklēt atbilstošo case tabulā, ...

Link to comment
Share on other sites
TOR

TOR

  • Author

Paldies par idejām. Ja būs laiks varbūt pamēģināšu izmantot tabulas, bet pašlaik problēmu atrisināju ar sadalīšanu vairākās funkcijās, kuras izsaucu pēc Combo157_AfterUpdate(). ok, iemetu šeit rekordcienīgu Case bloku ;D šis vēl ir neizlabotais variants.

Private Sub Combo157_AfterUpdate()
Me.txtpar.Value = Me.Combo157.Column(0)
Me.Combo61.Requery
Me.txtpar.Requery
Me.txtnosacijums.Value = Me.Combo157.Column(2)
Me.txtproduktu.Value = Me.Combo157.Column(3)
Me.txttestesanas.Value = Me.Combo157.Column(4)
Me.visitesti.Requery


Select Case True

'Gadījums ja testa nosaukums satur "Hidrostat"
Case InStr(Combo157.Column(0), "Hidrost")
    hidr1.Visible = True
    hidr2.Visible = True
    Box185.Visible = True
    Label174.Visible = True
    p.Visible = True
    Label222.Visible = True
    hidro.Visible = True
    Label222.Visible = True
    pozitivs.Visible = True
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    hidrotogl.Visible = True
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
    
'Gadījums ja testa nosaukums satur "Noturība pret iekšējo spiedienu"
Case InStr(Combo157.Column(0), "Noturība pret iekšējo spiedienu")
    hidr1.Visible = True
    hidr2.Visible = True
    Box185.Visible = True
    Label174.Visible = True
    p.Visible = True
    Label222.Visible = True
    hidro.Visible = True
    Label222.Visible = True
    pozitivs.Visible = True
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    hidrotogl.Visible = False
    spiednoturtogl.Visible = True
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "Pagarin"
Case InStr(Combo157.Column(0), "Pagarin")
    pag1.Visible = True
    pag5.Visible = True
    Label174.Visible = True
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    hidro.Visible = False
    p.Visible = True
    pozitivs.Visible = True
    Label222.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    hidrotogl.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = True
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False

'Gadījums ja testa nosaukums satur "Apaļumst"
Case InStr(Combo157.Column(0), "Apaļumst")
    a1.Visible = True
    a2.Visible = True
    a3.Visible = True
    a4.Visible = True
    a5.Visible = True
    Label174.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    hidro.Visible = False
    Label222.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = True
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "Aploces elastīgums"
Case InStr(Combo157.Column(0), "Aploces elastīgums")
    apl1.Visible = True
    apl2.Visible = True
    apl3.Visible = True
    apl4.Visible = True
    apl5.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    hidro.Visible = False
    Label222.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = True
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "Apaļumstiprība (moment. un pēc 3 min)"
Case InStr(Combo157.Column(0), "Apaļumstiprība (moment. un pēc 3 min)")
    apa1.Visible = True
    apa2.Visible = True
    apa3.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    hidro.Visible = False
    Label222.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = True
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "Meh"
Case InStr(Combo157.Column(0), "Meh")
    meh1.Visible = True
    meh2.Visible = True
    meh3.Visible = True
    meh4.Visible = True
    meh5.Visible = True
    meh6.Visible = True
    meh7.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    hidro.Visible = False
    Label222.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = True
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "Noturība pret sasp"
Case InStr(Combo157.Column(0), "Noturība pret sasp")
    not1.Visible = True
    not2.Visible = True
    not3.Visible = True
    not4.Visible = True
    not5.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    hidro.Visible = False
    Label222.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = True
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "Liesmu"
Case InStr(Combo157.Column(0), "Liesmu")
    ug1.Visible = True
    ug2.Visible = True
    ug3.Visible = True
    ug4.Visible = True
    ug5.Visible = True
    ug6.Visible = True
    ug7.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    Label222.Visible = False
    hidro.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    Label222.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = True
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False

'Gadījums ja testa nosaukums satur "aploces met"
Case InStr(Combo157.Column(0), "aploces met")
    aploc1.Visible = True
    aploc2.Visible = True
    aploc3.Visible = True
    aploc4.Visible = True
    aploc5.Visible = True
    aploc6.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    Label222.Visible = False
    hidro.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    Label222.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = True
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "slodzes met"
Case InStr(Combo157.Column(0), "slodzes met")
    slo1.Visible = True
    slo2.Visible = True
    slo3.Visible = True
    slo4.Visible = True
    slo5.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    Label222.Visible = False
    hidro.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    Label222.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = True
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "Triecienizturība,"
Case InStr(Combo157.Column(0), "Triecienizturība,")
    triec1.Visible = True
    triec2.Visible = True
    triec3.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    Label222.Visible = False
    hidro.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    Label222.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = True
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "Liece"
Case InStr(Combo157.Column(0), "Liece")
    liece1.Visible = True
    liece2.Visible = True
    liece3.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    Label222.Visible = False
    hidro.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    Label222.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = True
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "Kausējum"
Case InStr(Combo157.Column(0), "Kausējum")
    kaus1.Visible = True
    kaus2.Visible = True
    kaus3.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    Label222.Visible = False
    hidro.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    Label222.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = True
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "OIT"
Case InStr(Combo157.Column(0), "OIT")
    oit1.Visible = True
    oit2.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    Label222.Visible = False
    hidro.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    Label222.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = True
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "Krāsns"
Case InStr(Combo157.Column(0), "Krāsns")
    kras1.Visible = True
    kras2.Visible = True
    kras3.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    oit1.Visible = False
    oit2.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    Label222.Visible = False
    hidro.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    Label222.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = True
    stieptogl.Visible = False
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "Stiepes iz"
Case InStr(Combo157.Column(0), "Stiepes iz")
    stie1.Visible = True
    stie2.Visible = True
    stie3.Visible = True
    stie4.Visible = True
    stie5.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    Label222.Visible = False
    hidro.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    Label222.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = True
    garentogl.Visible = False
    
'Gadījums ja testa nosaukums satur "Garenvirz"
Case InStr(Combo157.Column(0), "Garenvirz")
    gar1.Visible = True
    gar2.Visible = True
    gar3.Visible = True
    gar4.Visible = True
    p.Visible = True
    pozitivs.Visible = True
    Label174.Visible = True
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    Label222.Visible = False
    hidro.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    Label222.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    spiednoturtogl.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    atrums.Visible = False
    garums.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = True
          
'Gadījums ja testa nosaukums satur jebko citu, tad visi rezultātu ievades lauki tie noslēpti
Case Else
    
    hidr1.Visible = False
    hidr2.Visible = False
    Box185.Visible = False
    Label174.Visible = False
    p.Visible = False
    Label222.Visible = False
    hidro.Visible = False
    pozitivs.Visible = False
    pag1.Visible = False
    pag2.Visible = False
    pag3.Visible = False
    pag4.Visible = False
    pag5.Visible = False
    Label222.Visible = False
    a1.Visible = False
    a2.Visible = False
    a3.Visible = False
    a4.Visible = False
    a5.Visible = False
    apl1.Visible = False
    apl2.Visible = False
    apl3.Visible = False
    apl4.Visible = False
    apl5.Visible = False
    apa1.Visible = False
    apa2.Visible = False
    apa3.Visible = False
    meh1.Visible = False
    meh2.Visible = False
    meh3.Visible = False
    meh4.Visible = False
    meh5.Visible = False
    meh6.Visible = False
    meh7.Visible = False
    not1.Visible = False
    not2.Visible = False
    not3.Visible = False
    not4.Visible = False
    not5.Visible = False
    ug1.Visible = False
    ug2.Visible = False
    ug3.Visible = False
    ug4.Visible = False
    ug5.Visible = False
    ug6.Visible = False
    ug7.Visible = False
    aploc1.Visible = False
    aploc2.Visible = False
    aploc3.Visible = False
    aploc4.Visible = False
    aploc5.Visible = False
    aploc6.Visible = False
    slo1.Visible = False
    slo2.Visible = False
    slo3.Visible = False
    slo4.Visible = False
    slo5.Visible = False
    triec1.Visible = False
    triec2.Visible = False
    triec3.Visible = False
    liece1.Visible = False
    liece2.Visible = False
    liece3.Visible = False
    kaus1.Visible = False
    kaus2.Visible = False
    kaus3.Visible = False
    oit1.Visible = False
    oit2.Visible = False
    kras1.Visible = False
    kras2.Visible = False
    kras3.Visible = False
    stie1.Visible = False
    stie2.Visible = False
    stie3.Visible = False
    stie4.Visible = False
    stie5.Visible = False
    gar1.Visible = False
    gar2.Visible = False
    gar3.Visible = False
    gar4.Visible = False
    mitrums.Visible = False
    temperatura.Visible = False
    atrums.Visible = False
    garums.Visible = False
    str2.Visible = False
    Diametrs.Visible = False
    biezums.Visible = False
    hidrotogl.Visible = False
    p1p.Visible = False
    p2p.Visible = False
    p3p.Visible = False
    p4p.Visible = False
    p5p.Visible = False
    p6p.Visible = False
    p7p.Visible = False
    p8p.Visible = False
    p9p.Visible = False
    p10p.Visible = False
    p11p.Visible = False
    p12p.Visible = False
    pagbox.Visible = False
    testilg2.Visible = False
    testtemp.Visible = False
    spiednoturtogl.Visible = False
    pieceshape.Visible = False
    prasiba.Visible = False
    pagarintogl.Visible = False
    apalumtogl.Visible = False
    deform.Visible = False
    elasttogl.Visible = False
    mehtogl.Visible = False
    noturtogl.Visible = False
    Plaisas.Visible = False
    liesmtogl.Visible = False
    burner.Visible = False
    vairmazbox.Visible = False
    aplocresultobt.Visible = False
    aploctogl.Visible = False
    slodztogl.Visible = False
    fall.Visible = False
    ball.Visible = False
    triectogl.Visible = False
    liectogl.Visible = False
    batch.Visible = False
    raw.Visible = False
    matmfrset.Visible = False
    matmfract.Visible = False
    pipemfrset.Visible = False
    mfrchng.Visible = False
    kaustogl.Visible = False
    parmasa.Visible = False
    piezimes.Visible = False
    oittogl.Visible = False
    krasnstogl.Visible = False
    stieptogl.Visible = False
    garentogl.Visible = False
    
End Select
End Sub
Link to comment
Share on other sites
AndrisBB

AndrisBB

(labots)

Kapēc no sākuma visus tos kontrolus nepadarīt neredzamus un tad katra case gadijumā tikai vajadzīgos redzamus?

Labots - AndrisBB
  • Patīk 2
Link to comment
Share on other sites
camel

camel

(labots)

Bet forma ar 130 combobox, ... vai tik tā nav nelietderīga (apmaksāta) darba laika izšķērdēšana. Kā tas viss tiek izvietots formā, būtu vismaz tab control izmantojis ar tiem 17 tabiem, kas automātiski pārslēdzas, bet vēl labāk būtu izmantot subformu ar grid.

Labots - camel
Link to comment
Share on other sites
TOR

TOR

  • Author

no kurienes 130 comboboxi? visi tie daudzie ievades lauki formā teorētiski atrodas viens virs otra, bet iekš Form View attēlojas tikai tie kas ir nepieciešami, jeb atbilst Case gadījumam.

Link to comment
Share on other sites
HIGH-Zen

HIGH-Zen

 

man 2.5k rindu vieta sanak 350

http://www.codeshare.io/CrWVY

Ja tiešām visa tā čupa ar kontroļiem ir noteikti jāsakrāmē vienuviet un nekā citādi, tad vienkāršāk būtu tos padarīt neredzamus ciklā.

 

Par VBA limitu runājot, es teiktu, ka topikstarteris ir ļoti čakls un neatlaidīgs cilvēks. :sarkasms:

  • Patīk 2
Link to comment
Share on other sites

Izveido kontu, vai pieraksties esošajā, lai komentētu

Jums ir jābūt šī foruma biedram, lai varētu komentēt tēmas

Izveidot jaunu kontu

Piereģistrējies un izveido jaunu kontu, tas būs viegli!

Reģistrēt jaunu kontu

Pierakstīties

Jums jau ir konts? Pierakstieties tajā šeit!

Pierakstīties tagad!
 Share
Iet uz tēmu sarakstu
×
×
  • Izveidot jaunu...