Posts Tagged 'voorbeelden'
Zaterdag de 16e oktober 2010 |
Na enige tijd zonder bijwerken van de Blog, kreeg ik eindelijk wat tijd om de verkoop systeem te updaten. Veel lezers konden niet door het systeem wachtwoord gevraagd. Dus, ik verwijderde de login systeem voor gemakkelijke toegang.
Afgezien van de wijziging de volgende wijzigingen:
V 0.5.0 (2010-08-19)
- Verwijderde de login en gebruikers.
- Toegevoegd velden (familie, iva en eenheid) in de tabel Producten.
- Heb ik een tabel van de BTW.
- Wijziging van het formulier Producten. (Nieuwe velden, look, nieuwe manier om records te vinden).
- Ik heb de tabel familie (van producten).
- Gewijzigd in de vorm van winkelen wordt alleen geplaatst een product per keer. Ik zette in de vorm van de aankoop van een subformulier, waar u kunt meerdere producten die in een bepaalde leverancier.
Download: 2010 Sales
Alle opmerkingen in een nieuwe update op te lossen of toe te voegen functies.
In de toekomst Ik denk over het wijzigen van de locatie van waar zijn de downloads van bestanden, want als er activiteit is in een bestand voor enige tijd, wordt het bestand verwijderd. Dus ik zal proberen een alternatief voor de easy-aandeel voor dit niet te gebeuren.
In de volgende post zal ik zet een versie van hoe op een uitkering vergelijkbaar met wat er al is in deze berekening bericht , maar in plaats van maandelijkse betalingen kunnen alleen kiezen voor het aantal dagen dat verloopt tussen elke tranche. Dit voorbeeld zal ook dienen op een vraag van een lezer (antwoord Marcelo ).
Geplaatst in voorbeelden , formulieren , Compleet Systeem | 14 Reacties »
Zaterdag de 2 mei 2009 |
Soms is het noodzakelijk is om een formulier geopend te voorkomen als er records, blijkt bijvoorbeeld bij het doen van een query en zich niet te registreren is niet nodig, hoeven we niet te open vorm te zijn omdat we geen gegevens om weer te geven. Dus wat we hebben om te controleren is of er gegevens aan te tonen en als er geen tonen een bericht en belemmeren de vorm open. Hoe?
Het is gemakkelijk om net onder zet de code in de vorm eigenschappen in het evenement 'te openen':
= 0 Then Als Form.RecordsetClone.RecordCount
MsgBox "Geen records gevonden.", VbExclamation, "Fout!"
DoCmd.Close acForm, "vinden gegevens"
Exit Sub
End If
Om een voorbeeld te zien downloaden: Voorkom Vorm Open
Geplaatst in voorbeelden , formulieren , Modules | 2 Comments »
Donderdag de 11 december 2008 |
1 - Maak een bestelformulier in de structuur en het event 'klikt' op de eigenschappen van het formulier voert u het volgende: me.keypreview = true
Of gaat dit om het toetsenbord worden ontvangen in de eerste vorm.
2 - in de vorm eigenschappen, het evenement 'onderstaande knop om' zet de volgende code:
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 Calculator
Calculator = Shell ("calc.exe", vbNormalFocus)
Case vbKeyF6
DoCmd.Close
Case Else
End Select
End Sub
Wat dit doet is het volgende:
- Door op de F2 toets opent het Form1
- Door op de F3-toets opent Form2
- Door op de F4-toets opent de formulário3
- Door het indrukken van de F5-toets opent de Windows Calculator
- Door op de F6-toets sluit de vorm
In aanvulling op de functietoets F1, F2 ... etc, kunnen we ook een andere knop om functies uit te voeren, maar in gedachten houden dat als we gegevens in een formulier niet geschikt om sleutels die worden gebruikt om gegevens in de velden schrijven te gebruiken in te voeren.
Een ander ding is dat het alleen werkt op het formulier waar je de bovenstaande codes.
Download: Keys
Geplaatst in voorbeelden , formulieren , Modules | 1 Comment »
Zaterdag de 20 september 2008 |
Dit is een soort menu dat ons in staat stelt tot tijd, regels code en een betere regeling op te slaan op het gebied van open vormen, want met dit menu hoeft alleen maar een open vorm. Naast het verminderen van het aantal open vormen ook vermindert het aantal knoppen in een menu voor elke vorm te openen.
Dit type menu, zeker dat bestaat al enige tijd en wordt al gebruikt door veel gebruikers van Access.
Dus waar is dit menu?
Laten we aan het menu met behulp van een keuzelijst met invoervak die alle vormen die we van plan om open te stellen via het bevat. Als u een optie te selecteren uit de keuzelijst het aanvraagformulier wordt weergegeven in het subformulier. Dan beginnen we om het menu stap voor stap te maken.
1 - Laten we een tabel maken waar we de naam die u wilt elke vorm en de naam van het formulier dat geopend wordt, geven op te slaan. In het voorbeeld heb ik de tafel 'tblmenu' met de volgende velden:
Veldtype
Nomedomenu tekst -> Naam, dat zal worden gezien in het menu (keuzelijst)
vormen tekst -> Naam van het formulier dat wordt geopend
Nadat de gegevens die in het voorbeeld zijn:
NomedoMenu Formulier
Accounts Form1
Deposito Form2
Mutaties formulario3
Account-Box formulario4
Account-Account formulario5
Extract formulario6
2 - Dan hebben we een query uit de vorige tabel:
Tblmenu koos de tabel en kies vervolgens de twee gebieden die we gekozen voor oplopende sorteervolgorde nomedomenu om makkelijker om het menu wel een paar keer als we willen de formulieren te vinden. Om deze vraag heb ik de naam 'CsMenu'.
3 - We maken het formulier 'Menu', dat wil zeggen kiezen voor nieuwe formulier in de ontwerpweergave. Dan creëren we een keuzelijst met invoervak en wijzig de volgende eigenschappen:
- Aantal kolommen: 2
- Kolombreedten: 1cm, 0cm;
- Oorsprong van de lijn: csmenu (dat is de naam van de query gemaakt in de vorige paragraaf)
4 - In hetzelfde formulier zullen wij een ongebonden belangrijkste formulier subformulier maken (In het voorbeeld dat ik noemde menuquadro). Het is deze vorm die zal worden geopend elk van de vormen om uit te kiezen in het menu (keuzelijst).
5 - Maak nu een module die zal ons toelaten om in het menu dat is geselecteerd in de keuzelijst in het subformulier te openen.
We hebben een module (die ik wel 'abrirmenu') en geplakt de volgende code:
Public Function AtivarMenu (Combmenu De ComboBox, subabrir het subformulier)
Abrirform As String Dim
= Combmenu.Column abrirform (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Na het gaan om de eigenschappen van de keuzelijst op het formulier menu en de na update gebeurtenis zet de gecreëerde functie: ativarmenu = ([Menu], [menuquadro]) dat de 'Menu' is de naam van de keuzelijst en 'menuquadro' de naam van het subformulier.
En tenslotte de menu klaar voor gebruik. Gewoon proberen en te gebruiken. Ik hoop dat je genoten hebt van deze tip.
Download: Menu
Hieronder een foto van het menu.
Custom Menu
Geplaatst in voorbeelden , formulieren , Modules | 12 Reacties »
Donderdag de 19 juni 2008 |
Dit was zeker een speler Elton Rueb en hij slaagde er zelfs op te lossen voordat ik helpen. Wat de lezer was bedoeld om de tijd die een gebruiker in te voegen een record te meten en het heeft drie velden: een voor de starttijd wanneer het wordt geopend in de vorm, voor het eerst tot het einde, dat is geplaatst wanneer u op de opnameknop en een veld om het verschil te berekenen. Dit is een eenvoudig voorbeeld, maar kunnen ontbreken aan diegene die tussen twee keer berekenen. Dus de Elton Rueb (Rio de Janeiro - RJ - Brazilië), mits het voorbeeld dat iemand anders zou kunnen helpen.
Download: Test Time
Geplaatst in Data , monsters , overgedragen Voorbeelden , Expressions , Vorm , Time | 2 Comments »
Donderdag de 12 juni 2008 |
De lezer Jacinto een vraag hier over hoe u het formaat van een datum van 12/06/2008 te wijzigen voor 2 0 0 8 0 6 1 2 is de respons zoals uitgelegd in de commentaren is zo simpel als een tekstvak met de volgende uitdrukking:
= Format ([datumveld naam], "mm dd jjjj")
en eigenschappen van het veld de volgende woorden in het invoermasker: 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0
Vrij eenvoudig en gemakkelijk. Volg het voorbeeld om te downloaden: Formaat datum
Geplaatst in Data , voorbeelden , Expressions , Formulieren | 1 Comment »
Dinsdag de 6 mei 2008 |
Dit voorbeeld laat zien hoe een management systeem voor het verstrekken van de betalingen.
Het voorbeeld toont aan dat dit leidt tot het ontstaan en automatisch is met een druk op de knop, de voordelen van een contract van verkoop via de gegevens heeft ingevoerd. Dat wil zeggen, introduceren wij de klant de naam van het contract startdatum en het totaal te betalen bedrag. Vervolgens klikt u op de "bereken betalingen" die automatisch het genereert het aantal termijnen en verdeelt de waarde aangegeven door elk van hen en berekent de datum van elke tranche (een per maand). Dit is ook een voorbeeld dat laat zien hoe meerdere records toe te voegen in een keer, want als je op de knop voegt een record voor elk voordeel.
Download: Plaats meerdere records
Geplaatst in Data , monsters , vormen , Modules , Records | 17 Reacties »
Zondag de 6 april 2008 |
Voor degenen die willen een ander effect op de formulieren te geven, meer bepaald wanneer we het invoeren van gegevens, kunnen we de kleur van het veld waar de cursor. Dat wil zeggen dat alle data entry velden zijn in het wit dan het gebied waar we schrijven dat is van een andere kleur.
Om deze is het heel eenvoudig te doen, selecteert u de velden in en kies de achtergrondkleur die u wilt weergeven wanneer de cursor in het veld en dan de kleur veranderen in transparant.
Download: Verander kleur gegevensveld
Geplaatst in kleuren , monsters , Formulieren | 10 Reacties »
Dinsdag de 18 maart 2008 |
Op verzoek van de speler Joao Cabrita ontwikkelde deze vorm van controle punt dat geldt voor een brandweerkazerne, meer specifiek op de behoeften van de lezer.
Het is een eenvoudig voorbeeld, maar met wat meer geavanceerde details over wat het is bedoeld om de controle van in-en uitgangen van de medewerkers te maken, controleert u of werkte een 12-uurs shift en voeg meer gewerkte uren en uren gewerkt om minder.
Dit alles voor een maandelijks verslag van het bijwonen van elke werknemer.
Download: Point
Geschreven Overleg , data , voorbeelden , uitdrukkingen , vormen , uren , rapporten | 9 Comments »
Woensdag de 20 februari 2008 |
Er zijn verschillende manieren om een record in te voeren, en de meest voorkomende is om door middel van een formulier gebonden aan een tafel. Een andere manier om dit te doen is via niet-verbonden velden, dat wil zeggen met behulp van een formulier met velden onafhankelijke los van de tafel. Naar
u de gegevens we het recordset, bijvoorbeeld door een code die in het geval van dit voorbeeld is als volgt:
Dim db als database
Dim de goede kant als recordset
Als MsgBox ("Wil je schrijven?" VbYesNoCancel, "Options") = vbYes Dan
"Door het indrukken wordt gevraagd of u de record op te slaan of niet, zo ja de code blijft tot eind
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Data", dbOpenTable)
'Open de tabel in te voegen van de gegevens te registreren
rs.AddNew
rs ("naam") = Me! INome
rs ("adres") = Me! Imorada
rs ("leeftijd") = Me! Iidade
rs.Update 'stuurt de gegevens naar de tabel
rs.Close 'Wis de gegevens en sluit de recordset
Set rs = Nothing
Set db = Nothing
Me.INome = Null 'wist de velden van het formulier
Me.Imorada = Null
Me.Iidade = Null
MsgBox "gered Record", vbInformation, "Klaar" 'Display bevestigingsbericht
Me.INome.SetFocus 'Verplaats de cursor naar het eerste veld
Else: Exit Sub
End If
Download: Plaats Independent
Geplaatst in voorbeelden , formulieren , Modules , verslagen , tabellen | No Comments »
