Ms Access - naplnění textového pole daty z tabulky

[Frantisek Kravar]

Dobrý den, potřebuji radu jak mám naplnit textového pole ve formuláři daty z tabulky. v tabulce mám uložená hesla uživatelů, potřebuji aby uživatel zadal ve formuláři heslo a já ho zkontroloval s údaji v tabulce. V případě že se budou shodovat spustím další makro. Nebo jde přímo porovnat údaj z tabulky s obsahem pole ve formuláři ? (abych nemusel zbytečně ve formuláři vytvářet skryté pole , které se naplní údaji z tabulky). Děkuji

[Reklama]

[maiki]

no pokud ti jde jen o kontrolu zadaného hesla s tabulkou tak ja bych to resil kodem VBA:

napriklad po udalosti textoveho pole po aktualizaci ci po kliknuti na tlacitko bych si najel na tabulku a dle uzivatele zkontroloval heslo...

pokud mas v tabulce definovan index, muzes pouzit Seek, jinak proste projdes tabulku od pocatku az narazis na spravneho uzivatele:

např.:

Dim dbs as Database
Dim rst as Recordset
Dim PrihlaseniPlatne as Boolean

set dbs = CurrentDb
set rst = dbs.Open ("UzivateleHesla", dbOpenSnapshot)

PrihlaseniPlatne = FALSE

do while not rst.eof
select case rst![UzivatelJmeno] = me.TextUzivatelJmeno
case true 'nalezen uzivatel
select case rst![UzivatelHeslo] = me.TextUzivatelHeslo
case true 'heslo je shodne
PrihlaseniPlatne = TRUE
end select
exit do
end select
rst.MoveNext
loop

select case PrihlaseniPlatne
case true
msgbox "Jste uspesne prihlaseni"
' kod pokracuje dal....
case false
msgbox "Spatne heslo ci jmeno uzivatele..."
exit sub 'konec kodu
end select