Problém v MS Access 2003 – Visual Basic – Fórum – Programujte.com

Dobrý den,
potřeboval bych poradit. Jelikož ve VBA nedělám. Mám 2 formuláře(zakázky a kalkulace), na jednom form. mám zaškrtávací políčko a já bych chtěl přes to políčko ovládat na druhym formuláři textové pole, respektivě zviditelnit ho,kdyz je v 1. form zaškrtn. políčko a nezviditelnit ho, když je odškrtnuto.
Napadlo mě tohle, ale bohužel.

Sub Zaškrtnutí160_Click()
If Zaškrtnutí160.Value = 1 Then
Form_ffsub.Text18.Visible = True
Else
Form_ffsub.Text18.Visible = False
End If
End Sub

Sub Zaškrtnutí160_Click()
lb_bool=false
If Zaškrtnutí160.Value = 1 Then lb_bool=true
forms("Form_ffsub").controls("Text18").Visible = lb_bool
end sub

Dobrý den,
děkuji za radu. Po menší úpravě mi to fungovalo takto viz. dole. Ale je zde PROBLÉM. Nefunguje to, pokuď mám udělanou KARTU a přepínám mezi těma dvěma položkama... Funguje to jedině, když mám zvlášť každý formulář a musí být oba otevžený. Nevíte někdo jak to zapsat, aby se to zobrazovalo na té kartě? Nejjednodušší by to bylo narvat do 1form. ale bohužel to nejde.
Děkuji

Sub Zaškrtnutí160_Click()
Dim lb_bool as boolean
lb_bool = True
If Zaškrtnutí160.Value = 0 Then lb_bool = False
Forms![fsub_Kalkulace]![ffsub]![Text18].Visible = lb_bool
End Sub

??????
nechápu,co nejde
napřed bys měl trošku omrknout kolekce forms a controls, pak bys věděl jak adresovat přímo daný ovládací prvek
to jako podle mě patří k základům

pokud se jedná o 1 form,mělo by stačit
if me.Zaškrtnutí160= 0 then me.Text18].visible=true

proč bych měl, když to víc nebudu potřebat. Proto jsem potřeboval poradit. A mimochodem jinak se to zapisuje pro formulář a jinak pro kartu. Takže ikdyž o tom vim hovno, tak si raději zopakuj ty základy...

víš hovno a vědět s tímto přístupem budeš vždycky,
zapisuje se to tak jak sem napsal, to že je někdo blb a neumí adresovat v rámci kolekcí není můj problem
nicméně pomocí kouzelného slůvka ME, netřeba adresovat tabpage....

A pan Mongol neumí jednat s lidmi a hned uráží. Mi řekni kdy, kde a nakolik a rád ti vysvětlim kdo je blbeček. Jo a mimochodem, když dáváš rady do života, tak ti dám jednu zdarma... s tímhle přístupem to dotáhneš max. do prdele.

počítám že to co programátor dotáhnu rozhodně dál než ty se svou leností a neschopností se učit něčemu novému, viz přístup proč bych to měl vědět když to víc nebudu potřebovat..na pořádným fóru by tě poslali do prdele by ses divil

Hmm to se máš čim chlubit, možná tak 10 letý kluk, kterýmu teče nudle. Mám pro tebe radu, já jako manažer bych ti dal okamžitou výpověď. Jelikož vůbec neumíš jednat s lidmi. viz přístup proč bych to měl vědět.... ano, nevim nač se učit pro mě zbytečnost, se kterou už víc nebudu dělat. Potřeboval jsem jen poradit, ale ozval se jen chytrák, který dokáže urážet... on je kadžý za kompem machr, ale v životě si možná tak malý h....

ffsub!Text18.Visible = Nz(Zaškrtnutí160.Value)

POZOR!!! Text18 v ffsub NESMÍ mít fokus! Při otevření frm nutno též správně inicializovat počáteční stav.

Připomínka: doporučuji nazývat prvky ve formulářích/reportech smysluplnými jmény, protože jinak bude kód třídy nepřehledný. Pak aby se v tom prase vyznalo... (Zaškrtnutí160, Text18, ffsub)...

Ještě jedna drobnost: ten kód se spouští v Private Sub Zaškrtnutí160_AfterUpdate().

P.S. Nepodařilo se mi editovat můj původní příspěvek. :smile13:

To Mirek Polák : Je Text18 umístěn na záložce nebo na pozadí, tj. přímo v těle?

To Mirek Polák :
Zdali máš jeden hlavní a v tom máš podformulář tak můžeš využít to a to k zaškrtávácímu tlačítku přiřadit tento kod:

Private Sub PřepínacíTlačítko20_Click()
'vyjasnit a zatemnit textová pole

If PřepínacíTlačítko20.Value = -1 Then
PřepínacíTlačítko20.Caption = "Zakazky skrýt"
Form.frm_cis_EAN.Visible = True

Else
PřepínacíTlačítko20.Caption = "Zakazky"
Form.frm_cis_EAN.Visible = False
End If
End Sub

A pro hlavní forumulář musíš upravit když, ho spustíš tak aby to bylo zobrazeno či ne.