Stillinger Tagged 'moduler'
Lørdag 2 maj, 2009 |
Nogle gange er det nødvendigt at forhindre en form åben, hvis der er logbøger, der dokumenterer, for eksempel når du laver en forespørgsel og ingen registrering er ikke påkrævet, behøver vi ikke at være åben form, da vi har ingen data at vise. Så hvad vi har for at tjekke, om der er logbøger, der dokumenterer, og hvis der ikke viser en besked, og hindre formularen åben. Hvordan?
Det er nemt at bare sætte koden nedenfor i form ejendomme i tilfælde af 'for at åbne':
= 0 Then Hvis Form.RecordsetClone.RecordCount
MsgBox "Ingen poster blev fundet.", VbExclamation, "Fejl!"
DoCmd.Close acForm, "find data"
Exit Sub
End If
Hvis du vil se et eksempel downloade: Undgå Form Open
Posted in Eksempler og Forms og Modules | 2 Comments »
Torsdag 11 December, 2008 |
1 - Opret en ordreseddel i struktur og event 'klikker' på egenskaberne for formularen skal du indtaste følgende: me.keypreview = true
Eller er dette kommer til at gøre tastaturet begivenheder er modtaget i den første form.
2 - Egenskaber for formular, hvis "knappen nedenfor for at 'sætte følgende kode:
Private Sub Form_KeyDown (keycode As Integer, Shift As Integer)
Vælg Case keycode
Sag vbKeyF2
DoCmd.OpenForm "Form1"
Sag vbKeyF3
DoCmd.OpenForm "Form2"
Sag vbKeyF4
DoCmd.OpenForm "formulario3"
Sag vbKeyF5
Som Double Dim Calculator
Lommeregner = Shell ("calc.exe", vbNormalFocus)
Sag vbKeyF6
DoCmd.Close
Case Else
Afslut Vælg
End Sub
Hvad dette gør, er følgende:
- Ved at trykke på F2-tasten åbner Form1
- Ved at trykke på F3-tasten åbner Form2
- Ved at trykke på F4 tasten åbner formulário3
- Ved at trykke på F5-tasten åbner Windows Lommeregner
- Ved at trykke på F6-tasten lukker formularen
Ud over funktionstasten F1, F2 ... osv kan vi også bruge på en anden knap til at udføre funktioner, men holde sig for øje, at hvis vi skal indtaste data i en form, der ikke er egnede til at bruge nøgler, der bruges til at skrive data i felterne.
En anden ting er, at det kun virker på den formular, hvor du lægger de ovennævnte koder.
Download: Keys
Posted in Eksempler og Forms og Modules | 1 Comment »
Lørdag, 20 september, 2008 |
Dette er en slags menu, der giver os mulighed for at spare tid, linjer kode og en bedre ordning i form af åbne former, eftersom man med denne menu skal bare have en åben form. Ud over at reducere antallet af åbne former mindsker også antallet af knapper i en menu for at åbne hver formular.
Denne type menu, helt sikkert, der har eksisteret i nogen tid, og bruges allerede af mange brugere af Access.
Så hvor er denne menu?
Lad os skabe menuen ved hjælp af en kombinationsboks, der indeholder alle de former, som vi planlægger at åbne igennem det. Når du vælger en indstilling fra kombinationsboksen ansøgningen vises i underformularen. Så vi begynder at gøre menuen trin for trin.
1 - Lad os oprette en tabel, hvor vi vil gemme det navn, du ønsker at give hver form og navnet på den formular, der åbnes. I det eksempel jeg har oprettet bordet 'tblmenu' med følgende områder:
Field Type
Nomedomenu tekst -> Navn der vil blive set i menuen (kombinationsboks)
danner tekst -> Navn på den form, der åbnes
Efter at dataene er indført i eksemplet er:
NomedoMenu Form
Konti Form1
Indskud Form2
Bevægelser formulario3
Konto-Box formulario4
Konto-konto formulario5
Uddrag formulario6
2 - Så skaber vi en forespørgsel fra den foregående tabel:
Tblmenu valgte tabellen og derefter vælge de to områder, hvor vi valgte for stigende slags nomedomenu at være nemmere at finde den menu, en hel del gange, hvor vi ønsker at åbne former. Til denne forespørgsel jeg kaldte "CsMenu '.
3 - Lad os skabe den form 'Menu', dvs vælge ny formular i designvisning. Så skaber vi en kombinationsboks og ændre følgende egenskaber:
- Antal kolonner: 2
- Kolonnebredder: 1cm, 0cm;
- Baggrunden for linje: csmenu (som er navnet på den forespørgsel oprettet i forrige afsnit)
4 - I den samme form, vi vil skabe en ubundet vigtigste formularens underformular (I det eksempel jeg ringede menuquadro). Det er denne form, vil være åben hver af de former at vælge fra menuen (kombinationsboksen).
5 - Nu kan du oprette et modul, der vil give os mulighed for at åbne menuen, der er valgt i kombinationsboksen i underformularen.
Vi har skabt et modul (som jeg kaldte "abrirmenu") og indsat følgende kode:
Public Function AtivarMenu (Combmenu Den ComboBox, subabrir underformularen)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Efter at have gået til de egenskaber kombinationsboks på formularen menuen og efter opdateringen tilfælde sat den oprettede funktion: ativarmenu = ([Menu], [menuquadro]), at "Menu" er navnet på kombinationsboksen og 'menuquadro "den navn underformularen.
Og endelig menuen er klar til brug. Bare prøv og bruge. Jeg håber du har nydt dette tip.
Download: Menu
Herunder et billede af menuen.
Brugerdefineret menu
Posted in Eksempler og Forms og Modules | 12 Kommentarer »
Tirsdag, 6 maj, 2008 |
Dette eksempel viser, hvordan et system for levering af betalinger.
Eksemplet viser, at dette ikke er oprette og automatisk med et klik på en knap, fordelene ved en kontrakt om salg gennem de indtastede data. Det vil sige, vi introducerer kundens navn til kontrakten startdato og det samlede beløb. Derefter skal du blot klikke på "Beregn betalinger", at det automatisk genererer antallet af afdrag og opdeler den værdi, angivet ved hver af dem og beregner datoen for hver rate (en pr måned). Det er også et eksempel, der viser hvordan du kan tilføje flere poster på én gang, fordi når du klikker på knappen det tilføjer en rekord for de enkelte ydelser.
Download: Indsæt flere poster
Posted in Datoer og prøver og former og Modules og Records | 17 Kommentarer »
Lørdag 29 marts, 2008 |
Dette er et eksempel på de anvendelsesområder, som Sonia læseren er beregnet til en databasepost data fra dyr. Det er en simpel database med blot en formular til indtastning af data med et foto af dyret.
Download: Animal Shelter
Enhver ændring lige kommentere her.
Skriftlige Forms og billeder og Modules og Records og tabeller | 12 Comments »
Onsdag 20 februar, 2008 |
Der er flere måder at komme til en rekord, og den mest almindelige er at få gennem en form bundet til et bord. En anden måde at gøre dette på er gennem uafhængige områder, nemlig ved hjælp af en formular med felter uafhængig uafhængige til bordet. Til
indtaste data, vi bruger "postsættet", dvs med en kode, som i tilfælde af dette eksempel er som følger:
Dim db som database
Dim rs Som Recordset
Hvis MsgBox ("Vil du skrive?" VbYesNoCancel, "Indstillinger") = vbYes Derefter
"Ved at trykke bliver bedt om at gemme posten eller ej, hvis så koden fortsætter indtil udgangen af
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Data", dbOpenTable)
"Åbn den tabel til at indsætte de data, der registrerer
rs.AddNew
rs ("navn") = Me! INome
rs ("adresse") = Me! Imorada
rs ("alder") = Me! Iidade
rs.Update 'sender data til bordet
rs.Close 'Ryd data og lukker postsættet
Set rs = Nothing
Set db = Nothing
Me.INome = Null 'rydder de felter i form
Me.Imorada = Null
Me.Iidade = Null
MsgBox "frelst Record", vbInformation "Udført" 'Vis bekræftelse
Me.INome.SetFocus 'Flyt markøren til det første felt
Else: Exit Sub
End If
Download: Placer Independent
Posted in Eksempler og Forms og Modules og optegnelser og borde | No Comments »
Tirsdag 19 februar, 2008 |
Dette eksempel viser, hvordan du udfører beregninger på timer. Det er nyttigt for dem, der har brug for at vide, hvor meget tid der er gået mellem en start-og sluttidspunkt. Det er ikke nok til at gøre subtraktion af den sluttidspunkt for starttidspunktet, for hvis afslutningen tid på at flytte fra den ene dag til den næste regnskab vil ikke længere er korrekte, for eksempel:
Start Tid: 23:00:00
Slut Tid: 02:00:00
End Time - Start Time = 2:00:00 til 23:00:00 = -21:00:00
Det er naturligvis ikke så enkelt at arbejde med tiden, fordi så i stedet for at have tre timer til korrekt resultat som forkert -21 timer.
For at omgå denne periode, der går fra dag til dag vi nødt til at kontrollere først, hvis sluttidspunktet er større end starttidspunktet, dog mindst da beregningen er: Slut Tid - Start Time.
Hvis du er under så er vi nødt til at gøre beregningen anden måde, nemlig:
Start Tid: 23:00:00
Slut Tid: 02:00:00
Samlet tid: 23:59:59
Hit: 00:00:01
Dybest set, hvad vi gør, er at tilføje til en værdi af 24:00:00 subtraktion at give os de korrekte tre timer. Der er:
End Time - Start Time + samlede antal timer + Hit = 02:00:00 to 23:00:00 + 23:59:59 + 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00
Download: Calculus med Time
Posted in Eksempler og Forms og Timer og Modules | 21 Kommentarer »
Onsdag 6 februar, 2008 |
Dette eksempel viser, hvordan du vælger en dato gennem en popup kalender. Det vil sige som et modul og kan danne en udvalgt en dato som denne er en kalender. I det eksempel, vi kan vælge den dato ved at klikke på knappen ved siden af datofeltet eller klikke på højre knap på musen i datofeltet. Denne måde at angive datoer er meget praktisk, da det giver os mulighed for at se en kalender og til at vælge den bedste ønskede dato.
Download: popup kalender
Posted in Datoer og prøver og Formularer og Modules | 1 Comment »
Søndag, 27 januar, 2008 |
Normalt når vi løber på den midterste knap på en mus på en formular, ændre adgang log. I nogle situationer kan det være nyttigt at der ikke sker.
I dette eksempel anvendes et modul i tilfælde af formen til at indlæse, for at forhindre brugeren navigere gennem posterne anvende scroll mus. For at teste kan vi bruge musehjulet (midterste knap) for at se, at der ikke ændre registreringen.
Download her: Wheel mouse
Posted in Eksempler og Forms og Modules og Mus og Records | No Comments »
Mandag 21 januar, 2008 |
Dette eksempel bruger et modul, der skjuler Microsoft Access hovedvinduet, så kun den form vindue synlige.
For at bruge dette modul skal vi bruge følgende kommando ved åbningen tilfælde af formen: opkaldet fsetAccessWindow (SW_HIDE).
For at kontrollere ved hjælp af eksempelvis gøre downloa: Manipuler Window Acces
Posted in Eksempler og Forms og Modules | 8 Kommentarer »
