Inlägg taggade 'modules'
LÖRDAG 2 maj, 2009 |
Ibland är det nödvändigt att förhindra att ett formulär öppet om det finns register som visar, till exempel när du gör en fråga och ingen registrering krävs inte, behöver vi inte vara öppen form eftersom vi inte har några data att visa. Så vad vi måste kontrollera är om det finns register som visar och om det inte finns någon visar ett meddelande och hindra formuläret öppet. Hur?
Det är lätt att bara sätta koden nedan i Egenskaper för formulär i händelse "för att öppna":
= 0 Om sedan Form.RecordsetClone.RecordCount
MsgBox "Inga poster hittades.", VbExclamation, "Fel!"
DoCmd.Close acForm, "hitta data"
Exit Sub
End If
För att se ett exempel ladda ner: Förhindra Form Open
Posted in Exemplen och Blanketter och moduler | 2 Kommentarer »
Torsdag 11 December, 2008 |
1 - Skapa ett beställningsformulär i struktur och händelsen "klickar" på egenskaperna i formuläret ange följande: me.keypreview = true
Eller kommer detta att göra tangentbordshändelser tas emot i den första formen.
2 - I form egenskaper händelsen "knappen nedan för att" sätta följande kod:
Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Välj Case KeyCode
Vid vbKeyF2
DoCmd.OpenForm "Formulär1"
Vid vbKeyF3
DoCmd.OpenForm "Form2"
Vid vbKeyF4
DoCmd.OpenForm "formulario3"
Vid vbKeyF5
Som Double Dim Calculator
Räknaren = Shell ("calc.exe", vbNormalFocus)
Vid vbKeyF6
DoCmd.Close
Vid Else
Avsluta Välj
End Sub
Vad detta innebär är följande:
- Genom att trycka på F2 öppnar Form1
- Genom att trycka på F3 öppnar Form2
- Genom att trycka på F4 öppnas formulário3
- Genom att trycka på F5 öppnar Windows Calculator
- Genom att trycka på F6 stänger formuläret
Förutom funktionstangenten F1, F2 ... etc, kan vi också använda någon annan knapp för att utföra funktioner, men med tanke på att om vi ska mata in data i en form som inte är lämpliga att använda nycklar som används för att skriva data i fälten.
En annan sak är att det bara fungerar på formuläret där du lägger över koder.
Ladda ner: Keys
Posted in Exemplen och Blanketter och moduler | 1 Kommentar »
Lördag, 20 september, 2008 |
Detta är en typ av meny som tillåter oss att spara tid, rader kod och en bättre ordning i fråga om öppna formulär, eftersom den här menyn bara behöver en öppen form. Förutom att minska antalet öppna former minskar också antalet knappar i en meny för att öppna varje form.
Denna typ av meny, förvisso som har funnits en tid och används redan av många användare av Access.
Så var är den här menyn?
Låt oss skapa menyn med en kombinationsruta som innehåller alla de former som vi planerar att öppna genom den. När du väljer ett alternativ från kombinationsrutan ansökningsformuläret visas i underformuläret. Sen börjar vi att göra menyn steg för steg.
1 - Vi skapar en tabell där vi lagrar det namn du vill ge varje form och namn av formen som öppnas. I exemplet jag skapade tabellen "tblmenu" med följande fält:
Fälttyp
Nomedomenu text -> Namn som kommer att ses i menyn (kombinationsrutan)
bildar text -> Namn på den form som öppnas
Efter det att data som införts i exemplet är följande:
NomedoMenu Form
Konton Form1
Insättningar Form2
Rörelser formulario3
Konto-Box formulario4
Account-konto formulario5
Extrahera formulario6
2 - Då skapar vi en förfrågan från den föregående tabellen:
Tblmenu valde tabellen och välj sedan de två områden där vi valde för stigande form nomedomenu vara lättare att hitta i menyn ganska många gånger när vi vill öppna former. För att denna fråga jag kallade "CsMenu".
3 - Låt oss skapa formuläret "Meny", dvs att välja nytt formulär i designvyn. Sedan skapar vi en kombinationsruta och ändra följande egenskaper:
- Antal kolumner: 2
- Kolumnbredder: 1 cm, 0cm;
- Ursprunget till raden: csmenu (som är namnet på frågan skapade i föregående stycke)
4 - I samma form som vi kommer att skapa ett obundet huvudformuläret s underformulär (I exemplet jag ringde menuquadro). Det är denna form som kommer att öppna varje av de former som att välja från menyn (kombinationsrutan).
5 - Nu skapar en modul som ger oss möjlighet att öppna menyn som är vald i kombinationsrutan i underformuläret.
Vi skapade en modul (som jag kallade "abrirmenu) och klistrat in följande kod:
Allmänna funktion AtivarMenu (Combmenu ComboBox, subabrir underformuläret)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
Änden Funktion
Efter att gå till egenskaper kombinationsrutan i formuläret menyn och After uppdateringen händelsen sätter skapat funktion: ativarmenu = ([Meny], [menuquadro]) att "Menu" är namnet på kombinationsrutan och "menuquadro" den namnet på den underformuläret.
Och slutligen menyn är klar för användning. Försök och använda. Jag hoppas du gillade detta tips.
Ladda ner: Meny
Nedan en bild på menyn.
Anpassad meny
Posted in Exemplen och Blanketter och moduler | 12 Kommentarer »
TISDAG 6 MAJ, 2008 |
Detta exempel visar hur ett ledningssystem för tillhandahållande av betalningar.
Exemplet visar att detta inte är att skapa och automatiskt med ett klick på en knapp, skrev in fördelarna med ett avtal om försäljning via data. Det vill säga, presenterar vi kundens namn till kontraktet startdatum och det totala belopp som skall betalas. Sedan är det bara klicka på "beräkna betalningar att det automatiskt genererar antalet delbetalningar och delar det värde som anges av varje av dem och beräknar datum för respektive delbetalning (en per månad). Detta är också ett exempel som visar hur du lägger till flera poster på en gång, för när du klickar på knappen det tillför ett rekord för varje förmån.
Ladda ner: Sätt flera poster
Posted in Dadlar och prover och Forms och moduler och Rekord | 17 Comments »
Lördag, mars 29, 2008 |
Detta är ett exempel på tillämpning områden som Sónia läsare som är avsedda för en data databaspost av djur. Det är en enkel databas med bara en form för inmatning av data med ett foto av djuret.
Ladda ner: Animal Shelter
Varje förändring kommentera just här.
Skriftliga Blanketter och Photos och moduler och Records och Tabeller | 12 Comments »
Onsdag 20 februari, 2008 |
Det finns flera sätt att ange en post och den vanligaste är att få via ett formulär bundet till ett bord. Ett annat sätt att göra detta är genom orelaterade fält, det vill säga använda ett formulär med fält oberoende inte är relaterade till bordet. Till
mata in data som vi använder den "postuppsättningen ', dvs genom en kod, som i fallet med detta exempel är som följer:
Dim db som databas
Dim rs Som Recordset
Om MsgBox ("Vill du skriva?" VbYesNoCancel, "Alternativ") = vbYes Sedan
"Genom att trycka på är frågan om du vill spara posten eller inte, om så koden fortsätter fram till slutet
Uppsättning db = CurrentDb ()
Set rs = db.OpenRecordset ("Data", dbOpenTable)
"Öppna tabellen för att infoga dataregistret
rs.AddNew
rs ("namn") = Me! INome
rs ("adress") = Me! Imorada
rs ("age") = Me! Iidade
rs.Update 'sänder datan till bordet
rs.Close "Clear data och stänger postuppsättningen
Set rs = Nothing
Set db = Nothing
Me.INome = Null "raderar fält i formuläret
Me.Imorada = Noll
Me.Iidade = Noll
MsgBox "Record frälst", vbInformation, "Done"-meddelande visas en bekräftelse
Me.INome.SetFocus "Flytta markören till det första fältet
Else: Exit Sub
End If
Ladda ner: Placera Oberoende
Posted in Exemplen och Forms och moduler och skivor och bord | No Comments »
Tisdag 19 februari, 2008 |
Detta exempel visar hur du utför beräkningar på timmar. Det är användbart för dem som behöver veta hur mycket tid som förflyter mellan en start-och sluttid. Det räcker inte att göra subtraktion av sluttiden för starttiden, för om sluttiden flyttar från en dag till nästa redovisning kommer inte längre är den riktiga, till exempel:
Starttid: 23:00:00
Sluttid: 02:00:00
Sluttid - Starttid = 2:00:00 till 23:00:00 = -21:00:00
Uppenbarligen är det inte så enkelt att arbeta med tiden, för då istället för att behöva tre timmar att korrigera resultatet skulle felaktigt -21 timmar.
För att komma runt denna tid som går från dag till dag vi måste kolla först om den sista tiden är större än starttiden, beroende på vilket större än beräkningen är: Sluttid - Start Time.
Om du är under då måste vi göra beräkningen på ett annat sätt, nämligen:
Starttid: 23:00:00
Sluttid: 02:00:00
Total Tid: 23:59:59
Hit: 00:00:01
I grund och botten vad vi gör är att lägga till värdet av 24:00:00 subtraktion för att ge oss rätt tre timmar. Det är:
Sluttid - Starttid + Total timmar + Hit = 2:00:00 till 23:00:00 + 23:59:59 + 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00
Ladda ner: Calculus med Time
Posted in Exemplen och Forms och timmar och moduler | 21 Kommentarer »
ONSDAG 6 FEBRUARI, 2008 |
Detta exempel visar hur du väljer ett datum via en popup-kalender. Det är, som en modul och kan bilda en välja ett datum eftersom det är en kalender. I exemplet kan vi välja datum genom att klicka på knappen bredvid datumfältet eller klicka på höger musknapp i datumfältet. Detta sätt att skriva datum är mycket praktisk eftersom den tillåter oss att se en kalender och att välja den bästa dagen du vill.
Ladda ner: PopUp Calendar
Posted in Dadlar och prover och Forms och moduler | 1 Kommentar »
Söndag 27 Januari, 2008 |
Vanligtvis när vi kör mittknapp en mus i ett formulär, ändra tillgång loggen. I vissa situationer kan det vara värdefullt att inte händer.
Detta exempel använder en modul i händelse av formuläret för att ladda, för att förhindra att användaren navigera genom posterna med hjälp av musen. För att testa kan vi använda mushjulet (mittenknappen) för att se till att inte ändra registreringen.
Ladda ner här: Wheel Mouse
Posted in Exemplen och Forms och moduler och Mus och Rekord | No Comments »
Måndag 21 Januari, 2008 |
Detta exempel använder en modul som döljer Microsoft Access huvudfönstret vilket innebär att endast den form fönster synlig.
För att använda denna modul måste vi använda följande kommando vid invigningen av formen: Ring fsetAccessWindow (SW_HIDE).
För att kontrollera med hjälp av exempel göra Nerladdningen: Manipulera fönster Acces
Posted in Exemplen och Blanketter och moduler | 8 Comments »
