» Poradna » Programy

MS Access - vyhledávání ve formuláři

 |   |  Microsoft Windows 7 Firefox 20.0

Zdravím,mám v MS Access 2007 mám v databázi tabulku Zamestnancu. Vytvorila jsem formular a do neho umistila vyhledavaci pole (nevázané textové pole) na vyhledavani záznamů podle prijmeni. Přidala jsem událostní proceduru (viz niže) a funguje to. Nicméně bych potřebovala vyhledávat nejen podle příjmení, ale také podle jména. Takže jsem umístila další vyhledávací pole (nevázané textové pole) na vyhledávání jména. Problém ale je, že nyní to vyhledává buď podle jména nebo podle příjmení, nikoliv zároveň. Můžete mi, prosím, někdo poradit, jak to mám udělat, aby mi to vyhledávalo nejdříve podle příjmení a pokud je vyplněno jméno, tak i podle jména? Díky moc-----------Private Sub cboHledej_AfterUpdate()Set rs = Me.Recordsetrs.FindFirst "prijmeni='" + Trim(Me.cboHledej) + "'"End Sub--------------

Odpovědi na otázku

 |   |  Microsoft Windows 7 Firefox 20.0

Dobrý deň, problém je možné vyriešiť tak, že do formulára pridáme nové pole v ktorom určíme novú hodnotu = Priezvisko&" "&Meno. Túto hodnotu striedime a môžeme vyhľadávať. Pozdravujem.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 | Microsoft Windows 7 Opera 9.80

Zkoušela jsi podmínku OR?Private Sub cboHledej_AfterUpdate()Set rs = Me.Recordsetrs.FindFirst "prijmeni='" + Trim(Me.cboHledej) + "'" OR "jmeno='" + Trim(Me.cboHledej) + "'"End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 20.0

Díky, nevím, co dělám špatně, ale toto mi nefunguje :(I tak díky

Souhlasím  |  Nesouhlasím  |  Odpovědět
 | Microsoft Windows 7 Opera 9.80

Pokud chceš hledat na základě zadání pole ve více polích tabulky současně, pak můžeš použít LIKE operátor:Např:Private Sub cboHledej_AfterUpdate() Set rs = Me.Recordset SearchStr = "prijmeni + jmeno like ""*" & Trim(Me.cboHledej) & "*""" rs.FindFirst SearchStrEnd SubTohle bude hledat současně v příjmení a jmenu jakoukoliv část řetězce. Mezi jménem a příjmením není mezera, takže do hledání zadej třeba MoštěkPavel, najde to i při zadání: štěkZáleží na diakritice, malých a velkých písmenech.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 20.0

Díky moc. Chtěla jsem se zeptat, zda by bylo možné udělat to tak, aby byla mezhi příjmení a jménem mezera. Díky moc

Souhlasím  |  Nesouhlasím  |  Odpovědět
 | Microsoft Windows 7 Opera 9.80

Zkus pridat mezeru mezi ta 2 pole prijmeni + jmeno

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 20.0

Tak to bohužel nevyšlo :(

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Textové pole, Vyhledávací pole, Trim




Určitě si přečtěte

Byli tam! Důkazy o přistání na Měsíci, Lunochody i čínská sonda jsou vidět z vesmíru

Byli tam! Důkazy o přistání na Měsíci, Lunochody i čínská sonda jsou vidět z vesmíru

** Sonda LRO pořídila z oběžné dráhy Měsíce zajímavé snímky ** Jsou na nich vidět artefakty všech misí programu Apolla, které přistály na povrchu Měsíce ** Jde například o části lunárních modulů, rovery a dokonce i vlajky

Petr Kubala | 65

Astronomové objevili daleko za Plutem objekt s extrémní dráhou. Může ukazovat na existenci planety Devět

Astronomové objevili daleko za Plutem objekt s extrémní dráhou. Může ukazovat na existenci planety Devět

** Astronomové objevili daleko za Neptunem těleso 2015 TG387 ** Okolo Slunce se pohybuje po extrémně protáhlé dráze ** Jeho dráha může ukazovat na existenci planety Devět

Petr Kubala | 10

Modelářský zázrak: Maketa raketoplánu Columbia, která létá jako skutečná raketa

Modelářský zázrak: Maketa raketoplánu Columbia, která létá jako skutečná raketa

** Model raketoplánu Columbia od českého konstruktéra umí i létat ** Obdivuhodný model si vzal 1600 hodin práce ** Podívejte se na fotografie ze stavby a prvního letu

Karel Jeřábek | 20

Podívejte se, co se stane, když dron DJI Phantom narazí do křídla letadla

Podívejte se, co se stane, když dron DJI Phantom narazí do křídla letadla

** Co se může stát, když relativně maličký dron narazí do křídla letadla? ** Tuto otázku zodpověděli odborníci laboratorním pokusem ** Kvadrokoptéra způsobila významné poškození křídla

Karel Kilián | 17


Aktuální číslo časopisu Computer

Odhalte skryté funkce Windows 10

Test levných Androidů do 4 000 Kč

Srovnání úsporných minipočítačů

Změřili jsme rychlost 10Gb/s ethernetu