Příspěvky Tagged 'moduly,
Sobota 02.05.2009 |
Někdy je nutné, aby se zabránilo formulář otevřený, pokud tam jsou záznamy, které ukazují, například při provádění dotazu a žádná registrace není nutná, nepotřebujeme být otevřeny, protože nemáme žádná data k zobrazení. Takže to, co musíme ověřit, zda existují záznamy, které ukazují, a není-li zobrazit zprávu a bránit formou otevřené. Jak?
Je to jednoduché stačí dát kód níže ve formě nemovitostí v případě "otevřít":
= 0 Then Pokud Form.RecordsetClone.RecordCount
MsgBox "Nenalezeny žádné záznamy.", VbExclamation, "Chyba!"
DoCmd.Close acForm, "najít data"
Exit Sub
End If
Chcete-li vidět příklad stažení: Zabránit formulář Otevřít
Publikováno v příkladech a formy a Modules | Uživatelské 2 Komentáře »
Čtvrtek 11.12.2008 |
1 - Vytvoření objednávkový formulář ve struktuře a události, "Kliknutím" na vlastnostech formuláře zadejte následující příkaz: me.keypreview = true
Nebo se to děje, aby se klávesnice je událost přijata v prvním formuláři.
2 - ve formě nemovitostí, akce 'tlačítko níže "vložte následující kód:
Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Případ vbKeyF2
DoCmd.OpenForm "Form1"
Případ vbKeyF3
DoCmd.OpenForm "Form2"
Případ vbKeyF4
DoCmd.OpenForm "formulario3"
Případ vbKeyF5
Jak Double Dim Calculator
Kalkulačka = Shell ("calc.exe", vbNormalFocus)
Případ vbKeyF6
DoCmd.Close
Case Else
Konec Vybrat
End Sub
Co to však je následující:
- Stiskem klávesy F2 se otevře Form1
- Stiskem klávesy F3 se otevře Form2
- Stiskem klávesy F4 otevře formulário3
- Stiskem klávesy F5 otevře kalkulačku Windows
- Stisknutím klávesy F6 zavře formulář
Kromě F1 funkčních kláves, F2 ... atd., můžeme použít jakékoli jiné tlačítko k plnění funkcí, ale mít na paměti, že chceme-li zadat data v takové formě není vhodné používat klíče, které se používají pro zápis dat na polích.
Další věc je, že funguje pouze na formuláři, kde si dát výše uvedené kódy.
Download: Keys
Publikováno v příkladech a formy a Modules | Uživatelské 1 Comment »
Sobota 20 září 2008 |
To je druh nabídky, které nám umožňuje ušetřit čas, řádky kódu a lepší uspořádání z hlediska otevřených formách, protože se tato nabídka právě potřebují otevřenou formu. Kromě snížení počtu otevřených formulářů také snižuje počet tlačítek v menu otevřít každý formulář.
Tento typ nabídky, jistě, který již nějakou dobu a je již používán mnoha uživateli aplikace Access.
Tak kde je tato nabídka?
Pojďme vytvořit menu pomocí pole se seznamem, který obsahuje všechny formuláře, které plánujeme otevřít přes něj. Když vyberete možnost z pole se seznamem se zobrazí formulář žádosti v rámci podformuláře. Pak jsme začali dělat v menu krok za krokem.
1 - Pojďme vytvořit tabulku, kde budeme ukládat název, který chcete, aby každý formulář a název formuláře, který se otevře. V příkladu jsem vytvořil Tabulka 'tblmenu' s následujících oblastech:
Typ pole
Nomedomenu text -> Jméno, které bude vidět v menu (combo box)
tvoří text -> název formuláře, který se otevře
Po údaje zavedené v příkladu jsou:
NomedoMenu formulář
Účty Form1
Vklady Form2
Pohyby formulario3
Účet-Box formulario4
Účtu Účet formulario5
Výpis formulario6
2 - Pak jsme se vytvořit dotaz z předchozí tabulky:
Tblmenu zvolil tabulku a pak vybrat dvě pole, ve kterém jsme si vybrali pro vzestupné řazení nomedomenu být snadnější najít v nabídce docela několikrát, když chceme otevřít formuláře. Chcete-li tento dotaz jsem volal "CsMenu".
3 - Pojďme vytvořit formulář 'Menu', tj. vybrat nový formulář v návrhovém zobrazení. Pak jsme se vytvořit pole se seznamem a změnit následující vlastnosti:
- Počet sloupců: 2
- Sloupec Šířky: 1cm, 0cm;
- Původ linie: csmenu (což je název dotazu vytvořili v předchozím odstavci)
4 - ve stejné formě budeme vytvářet nevázaný hlavního formuláře podformulář (V příkladu jsem volal menuquadro). Je to forma, která bude otevírat každou z forem vybrat z menu (rozbalovací seznam).
5 - Nyní vytvořte modul, který nám umožní otevření nabídky, která je vybrána v poli se seznamem v podformuláře.
Vytvořili jsme modul (který jsem nazval "abrirmenu") a vložit následující kód:
Public Function AtivarMenu (Combmenu ComboBox, subabrir podformulář)
As String Dim Abrirform
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Poté, co do vlastností pole se seznamem V nabídce formuláře a následné aktualizace případě uvedených vytvořené funkce: ativarmenu = ([Menu], [menuquadro]), že "Menu" je název pole se seznamem a "menuquadro dále jen" Název podformuláře.
A na závěr menu je připraven k použití. Stačí vyzkoušet a používat. Doufám, že se vám to líbilo tento tip.
Download: Menu
Pod obrazem v nabídce.
Vlastní menu
Publikováno v příkladech a formy a Modules | Uživatelské 12 Komentáře »
Úterý 06.05.2008 |
Tento příklad ukazuje, jak systém řízení pro poskytování plateb.
Příklad ukazuje, že to je vytvořit a automaticky se kliknutím na tlačítko, výhody smlouvy o prodeji prostřednictvím zadaných dat. To znamená, že jsme zavedli jméno klienta do dne zahájení smlouvy a celkovou částku splatnou. Pak stačí kliknout na odkaz vypočítat platby ", aby se automaticky generuje počet splátek a rozděluje hodnoty uvedené v každém z nich a vypočítá datum každé splátky (jedna za měsíc). To je také příklad, který ukazuje, jak přidat více záznamů najednou, protože když klepnete na tlačítko přidá záznam pro každou dávku.
Download: vložit více záznamů
Publikováno v datech a Vzorky a formulářů a Moduly a nahrává záložky | 17 Komentáře »
Sobota 29.března 2008 |
Toto je ukázka z aplikační oblasti, které Soňa čtenář určené pro datové záznamu databáze zvířat. Je to jednoduché databáze s jen formuláře pro vstup dat s fotkou zvířete.
Download: útulku
Každá změna, jen komentář zde.
Písemné formy a Fotografie a moduly a záznamy a tabulky záložky | 11 Komentáře »
Středa 20.února 2008 |
Existuje několik způsobů, jak zadat záznam, a nejčastěji je získat prostřednictvím formuláře vázán do tabulky. Dalším způsobem, jak toho dosáhnout, je pomocí nesouvisejících oblastech, tj. na formuláři s poli nezávislé nesouvisejících ke stolu. Na
zadejte údaje, které používáme na trase záznamů ', tj. pomocí kódu, který je v případě tohoto příkladu je následující:
Dim db jako databáze
Dim rs Jak Recordset
Pokud MsgBox ("Chcete psát?" VbYesNoCancel, "Možnosti") = vbYes pak
"Po stisknutí se zeptal, zda chcete uložit záznam, nebo ne, pokud ano, kód pokračuje až do konce
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Data", dbOpenTable)
"Otevřete tabulku vložit data registrace
rs.AddNew
rs ("jméno") = Me! INome
rs ("adresa") = Me! Imorada
rs ("věk") = Me! Iidade
rs.Update "posílá data do tabulky
rs.Close "Smazat data a zavře záznamů
Set rs = Nothing
Set db = Nothing
Me.INome = null "vymaže pole ve tvaru
Me.Imorada = null
Me.Iidade = null
MsgBox "zachránil Record", vbInformation "Hotovo" "Display zprávu s potvrzením
Me.INome.SetFocus "Přesuňte kurzor na první pole
Else: Exit Sub
End If
Download: Místo Nezávislé
Publikováno v příkladech a formy a Modules a záznamů a stoly | Uživatelské No Comments »
Úterý 19.únoru 2008 |
Tento příklad ukazuje, jak provádět výpočty hodin. To je užitečné pro ty, kteří potřebují vědět, kolik času uplynulo mezi počáteční a koncový čas. Nestačí, aby odčítání konečného času na čas zahájení, protože v případě, že konečný čas přesunu z jednoho dne na den účtů budou nadále správná, například:
Čas začátku: 23:00:00
Čas ukončení: 02:00:00
Konec - Start Time = 02:00:00 do 23:00:00 -21:00:00 =
Zřejmě to není tak jednoduché pracovat s časem, protože pak místo toho, aby tři hodiny správný výsledek chybně -21 hodin.
Chcete-li získat kolem tohoto období, které jde ze dne na den jsme se měli podívat, pokud doba ukončení je větší než počáteční čas, podle toho, co je větší než výpočet je: Konec - Start Time.
Pokud je vám méně pak musíme udělat výpočet jinou cestu, a to:
Čas začátku: 23:00:00
Čas ukončení: 02:00:00
Celkový čas: 23:59:59
Hit: 00:00:01
V podstatě to, co udělat, je přidat k hodnotě 24:00:00 odčítání, aby nám správné tři hodiny. To je:
Konec - Start čas + celkový počet hodin + Hit = 02:00:00 do 23:00:00 + 23:59:59 + 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00
Download: Matematika s časem
Publikováno v příkladech a formy a Hours a Modules | Uživatelské 21 Komentáře »
Středu 6.2.2008 |
Tento příklad ukazuje, jak si vybrat datum prostřednictvím kalendáře PopUp. To je, jako modul a může tvořit vyberte datum, protože to je kalendář. V tomto příkladu si můžeme vybrat datum, kliknutím na tlačítko vedle datového pole nebo klepnutím pravého tlačítka myši v datovém poli. Tento způsob zadávání dat je velmi praktický, protože nám umožňuje vidět kalendář a vybrat nejlepší datum, kdy chcete.
Download: PopUp Kalendář
Publikováno v datech a Vzorky a formulářů a Moduly | Uživatelské 1 Comment »
Neděle 27.leden 2008 |
Obvykle, když jsme se spustit na středové tlačítko myši na formuláři, změnit přístupový protokol. V některých situacích to může být užitečné, že se nestane.
Tento příklad používá modul v případě, že formuláře načíst, aby se zabránilo uživatel procházet záznamy pomocí navigační myši. Pro otestování můžeme použít kolečko myši (prostřední tlačítko) vidět, že nemění registraci.
Ke stažení zde: myš s kolečkem
Publikováno v příkladech a formy a Modules a myš a Records | Uživatelské No Comments »
Pondělí 21 leden 2008 |
Tento příklad používá modul, který skryje hlavní okno aplikace Microsoft Access, takže jen formou Okno viditelné.
Chcete-li použít tento modul musíme použít následující příkaz na zahájení akce ve tvaru: volání fsetAccessWindow (SW_HIDE).
Chcete-li zkontrolovat jako příklad dělat downloa: Manipulace oken příslušen
Publikováno v příkladech a formy a Modules | Uživatelské 8 Komentáře »
