Příspěvky uživatele

potřebuji zamknout sešit v excelu, ale chci aby se to dělalo podle automaticky dle uživatele. nepotřebuju ho ani zamknout ale potřebuji zamezit jakýmkoliv změnám

Dobrý den,

mám zase jeden dotaz se kterým nemůžu hnout. Děkuji za pomoc.

Private Sub workbook_open()
List1.Protect ("111")
List2.Cells(1, 1) = Application.UserName

If List2.Cells(1, 1).Value = "Acer" Then
List2.Cells(1, 2) = "O"
Else: List2.Cells(1, 2) = "1"
End If

If List2.Cells(1, 2).Value = "0" Then
List1.Unprotect ("111")
End If
List2.Visible = xlSheetHidden
End Sub

toto vím, ale bojuji s tím aby se mi hodnota na formuláři v Number 3 vypočítala a uložila do databáze do sloupce Number3. když změním "Zdroj ovládacího prvku" Number3 za vzorec pak se mi to přestane ukládat do databáze. já potřebuji vypočítat na formuláři a uložit vypočítanou hodnotu do databáze.

pak bych měl problém ještě se sestavou. Vytvořil jsem si detailní sestavu a chci aby se netiskly všechny záznamy ale jen ten záznam který je zobrazen aktuálně ve formuláři.

Mám access 2003, prosím tedy jestli by jste mohl popsat postup pro access 2003.

Díky.

Ahoj,

vím, že to jsem možná nepatří, ale tady to je nejlepší fórum na VBA.

Prosím potřeboval bych poradit jak provádět výpočet přímo v zobrazeném formuláři v MS Access a poté uložit výpočet do databáze.

Je mi jedno jestli to bude pomocí VBA nebo mi poradíte jak to vytvořit pomocí nějakého průvodce co je v accessu nebo nějakou chytrou fintou.

Díky moc, jsem fakt v koncích.

Díky, funguje to...

To tam právě mam a já potřebuji změnit datum jen při změně. Při použití funkce Dnes() se datum aktualizuje při každém otevření sešitu.

Dobrý den,

potřeboval bych poradit, mám v sešitě datum a potřeboval bych aby když provedu nějakou změnu a uložím jí změnil se mi datum v dáné buňce.

Díky za radu.

Ještě bych chtěl poprosit jestli v listboxu jde zobrazit jako hypertext. Když budu mít ve sloupci C cestu C:\Download\Film.avi.

Díky

TO JE ONO!!!! Děkuju, každopádně klobouk dolu co tu děláte pro takové VBA lamy jako jsem já!!! díky

každopádně opět děkuji, ale potřebuji podle podmínky (ID) najít jméno a příjmení a zobrazit je v listBoxu. a snad nový zip bude lepší než ten předtím

Díky za radu, s těmi tlačítky. S tím listboxem jsem to myslel následovně. potřebuju aby se mi aktualizoval podle čísla v textbox. Takže když mam v TB hodnotu jedna vypíše mi to všechny jména kde je jednička.

Dobrý den,

snažím se přijít na to jak naprogramovat ComboBox2 tak aby když zvolím jednu z možností v comboboxu1 načetli se hodnoty jen pro danou hodnotu v CB1 tak za A) pokud nic nebude CB2 vidět B)Hodnota podle CB1

Snad jsem to popsal dobře. Nahodím i kod aspoň mi budete schopni říct kde dělám chybu

Private Sub userForm_Initialize()
ComboBox1.AddItem ""
ComboBox1.AddItem "Litoměřice"
ComboBox1.AddItem "Louny"
ComboBox1.AddItem "Mimoň"
ComboBox3.AddItem "Fyzická osoba"
ComboBox3.AddItem "Právnická osoba"
End Sub

Private Sub Combobox2_Change()
If ComboBox1.Value = 0 Then
ComboBox2.Visible = False
ElseIf ComboBox1.Value = "Litoměřice" Then
ComboBox2.AddItem ""
ComboBox2.AddItem "Primární rozvod"
ComboBox2.AddItem "Sekundární rozvod"
ComboBox2.AddItem "KPS"
ElseIf ComboBox1.Value = "Louny" Then
ComboBox2.AddItem ""
ComboBox2.AddItem "Sekundární rozvod TTO"
ComboBox2.AddItem "Sekundární rozvod ZP"
ElseIf ComboBox.Value = "Mimoň" Then
ComboBox2.AddItem "Primární rozvod"
ComboBox2.AddItem "Sekundární rozvod"
ComboBox2.AddItem "KPS"
End If
End Sub

chápu jak to myslíte, ale jde o to že tech faktur je asi 15 000, takže všechny firmy ani neznám a počítám že máme asi tak 150 dodavatelů. určitě by to šlo ale v tomhle množství...?

Dobrý den,

potřeboval bych pomoci s vyhledáním nečastějších dodavatelů. Jde o to že mám v sešitu (který má 12 listů) zaevidovány všechny došlé faktury. a potřeboval bych aby mi vyhledal 50 nejčastějších dodavatelů a uložil mi to do tabulky xy. Jde jen o aby byly seřazeny od nejčastějsího k méně častým...

Děkuji

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje