Posts Tagged 'Modules'
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 »
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 »
Zaterdag de 29 maart 2008 |
Dit is een voorbeeld van de toepassing velden Sonia lezer voor een database-record data van dieren. Het is een eenvoudige database met slechts een formulier voor het invoeren van gegevens met een foto van het dier.
Download: Animal Shelter
Elke verandering gewoon hier reageren.
Geschreven Formulieren , Foto's , modules , Records , Tafels | 12 Reacties »
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 »
Dinsdag de 19 februari 2008 |
Dit voorbeeld laat zien hoe het uitvoeren van berekeningen op uren. Het is nuttig voor diegenen die het nodig te weten hoeveel tijd is verstreken tussen een begin-en eindtijd. Het is niet genoeg om de aftrek te maken van de eindtijd van de begintijd, want als de eindtijd van de ene dag op de andere rekeningen niet meer correct, bijvoorbeeld:
Start tijd: 23:00:00
Eindtijd: 02:00:00
Eindtijd - Start Time = 02:00:00 tot 23:00:00 = -21:00:00
Uiteraard is het niet zo eenvoudig om te werken met de tijd, want dan in plaats van drie uur naar juiste resultaat er ten onrechte van -21 uur.
Om dit te omzeilen periode die gaat van dag tot dag moeten we om te controleren eerst of de eindtijd groter is dan de starttijd, welke groter is dan de berekening is: Eindtijd - Start Time.
Als je jonger bent dan moeten we de berekening uit te voeren op een andere manier, namelijk:
Start tijd: 23:00:00
Eindtijd: 02:00:00
Totale tijd: 23:59:59
Hit: 00:00:01
In principe wat we doen is toe te voegen aan de waarde van 24:00:00 aftrekken om ons de juiste drie uur. Dat wil zeggen:
Eindtijd - Start Time + Totaal aantal uren + Hit = 02:00:00 tot 23:00:00 + 23:59:59 + 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00
Download: Calculus met Time
Geplaatst in voorbeelden , formulieren , Uur , Modules | 21 Reacties »
Woensdag de 6 februari 2008 |
Dit voorbeeld laat zien hoe om te kiezen een datum door middel van een popup kalender. Dat wil zeggen, als een module en kan een select een datum te vormen aangezien dit een kalender. In het voorbeeld hebben we de keuze van de datum door te klikken op de knop naast het datumveld of klikken met de rechter knop van de muis in het datumveld. Deze manier om data in te voeren is heel praktisch omdat het ons toelaat om een kalender te zien en om de beste datum te kiezen.
Download: PopUp Kalender
Geplaatst in Data , monsters , Formulieren , Modules | 1 Comment »
Zondag de 27 januari 2008 |
Meestal als we op de middelste knop van een muis lopen op een formulier, wijzigt u de toegang log. In sommige gevallen kan het nuttig dat dit niet gebeurt.
In dit voorbeeld wordt een module in het geval van het formulier in te laden, om te voorkomen dat de gebruiker navigeren door de records met de scroll-muis. Om te testen kunnen we het muiswiel te gebruiken (middelste knop) om te zien dat niet de registratie te veranderen.
Download hier: Wheel muis
Geplaatst in voorbeelden , formulieren , Modules , Muis , Records | No Comments »
Maandag de 21 januari 2008 |
In dit voorbeeld wordt een module die de Microsoft Access hoofdvenster verbergt, waardoor alleen het formulier venster zichtbaar.
Oproep fsetAccessWindow (SW_HIDE): Om deze module moeten we het volgende commando te gebruiken op het openingsevenement van het formulier te gebruiken.
Om na te gaan bij wijze van voorbeeld doen DOWNLOA: Manipuleer Window Acces
Geplaatst in voorbeelden , formulieren , Modules | 8 Comments »
