Stillinger Tagged 'eksempler forb.
Lørdag, 16 oktober, 2010 |
Efter nogen tid uden at opdatere blog, jeg endelig fik tid til at opdatere salget systemet. Mange læsere kunne ikke få på grund af systemet login password spurgt. Så jeg fjernede login-system for nem adgang.
Bortset fra denne ændring, der foretages følgende ændringer:
V 0.5.0 (2010-08-19)
- Fjernet login og brugere.
- Tilføjet felter (familie, iva og enhed) i tabellen Produkter.
- Jeg oprettede en tabel med moms.
- Ændring af formularen Produkter. (Nye felter, look, ny måde at finde poster).
- Jeg har oprettet tabellen familien (af produkter).
- Ændret form af shopping kun indsættes ét produkt ad gangen. Jeg sætter i form af at købe en underformular, hvor du kan indtaste flere produkter købt i en given leverandør.
Download: 2010 Salg
Alle kommentarer i en ny opdatering til at fastsætte eller tilføje nye funktioner.
I fremtiden Jeg tænker på at ændre placeringen af hvor er download af filer, da hvis der er aktivitet i en fil i nogen tid, er filen fjernes. Så jeg vil forsøge et alternativ til let-andel for det ikke til at ske.
I næste indlæg vil jeg sætte en version af hvordan man beregner de samme fordele, hvad der er allerede her i posten , men i stedet for at have månedlige betalinger kan kun vælge det antal dage, der forløb mellem hver rate. Dette eksempel vil også tjene til at besvare et spørgsmål fra en læser ( Marcelo ).
Posted in Eksempler og Forms og komplet system | 14 Comments »
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 - I form egenskaber, event '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 »
Torsdag, 19 Juni, 2008 |
Dette var helt sikkert en spiller Elton Rueb og han endda formået at løse, før jeg hjælpe. Hvad læseren havde til formål at måle den tid det tager en bruger at indsætte en rekord, og det har tre felter: et til start tidspunkt, hvor den åbner formularen for første gang til ende, er indsat, når du klikker på optage-knappen, og et felt til at beregne forskellen. Dette er et simpelt eksempel, men der kan mangle til dem, der ønsker at beregne forskellen mellem to gange. Så Elton Rueb (Rio de Janeiro - RJ - Brazil), forudsat det eksempel, der kunne hjælpe en anden.
Download: testtid
Posted in Datoer og prøver og overført eksempler og Expressions og Form og Time | 2 Comments »
Torsdag 12 juni, 2008 |
Læseren Jacinto stille et spørgsmål her om, hvordan du ændre formatet på en dato for 2008/12/06 for 2 0 0 8 0 6 1 2, svaret som forklaret i kommentarerne er så simpelt som en tekstboks med følgende udtryk:
= Format ([dato feltnavn], "mm dd åååå")
og egenskaber af feltet satte følgende ord i indtastningsmasken: 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0
Ret enkel og nem. Følg eksemplet for download: Format dato
Posted in Datoer og eksempler og Expressions og Formularer | No Comments »
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 »
Søndag, 6 april, 2008 |
For dem, der ønsker at give en anden virkning på de formularer, når vi indtaster data mere specifikt, kan vi ændre farven på det område, hvor markøren. Det vil sige, alle data indtastningsfelter er i det hvide end det felt, hvor vi skriver, der er af en anden farve.
For at gøre dette er det meget nemt, bare vælge de felter, og vælge den baggrundsfarve, du ønsker skal vises, når markøren er i feltet, og derefter ændre farve til gennemsigtig.
Download: Skift farve datafelt
Posted in farver og prøver og Formularer | 10 kommentarer »
Tirsdag, 18 Marts, 2008 |
På anmodning af afspilleren Joao Cabrita udviklet denne form for kontrol punkt, der gælder for en brandstation, mere specifikt behov læseren.
Det er et grundlæggende eksempel, men med nogle mere avancerede detaljer om, hvad det er hensigten at gøre styring af indgange og udgange af medarbejdere, der arbejdede en 12 timers skift kontrollere og tilføje flere arbejdstimer og arbejdstimer mindre.
Alt dette til en månedlig rapport om tilstedeværelse af den enkelte medarbejder.
Download: Punkt
Skrevet Høring , datoer og eksempler og udtryk og former og timer og rapporter | 9 Kommentarer »
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 »
