Bejegyzések 'Modulok'
Szombat, május 2, 2009 |
Néha szükség van, hogy megakadályozza a forma nyitott, ha vannak feljegyzések, hogy megmutassák, például ha csinálsz egy lekérdezést, és nincs regisztráció nem szükséges, nem kell nyitva lennie formában mert nincs megjeleníthető adat. Szóval mi van ellenőrizni, hogy vajon vannak feljegyzések láthatók, és ha nincs megjelenik egy üzenet, és akadályozzák a nyílt formában. Hogyan?
Egyszerűen csak be az alábbi kódot formában tulajdonságok abban az esetben, "megnyitni":
= 0 Then Ha Form.RecordsetClone.RecordCount
MsgBox "Nincs találat.", VbExclamation, "Hiba!"
DoCmd.Close acForm "megtalálhatja az adatokat"
Exit Sub
End If
Hogy egy példát letölthető: Akadályozzuk Form megnyitása
Kategória példák , formák , modulok | 2 Comments »
Csütörtök, december 11, 2008 |
1 - Hozzunk létre egy megrendelőlapot struktúra és esemény "kattintva" a tulajdonságait formában írja be a következőt: = true me.keypreview
Vagy ez megy, hogy a billentyűzet események érkezett az első űrlapot.
2 - Az űrlap tulajdonságainak, az esemény "gombra, hogy" tegye a következő kódot:
Private Sub Form_KeyDown (keycode As Integer, Shift As Integer)
Select Case keycode
Case vbKeyF2
DoCmd.OpenForm "Form1"
Case vbKeyF3
DoCmd.OpenForm "Form2"
Case vbKeyF4
DoCmd.OpenForm "formulario3"
Case vbKeyF5
As Double Dim kalkulátor
Calculator = Shell ("Calc.exe", vbNormalFocus)
Case vbKeyF6
DoCmd.Close
Case Else
Vége kiválasztása
End Sub
Mit jelent ez a következő:
- Megnyomásával az F2 gomb megnyitja a Form1
- Az F3 megnyomásával gombon Form2
- Az az F4 lenyomása megnyitja az formulário3
- Az F5 billentyű lenyomásával megnyitja a Windows-kalkulátor
- Megnyomásával az F6 gomb bezárja az űrlapot
Amellett, hogy a funkció gomb F1, F2 stb ... is használhatunk bármilyen másik gombot feladatok elvégzésére, de tartsuk észben, hogy ha meg akarjuk bevinni az adatokat olyan formában nem használhatók fel gombok használt írni az adatokat a földeken.
A másik dolog, hogy csak a forma, ahová a fenti kódok.
Letöltés: Keys
Kategória példák , formák , modulok | 1 Comment »
Szombat, szeptember 20, 2008 |
Ez egyfajta menü, amely lehetővé teszi számunkra, hogy időt takaríthat meg, sornyi kódot és egy jobb elrendezése szempontjából nyitott formában, mivel csak ezzel a menüvel kellene készíteniük egy nyílt. Amellett, hogy csökkenti a számos nyitott formában is csökken a gombok száma, a menü megnyitásához minden formáját.
Ez a fajta menü, természetesen, amely már egy ideje, és már sokan használják a felhasználók az Access.
Szóval hol van ez a menü?
Hozzunk létre a menüt a kombinált lista, amely tartalmazza az összes formákat tervezzük megnyitni rajta. Amikor kiválaszt egy beállítást a legördülő pályázati űrlap jelenik meg a subform. Akkor kezdjük, hogy a menü lépésről lépésre.
1 - Hozzunk létre egy táblázatot, ahol majd tárolni kívánt nevet adni minden formáját és nevét, hogy az űrlap nyílik meg. A példában hoztam létre a táblázat tblmenu "az alábbi területeken:
Mező típusa
Nomedomenu szöveg -> neve, amely látható lesz a menü (combo box)
szöveges formában -> neve a nyomtatvány, amely megnyitja
Miután az adatokat bevezette a példában a következők:
NomedoMenu Form
Számlák Form1
Betétek Form2
Változások formulario3
Fiók-Box formulario4
Számla-Account formulario5
Kivonat formulario6
2 - Ezután hozzon létre egy lekérdezést az előző táblázat szerint:
Tblmenu választotta az asztalra, majd válassza ki a két terület, ahol úgy döntöttünk, a növekvő rendezési nomedomenu könnyebb megtalálni a menüben jó néhány alkalommal, amikor meg akarjuk nyitni formák. Ahhoz, hogy ez a lekérdezés hívtam "CsMenu".
3 - Alkoss a formában "Menu", vagyis válasszon új űrlapot Tervező nézetben. Majd létrehozunk egy combo box és módosítsa a következő tulajdonságokkal rendelkezik:
- Oszlopok száma: 2
- Oszlop Szélesség: 1cm, 0cm;
- Eredete a következő sort: csmenu (ez a neve a lekérdezés létre az előző bekezdésben)
4 - Az azonos formában hozunk létre egy kötetlen űrlap subform fő (a példában hívtam menuquadro). Ez ebben a formában fog nyitni egyes formák közül választhatnak a menüt (combo box).
5 - Hozzon létre egy modult, amely lehetővé teszi számunkra, hogy nyissa meg a menüt, amelyet kiválasztva a kombinált listában a subform.
Készítettünk egy modul (amit az úgynevezett "abrirmenu) és illesztette be a következő kódot:
Public Function AtivarMenu (Combmenu A ComboBox, subabrir A Subform)
As String Dim Abrirform
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Után megy a tulajdonságok a legördülő menüben az űrlapon, és a frissítés után esetben tegye a létrehozott funkció: ativarmenu = ([Menu], [menuquadro]), hogy a "Menu" a neve a beviteli mezőbe, és "menuquadro" a neve subform.
És végül a menü készen áll a használatra. Csak próbáld ki, és használni. Remélem élvezték ezt a tip.
Letöltés: Menu
Alább egy kép a menü.
Egyedi menü
Kategória példák , formák , modulok | 12 Comments »
Kedd, május 6, 2008 |
Ez a példa azt mutatja, hogy egy rendszer nyújtására vonatkozó kifizetéseket.
A példa azt mutatja, hogy ez okoz, és automatikusan egy gombnyomással, az előnyeit egy adásvételi szerződés keresztül bevitt adatokat. Azaz bemutatjuk az ügyfél nevét, hogy a szerződés kezdő időpontja és a teljes összeg fizetendő. Ezután kattintson a "kifizetések kiszámítását," hogy automatikusan generálja a részletfizetések száma és felosztja az értéket jelzi, minden, és kiszámítja a dátum az egyes részletek (havi egy). Ez is egy példa, ami bemutatja, hogyan adjunk egyszerre több rekordot, mert ha rákattint a gombra, hogy hozzáadja a rekord minden javára.
Letöltés: Több rekord beszúrása
Kategória Datolya , minták , formák , modulok , Rekordok | 17 Comments »
Szombat, március 29, 2008 |
Ez egy példa az alkalmazási területek, hogy Sonia olvasónak szánt adatbázis rögzíti az adatokat az állatok. Ez egy egyszerű adatbázis csak egy űrlapot adatbevitel egy fotót az állat.
Letöltés: Animal Shelter
Bármilyen változás csak a hozzászóló itt.
Írásos formák , képek , modulok , Records , Táblázatok | 12 Comments »
Szerda, február 20, 2008 |
Számos módja van, hogy adjon meg egy rekord, és a leggyakoribb az, hogy egy űrlap kötődik egy táblázatot. Egy másik módja ennek az, nem kapcsolt területeken, azaz egy űrlap mezők önálló független az asztalra. Ahhoz, hogy
megadni az adatokat használjuk a "recordset", azaz egy kód, amely esetében ez a példa a következő:
Dim db például adatbázis
Dim RS Recordset
Ha MsgBox ("Szeretnél írni?" VbYesNoCancel, "Options") = vbYes Ekkor
"Gomb megnyomásával kérik-e menteni a rekordot vagy nem, ha így folytatódik a kód végéig
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Adatok", dbOpenTable)
"Nyissuk meg a táblát beszúrni adatnyilvántartás
rs.AddNew
rs ("name") = Me! INome
rs ("cím") = Me! Imorada
rs ("kor") = Me! Iidade
rs.Update "elküldi az adatokat a táblázathoz
rs.Close "Egyértelmű az adatokat, és lezárja a recordset
Set rs = Nothing
Set db = Nothing
Me.INome = null 'törli a mezők formájában
Me.Imorada = null
Me.Iidade = null
MsgBox "Record mentve", vbInformation, a "Kész" "megerősítő üzenet megjelenítése
Me.INome.SetFocus "Vigye a kurzort az első mező
Egyéb: Exit Sub
End If
Letöltés: Független Place
Kategória példák , formák , modulok , feljegyzések , táblák | No Comments »
Kedd, február 19, 2008 |
Ez a példa azt mutatja, hogyan kell elvégezni a számításokat óra. Ez azoknak hasznos, akiknek tudniuk kell, hogy mennyi idő telt el a kezdő és befejezési időpontját. Nem elég, hogy a kivonást a befejezés idejét a kezdési időpontot, mert ha az időszak végét mozgó egyik napról a másikra számlákon már nem helytálló, például:
Kezdés: 23:00:00
Befejezés időpontja: 02:00:00
Vége idő - Start Time = 2:00:00-23:00:00 = -21:00:00
Természetesen ez nem olyan egyszerű dolgozni idő, mert akkor ahelyett, hogy három óra lenne helyes eredményt tévesen -21 óráig.
Ahhoz, hogy ez az időszak körül megy, hogy napról napra azt kell ellenőrizni az első, ha a befejezési idő nagyobb, mint a kezdési időpont, amelyik nagyobb, akkor a számítás: vége - Start Time.
Amennyiben még nem, akkor meg kell tennünk a számítás másik módja, nevezetesen:
Kezdés: 23:00:00
Befejezés időpontja: 02:00:00
Teljes idő: 23:59:59
Hit: 00:00:01
Alapvetően mit teszünk, hozzá értékét 24:00:00 kivonás, hogy megadja nekünk a helyes három órán keresztül. Azaz:
Vége idő - Kezdés + óra + Teljes Hit to = 02:00:00 23:00:00 + 23:59:59 + 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00
Letöltés: Kalkulus Time
Kategória példák , űrlapok , óra , modulok | 21 Comments »
Szerda, február 6, 2008 |
Ez a példa azt mutatja, hogyan válasszuk ki a dátumot egy PopUp naptár. Azaz, mint egy modult, és alkothatnak Válasszon egy dátumot, mivel ez egy naptár. A példában tudjuk választani azt az időpontot, kattintson a gombra a dátum mező vagy kattintson az egér jobb gombjával a dátum mező. Így be dátumok nagyon praktikus, mivel lehetővé teszi számunkra, hogy egy naptár, és kiválasztani a legjobb kívánt dátumot.
Letöltés: PopUp Naptár
Kategória Datolya , minták , formák , modulok | 1 Comment »
Vasárnap, január 27, 2008 |
Általában, ha futunk a középső gomb az egér egy űrlap, módosítsa a hozzáférési napló. Egyes esetekben hasznos lehet, ha ez nem történik meg.
Ez a példa egy modul esetén az űrlap betölteni, hogy megakadályozza a felhasználót eligazodni a rekordokat a görgős egér. Tesztelni tudjuk a görgő (középső gomb) látni, hogy nem változtatja meg a regisztráció.
Letöltés itt: Wheel egér
Kategória példák , formák , modulok , egér , Rekordok | No Comments »
Hétfő, január 21, 2008 |
Ez a példa egy modul, amely elrejti a Microsoft Access a fő ablakban, így csak az űrlap ablak látható.
Ahhoz, hogy használni tudjuk ezt a modult kell használni a következő parancsot a nyitó rendezvény a következő formában: hívás fsetAccessWindow (SW_HIDE).
Ellenőrizni példaként tegyük a downloa: Ablak Acces manipulálása
Kategória példák , formák , modulok | 8 Comments »
