Zdravím,
než bych to vysvětlil tak zkusím konkrétní příklad:
If [forms]![FormName1]![value]="a01" then
[Forms]![FormName2]![a01].backcolor=red
end if
If [forms]![FormName1]![value]="a02" then
[Forms]![FormName2]![a02].backcolor=red
end if
.
.
.
If [forms]![FormName1]![value]="aXX" then
[Forms]![FormName2]![aXX].backcolor=red
end if
V podstatě se mi na základě zafiltrovaného konkrétního řádku formuláře v DB (s ID aXX) vysvítí v jiném formuláři s mapou bod (pojmenovaný aXX). Vzhledem k tomu, že bodů v mapě mám přes 300 tak se chci zeptat jak moje řešení zkrátit. Není to poprvé co bych nějakou takovou fci využil.
Zatím v postatě pro každý řádek a bod mám konkrétní příkaz. Docela nelogický, vím, ale mě fakt nenapadá jak na to.
Děkuju moc za případné návrhy.
Martin B.
ACCESS_podsvícení konkrétních polí Vyřešeno
-
- Level 2.5
- Příspěvky: 274
- Registrován: červen 11
- Pohlaví:
- Stav:
Offline
Re: ACCESS_podsvícení konkrétních polí
Zdravím,
snažil bych se do do formuláře 2 dostat hodnotu z formuláře 1 dle které se má podmínka obarvit pomocí dotazu.
Potom už lze použít podmíněné formátování jako v excelu.
S pozdravem
Karel Láska
snažil bych se do do formuláře 2 dostat hodnotu z formuláře 1 dle které se má podmínka obarvit pomocí dotazu.
Potom už lze použít podmíněné formátování jako v excelu.
S pozdravem
Karel Láska
Re: ACCESS_podsvícení konkrétních polí
Zdravím,
omlouvám se, ale byl jsem chvilku mimo. Moc to nechápu, tuhle variantu jsem zkoušel, ve formuláři 2 se mě vypisuje hodnota konkrétního bodu (a1-ax). Ale stejně nevím, jak nastavit aby pole se stejným názvem jako text v jiném poli změnilo barvu pozadí. Jestli to blbě popisuju, klidně pošlu svůj pokus o produkt:-)
omlouvám se, ale byl jsem chvilku mimo. Moc to nechápu, tuhle variantu jsem zkoušel, ve formuláři 2 se mě vypisuje hodnota konkrétního bodu (a1-ax). Ale stejně nevím, jak nastavit aby pole se stejným názvem jako text v jiném poli změnilo barvu pozadí. Jestli to blbě popisuju, klidně pošlu svůj pokus o produkt:-)
Re: ACCESS_podsvícení konkrétních polí Vyřešeno
vyřešeno pomocí tohoto:
For Counter = 1 To xxx
CtrlName = "a" & Counter
Set Ctrl = Me.Controls(CtrlName)
Ctrl.BackColor = lngWhite ..... nadefinování barvy
Next
For Counter = 1 To xxx
CtrlName = "a" & Counter
Set Ctrl = Me.Controls(CtrlName)
If CtrlName = [Forms]![nazev_pole] Then
Ctrl.BackColor = lngRed
End If
Next
Díky moc za rady a pomoc.
Martin
For Counter = 1 To xxx
CtrlName = "a" & Counter
Set Ctrl = Me.Controls(CtrlName)
Ctrl.BackColor = lngWhite ..... nadefinování barvy
Next
For Counter = 1 To xxx
CtrlName = "a" & Counter
Set Ctrl = Me.Controls(CtrlName)
If CtrlName = [Forms]![nazev_pole] Then
Ctrl.BackColor = lngRed
End If
Next
Díky moc za rady a pomoc.
Martin
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Nefunkční RGB podsvícení ventilátorů Příloha(y)
od zezr » 23 črc 2023 19:35 » v Problémy s hardwarem - 8
- 1562
-
od Karrex
Zobrazit poslední příspěvek
26 črc 2023 08:24
-
-
- 7
- 2000
-
od atari
Zobrazit poslední příspěvek
28 lis 2023 11:26
-
-
Datový model - aktualizace po přidání dalšího sloupce do Access
od MK_Vs » 27 črc 2023 12:05 » v Kancelářské balíky - 0
- 2421
-
od MK_Vs
Zobrazit poslední příspěvek
27 črc 2023 12:05
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 17 hostů