Search the Community

Sveiki, Izmantoju MS Access 13. Teiksim man ir query ar vairākām kolonām, kuras smuki vari paslēpt iekš query design view. Bet es gribu to izdarīt caur formu, kurā man ir izveidota meklēšana ar teksta laukiem katrai kolonai, kuros es ievadu kritērijus, kas aiziet uz query. Respektīvi, vēlos formā katram laukam pretī checkmarku, kuru ieķeksējot, attiecīgā kolonna, palaižot query, tiek paslēpta. Vai var kāds palīdzēt ar VBA kodu, kuru iespraust katram checkmarkam AfterUpdate notikumā? Paldies!

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.

Sveiki Formā izveidota Subform, kur redzami dati no tabulas. Nepieciešams, lai Footerī tukšajā Textboxā redzētu dominējošo granulometrisko sastāvu un klāt procentus. Esmu mēģinājis dažādi, bet līdz galam īsti nesanāk. Piemēram, vaicājums, kur tiek aprēķināta kopējā platība ar granulometrisko sastāvu - smilts: SELECT Sum(tbl_analizes.platiba) AS SumOfplatiba, tbl_analizes.gran_sast, tbl_analizes.[ID_lauks] FROM tbl_analizes GROUP BY tbl_analizes.gran_sast, tbl_analizes.[ID_lauks] HAVING (((tbl_analizes.gran_sast)="smilts") And (tbl_analizes.[ID_lauks]=Forms!tbl_analizes![ID_lauks])); Taču ideja ir noteikt to, kura platība ir procentuāli vislielākā. Eksperimentējot un ievietojot šo vaicājumu Textbox iekš Control Source, rezultātā Textbox rāda #Error un nepārtraukti mirgo. Varbūt kādam ir ideja? Paldies

Sveiki, Veidoju formu iekš MS Access ar vadības pogām, izveidoju vairākas pogas, bet pogas "Pievienot" nenostrādā, tas būtu ievadu datus, nospiežu pievienot, viss takā izpildās bez kļūdām, bet tabulā dati neparādās... Kur varētu būt problēma? P.S Sorry par dubultpostu, interneta kļūmes dēļ. Kods : Private Sub btnAdd_Click() 'kad spiežam uz pogas Pievienot tur ir divas opcijas '1. Pievienot '2. Atjaunot If Me.txtKlientaID.Tag & "" = "" Then 'tas ir priekš pievienot jaunu 'pievienot datus tabulai CurrentDb.Execute "INSERT INTO tblKlienti(KlientaID, Vards, Uzvards, Epasts, Talrunis, Valsts, Novads, Pilseta, Pagasts, PastaIndekss) " & _ "VALUES(" & Me.txtKlientaID & ",'" & Me.txtVards & "','" & _ Me.txtUzvards & "','" & Me.txtEpasts & "','" & _ Me.txtTalrunis & "','" & Me.cboValsts & "','" & _ Me.cboNovads & "','" & Me.cboPilseta & "','" & _ Me.cboPagasts & "','" & Me.txtPastaIndekss & "')" Else 'citādāk (Tag no KlientaID glabā id no lietotāja kas būs jāmaina) CurrentDb.Execute "UPDATE tblKlienti " & _ " SET KlientaID=" & Me.txtKlientaID & _ ", Vards='" & Me.txtVards & "'" & _ ", Uzvards='" & Me.txtUzvards & "'" & _ ", Epasts='" & Me.txtEpasts & "'" & _ ", Talrunis='" & Me.txtTalrunis & "'" & _ ", Valsts='" & Me.cboValsts & "'" & _ ", Novads='" & Me.cboNovads & "'" & _ ", Pilseta='" & Me.cboPilseta & "'" & _ ", Pagasts='" & Me.cboPagasts & "'" & _ ", PastaIndekss='" & Me.txtPastaIndekss & "'" & _ " WHERE KlientaID=" & Me.txtKlientaID.Tag End If ' 'attīrīt formu btnClear_Click 'atsvaidzina datus formā frmKlientiSub.Form.Requery End Sub

Iecerētais pielietojums: 1. useris autocad failā uz esošas topogrāfijas atzīmē vajadzīgos punktus 2. atzīmēto punktu koordinātas tiek eksportētas no acad uz excel vai nolasītas dwg failā no excel, 3. excelī tiek papildināti dati (autocad scale vērtības, slāņu vērtības utt) 4. no excel exportē datus autocad failā kur pēc tiem tiek izvietoti autocad bloki tie saskeiloti un ievietoti atbilstošos slāņos, utt. nezinu kas ir labākais risinājums, pieņemu ka vajadzīgais ir vba skripts izpildāms excelī vai autocadā. iepriekš minētajos punktos pieņemu ka skripts tiek izpildīts excelī, iespējams ka labāk ir skriptu darbināt autocadā. Mērķis ir maksimāli samazināt usera manuālās darbības.

Kāds var palīdzēt uzrakstīt šo uzdevumu? Ievadīt ar InputBox palīdzību matricas izmēru (rindu skaitu x un kolonu skaitu y). Aizpildīt šūnu apgabalu A1:XY ar skaitļiem 1, 2, 3, 4, ... pa spirāli atbilstoši savam variantam (tabulas piemēru pievienoju kā attēlu) Itkā visu varētu uzrakstīt tikai nesaprotu kā ciklu koriģēt lai tabula tā aizpildītos, it īpaši ka ar Input Box palīdzību jānorāda šūnu lauka izmēri.

Ir sekosjošs uzdevums: Vajag, lai uz ekrāna parādās dažādas fotografijas - bildes. Kaut kādā brīdī ir jāparādās šīsdienas vārdadienā apsveicamos. Izskatās pēc tādas - kā prezentācijas. Jādarbojas nepārtrauktā, cikliskajā režīmā. Der padomi realizācijā, vai piedāvājumi par atlidzību šamo uzstūķēt gatavu Nosacījums - jādarbojas uz open softa. Paldies visiem, par uzmanību