Posts Tagged 'modules'
Sâmbătă doi-05-2009 |
Uneori este necesar pentru a preveni o formă deschisă în cazul în care există înregistrări pentru a demonstra, de exemplu, atunci când faci o interogare şi nu de înregistrare nu este necesară, nu trebuie să fie sub formă deschisă, deoarece nu avem date pentru a afişa. Deci, ceea ce avem este de a verifica dacă există înregistrări pentru a arăta şi dacă nu există nici o afişa un mesaj şi împiedică formularul de deschis. Cum?
Este uşor de a pune doar codul de mai jos, în proprietăţile de formular, în cazul "pentru a deschide":
= 0, apoi, dacă Form.RecordsetClone.RecordCount
MsgBox "Nu au fost găsite.", VbExclamation, "Eroare!"
DoCmd.Close acForm, "să găsească date"
Exit Sub
Final, dacă
Pentru a vedea un exemplu descarcati: Prevenirea formă deschisă
Posted in exemple , formulare , module | 2 Comentarii »
Joi unsprezecelea decembrie 2008 |
1 - Crearea unui formular de comandă în structura şi eveniment "click" pe proprietăţile formularului introduce următorul text: me.keypreview = true
Sau se va face acest evenimentele de tastatură sunt primite în prima formă.
2 - În proprietăţile de formular, "butonul de mai jos pentru a" evenimentul a pus codul de mai jos:
Form_KeyDown Private Sub (keycode Ca Integer, Shift ca Întreg)
Selectaţi keycode cauza
Cauza vbKeyF2
DoCmd.OpenForm "Form1"
Cauza vbKeyF3
DoCmd.OpenForm "Form2"
Cauza vbKeyF4
DoCmd.OpenForm "formulario3"
Cauza vbKeyF5
Ca Calculator Dim dublă
Calculator = Shell ("calc.exe", vbNormalFocus)
Cauza vbKeyF6
DoCmd.Close
Cauza Altele
Selectaţi End
End Sub
Ce face acest lucru este următorul:
- Prin apăsarea tastei F2 se deschide Form1
- Prin apăsarea tastei F3 se deschide Form2
- Prin apăsarea tastei F4 se deschide formulário3
- Prin apăsarea tastei F5 deschide Calculator pentru Windows
- Prin apăsarea tastei F6 închide formularul de
În plus, pentru a tasta F1 funcţia, F2 ... etc, putem folosi, de asemenea, orice alt buton pentru a efectua funcţii, dar păstrând în minte că, dacă vrem să introduceţi date într-o formă care nu sunt adecvate pentru a utiliza tastele care sunt utilizate pentru a scrie date în câmpurile.
Un alt lucru este că funcţionează doar pe formularul de unde ai pus codurile de mai sus.
Download: Taste
Posted in exemple , formulare , module | 1 Comentariu »
Sâmbătă douăzeci/9/2008 |
Aceasta este un fel de meniu care ne permite să economisi timp, de linii de cod şi un aranjament mai bun în termeni de forme deschise, deoarece cu acest meniu nevoie doar de o formă deschisă. În plus faţă de reducerea numărului de formulare deschise, de asemenea, scade numărul de butoane într-un meniu pentru a deschide fiecare formular.
Acest tip de meniu, cu siguranţă că a existat de ceva timp si este deja utilizat de către mai mulţi utilizatori de acces.
Deci, unde este acest meniu?
Să creăm meniu utilizând o casetă combo care conţine toate formele pe care le propunem pentru a deschide prin ea. Când selectaţi o opţiune din caseta combo formularul de cerere este afişată în subformular. Apoi, vom începe să facă pas cu pas meniul.
1 - Să creăm un tabel în cazul în care vom păstra numele pe care doriţi să dea fiecare formă şi numele de forma în care se va deschide. În exemplul am creat "tblmenu", tabelul cu următoarele domenii:
Tip de câmp
Textul Nomedomenu -> numele care va fi văzut în meniul (combo box)
sub formă de text -> Nume de forma în care se va deschide
După datele introduse în de exemplu, sunt:
NomedoMenu Formular
Conturi Form1
Depozite Form2
Mişcările formulario3
Contul-Box formulario4
De cont cont formulario5
Extras formulario6
2 - Apoi, vom crea o interogare de la tabelul anterior:
Tblmenu ales masă şi apoi alegeţi cele două domenii în care am ales pentru ascendentă nomedomenu de sortare pentru a fi mai uşor de a găsi în meniul de câteva ori atunci când doriţi să le deschideţi forme. Pentru această interogare am numit "CsMenu".
3 - Să creeze "Meniu" forma, adică alege forma nouă în vizualizarea Proiectare. Apoi, vom crea o casetă combo şi să modificaţi următoarele proprietăţi:
- Numărul de coloane: 2
- Latime: 1cm coloană, 0cm;
- Originea linie: csmenu (care este numele de interogare a creat în paragraful anterior)
4 - În aceeaşi formă, vom crea un formular nelegat subformular principal (In exemplul am chemat menuquadro). Este acest formular care va fi deschis în fiecare din următoarele forme de a alege din meniu (caseta combo).
5 - Acum, creaţi un modul care ne va permite pentru a deschide meniul, care este selectat în caseta combo în subformular.
Am creat un modul (pe care am numit "abrirmenu") şi lipit codul de mai jos:
AtivarMenu Funcţia publică (Combmenu ComboBox, subabrir subformular)
Abrirform Ca String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
Sfârşit Funcţia
După ce la proprietatile caseta combo pe meniul de forma şi după un eveniment de actualizare puse creat funcţia de: ativarmenu = ([Menu], [menuquadro]), că "Meniu" este numele de caseta combo şi "menuquadro" Numele de subformular.
Şi în final meniul este gata de utilizare. Doar încercaţi şi de a folosi. Sper ca ti-a placut acest sfat.
Download: Meniu
Mai jos o imagine a meniului.
Meniu personalizat
Posted in exemple , formulare , module | 12 Comentarii »
Marţi 2008-5-şase |
Acest exemplu arată modul în care un sistem de management pentru furnizarea de plăţi.
Exemplu, arată că aceasta nu este a crea si automat cu o apasare a unui buton, beneficiile unui contract de vânzare prin datele introduse. Asta este, vom introduce numele clientului la data inceperii contractului şi valoarea totală plătibilă. Apoi, faceţi clic pur şi simplu "calcularea plăţilor", pe care le generează în mod automat numărul de tranşe şi împarte valoarea indicată de fiecare dintre ele şi calculează data fiecărei tranşe (una pe lună). Acesta este, de asemenea, un exemplu care demonstrează cum să adăugaţi mai multe înregistrări la o dată, pentru că atunci când faceţi clic pe butonul adaugă o înregistrare pentru fiecare prestaţie.
Download: Introduceţi mai multe înregistrări
Posted in Date , mostre , formulare , module , Inregistrari | 17 Comentarii »
Simbata, douăzeci şi nouă/03/2008 |
Acesta este un exemplu de domeniile de aplicare care Sónia cititor de date destinate pentru un record de baze de date de animale. Este o bază de date simplă, cu doar un formular de introducere de date, cu o fotografie a animalului.
Download: adapost de animale
Orice modificare a comenta doar aici.
Scrise Formulare , Fotografii , Module , Records , Mese | 11 Comentarii »
Miercuri 2008-2-douăzeci |
Există mai multe moduri de a introduce o înregistrare, iar cel mai comun este de a obtine printr-un formular legat la un tabel. Un alt mod de a face acest lucru este prin câmpuri independenţi, de exemplu folosind un formular cu câmpuri care nu au legătură independent de la masa. La
introduceţi datele pe care le folosesc "de înregistrări", adică de un cod, care, în cazul acestui exemplu, este după cum urmează:
Db Dim ca bază de date
Dim rs Ca Recordset
Dacă MsgBox ("Vrei să scrii?" VbYesNoCancel, "Options") = vbYes Apoi
"Prin apăsarea este întrebat dacă pentru a salva înregistrarea sau nu, dacă aşa codul continuă până la sfârşitul anului
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Date", dbOpenTable)
"Deschideţi tabelul pentru a introduce în registru de date
rs.AddNew
rs ("nume") = Me! INome
rs ("adresa") = Me! Imorada
rs ("vârsta") = Me! Iidade
"rs.Update trimite datele la masa
"rs.Close şterge datele şi închide înregistrări
Set rs = nimic
Set db = nimic
Me.INome = Null "şterge câmpurile din formularul de
Me.Imorada = Null
Me.Iidade = Null
MsgBox "Înregistrare salvat", vbInformation, "Done", mesajul de "confirmare Ecran
"Me.INome.SetFocus Mutaţi cursorul la primul câmp
Sub ieşire: în altă parte
Final, dacă
Download: Locul Independent
Posted in exemple , formulare , module , înregistrări , mese | No Comments »
Marţi nouăsprezece/2/2008 |
Acest exemplu arată modul în care pentru a efectua calcule de ore. Este util pentru cei care au nevoie să ştie cum de mult timp scurs între o oră de început şi ora de terminare. Nu este suficient pentru a face scăderea de ora de terminare pentru ora de începere, pentru că în cazul în care ora de terminare trece de la o zi la conturile urmatoarele nu va mai corect, de exemplu:
Ora de începere: 23:00:00
End Time: 02:00:00
Ora de sfârşit - Start Time = 02:00:00 - 23:00:00 = -21:00:00
Evident, nu este atât de simplu de a lucra cu timpul, pentru că atunci în loc de a avea trei ore la rezultatul corect ar falsă -21 oră.
Pentru a obţine în jurul valorii de această perioadă care merge de la zi la zi, trebuie să verificaţi mai întâi dacă ora de terminare este mai mare decât timpul de pornire, oricare dintre acestea este mai mare, atunci de calcul este: End Time - Start Time.
Dacă sunteţi în, atunci avem de a face un alt mod de calcul, şi anume:
Ora de începere: 23:00:00
End Time: 02:00:00
Timpul total: 23:59:59
Hit: 00:00:01
Practic ceea ce facem noi este să adăugaţi la valoarea de 24:00:00 scădere să ne dea cele corecte trei ore. Aceasta este:
Ora de sfârşit - Start Time + + Total ore Hit = 02:00:00 to 23:00:00 + 23:59:59 + 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00
Download: Calculul cu timpul
Posted in exemple , formulare , ore , Module | 20 Comentarii »
Miercuri şase/2/2008 |
Acest exemplu arată cum să aleagă o dată printr-un calendar PopUp. Aceasta este, ca un modul şi poate forma o selectaţi o data ca acesta este un calendar. În exemplu, putem alege data făcând clic pe butonul de lângă câmpul data sau făcând clic pe butonul din dreapta al mouse-ului în domeniul data. Acest mod de a introduce datele este foarte practic deoarece ne permite să vedem şi un calendar pentru a alege cea mai buna data dorită.
Download: PopUp Calendar
Posted in Date , mostre , formulare , module | 1 Comentariu »
Duminica, douăzeci şi şapte-1-2008 |
De obicei, atunci când vom rula butonul central al mouse-ului pe un formular, schimba jurnal de acces. În unele situaţii, poate fi util, care nu se intampla.
Acest exemplu utilizează un modul, în caz de formular pentru a încărca, pentru a preveni ghidul de navigare prin înregistrări folosind mouse-ul de defilare. Pentru a testa putem folosi roata mouse-ului (butonul din mijloc), pentru a vedea că nu se schimba de înregistrare.
Descarcă de aici: rotiţa mouse-ului
Posted in exemple , formulare , module , Mouse , Inregistrari | No Comments »
Luni, douăzeci şi un/01/2008 |
Acest exemplu utilizează un modul care ascunde fereastra principală Microsoft Access, lăsând doar sub forma de fereastra vizibilă.
Pentru a utiliza acest modul trebuie să utilizaţi următoarea comandă de la evenimentul de deschidere de forma: fsetAccessWindow apel (SW_HIDE).
Pentru a verifica cu titlu de exemplu, face downloa: Manipularea Acces ferestre
Posted in exemple , formulare , module | 8 Comentarii »
