TOR Ierakstīts Janvāris 26, 2015 Share Ierakstīts Janvāris 26, 2015 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 More sharing options...
Borja Janvāris 26, 2015 Share Janvāris 26, 2015 Varbuut savu problemaatisko kodu arii ieposteesi? 1 Link to comment Share on other sites More sharing options...
TOR Janvāris 26, 2015 Author Share Janvāris 26, 2015 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 More sharing options...
Mezavecis Janvāris 26, 2015 Share Janvāris 26, 2015 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 More sharing options...
TOR Janvāris 26, 2015 Author Share Janvāris 26, 2015 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 More sharing options...
versatile Janvāris 26, 2015 Share Janvāris 26, 2015 Tak tāpēc jau palūdza koda fragmentu, ibio... Link to comment Share on other sites More sharing options...
androidss Janvāris 26, 2015 Share Janvāris 26, 2015 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 More sharing options...
ju Janvāris 26, 2015 Share Janvāris 26, 2015 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 More sharing options...
Mezavecis Janvāris 26, 2015 Share Janvāris 26, 2015 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 More sharing options...
camel Janvāris 26, 2015 Share Janvāris 26, 2015 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 More sharing options...
TOR Janvāris 26, 2015 Author Share Janvāris 26, 2015 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 More sharing options...
AndrisBB Janvāris 26, 2015 Share Janvāris 26, 2015 (labots) Kapēc no sākuma visus tos kontrolus nepadarīt neredzamus un tad katra case gadijumā tikai vajadzīgos redzamus? Labots Janvāris 26, 2015 - AndrisBB 2 Link to comment Share on other sites More sharing options...
TOR Janvāris 26, 2015 Author Share Janvāris 26, 2015 hmm... sajutos stulbs 1 Link to comment Share on other sites More sharing options...
AndrisBB Janvāris 26, 2015 Share Janvāris 26, 2015 man 2.5k rindu vieta sanak 350 http://www.codeshare.io/CrWVY Link to comment Share on other sites More sharing options...
TOR Janvāris 26, 2015 Author Share Janvāris 26, 2015 Paldies Tev! Link to comment Share on other sites More sharing options...
camel Janvāris 26, 2015 Share Janvāris 26, 2015 (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 Janvāris 26, 2015 - camel Link to comment Share on other sites More sharing options...
TOR Janvāris 26, 2015 Author Share Janvāris 26, 2015 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 More sharing options...
HIGH-Zen Janvāris 26, 2015 Share Janvāris 26, 2015 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. 2 Link to comment Share on other sites More sharing options...
Recommended Posts
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 kontuPierakstīties
Jums jau ir konts? Pierakstieties tajā šeit!
Pierakstīties tagad!