Posts Tagged 'Moduli odgovarajuće
Subota, 2. svibnja, 2009 |
Ponekad je potrebno kako bi se spriječilo obrazac otvoren, ako postoje zapisi koji pokazuju, na primjer kada se radi upita i bez registracija nije potrebna, ne trebamo biti otvoreni oblik jer nemamo podataka za prikaz. Dakle, ono što moramo provjeriti da li postoje zapisi pokazati i ako ne postoji prikazati poruku i spriječiti oblik otvoren. Kako?
To je lako samo staviti kod ispod u obliku svojstava u slučaju 'otvoriti':
= 0 Zatim Ako Form.RecordsetClone.RecordCount
MsgBox "Podaci nisu pronađeni.", VbExclamation "Greška!"
DoCmd.Close acForm ", naći podatke"
Exit Sub
Kraj Ako je
Da biste vidjeli primjer download: Spriječiti Obrazac Otvoreno
Objavljeno u Primjeri i Obrasci i modula | priključi 2 Komentari »
Četvrtak, 11 prosinca, 2008 |
1 - Otvori obrazac za narudžbu u strukturi i događaja "Klikom" na svojstva obliku unesite sljedeće: me.keypreview = true
Ili će to učiniti na tipkovnici se primaju u prvom obliku.
2 - u obliku nekretnina, događaj 'gumb ispod kako bi "stavite sljedeći kod:
Private Sub Form_KeyDown (KeyCode kao Integer, Shift Kao što je cijeli broj)
Select Case KeyCode
Slučaj vbKeyF2
DoCmd.OpenForm "Form1"
Slučaj vbKeyF3
DoCmd.OpenForm "Form2"
Slučaj vbKeyF4
DoCmd.OpenForm "formulario3"
Slučaj vbKeyF5
Kao Double Dim Kalkulator
Kalkulator = Shell ("calc.exe", vbNormalFocus)
Slučaj vbKeyF6
DoCmd.Close
Case Else
Kraj Odaberite
End Sub
Što to čini je sljedeće:
- Pritiskom na tipku F2 otvara form1
- Pritiskom na tipku F3 otvara Form2
- Pritiskom na tipku F4 otvara formulário3
- Pritiskom na tipku F5 otvara Windows Kalkulator
- Pritiskom na tipku F6 zatvara oblik
Osim F1 funkcijsku tipku, F2 ... itd, također možete koristiti bilo koju drugu tipku za obavljanje funkcije, ali imajući na umu da ako želimo unijeti podatke u obliku nije pogodan za korištenje tipke koje se koriste za pisanje podataka u poljima.
Druga stvar je da to radi samo na obrascu na kojem se nalaze navedene kodove.
Download: Tipke
Objavljeno u Primjeri i Obrasci i modula | priključi 1 Comment »
Subota, 20. rujna, 2008 |
To je vrsta izbornika koji nam omogućava da uštedite vrijeme, linije koda i bolji raspored u smislu otvorenih oblika, jer s ovim meni samo treba otvoren obrazac. Osim smanjenja broja otvorenih oblika također smanjuje broj gumba u izborniku za otvaranje svakom obliku.
Ova vrsta izborniku, sigurno da postoji već neko vrijeme i već se koristi od strane mnogih korisnika programa Access.
Dakle, gdje je to meni?
Stvorimo izbornik pomoću kombinirani okvir koji sadrži sve oblike da planiramo otvoriti kroz njega. Kada odaberete opciju iz kombiniranog okvira Zahtjev je prikazana unutar subform. Tada ćemo početi da izbornika korak po korak.
1 - Stvorimo tablicu gdje ćemo pohraniti ime koje želite dati svaki oblik i naziv u obliku koji će se otvoriti. U primjeru sam stvorio tablica "tblmenu 's sljedećim područjima:
Vrsta polja
Nomedomenu tekst -> ime koje će se vidjeti u izborniku (combo box)
obliku tekst -> ime na obrascu koji će se otvoriti
Nakon što su podaci uvedeni u primjeru su:
Obrazac NomedoMenu
Računi Form1
Depoziti Form2
Promjene formulario3
Račun-Box formulario4
Račun-račun formulario5
Ekstrakt formulario6
2 - Zatim smo stvoriti upit s prethodne tablice:
Tblmenu izabrao tablicu, a zatim odabrati dva polja u kojima smo izabrali za uzlazno sortiranje nomedomenu biti lakše naći na izborniku dosta puta kada želimo otvoriti obrasce. Za ovaj upit sam nazvao 'CsMenu'.
3 - Stvorimo obrascu 'Izbornik', odnosno izabrati novi obrazac u prikazu dizajna. Zatim smo stvorili kombinirani okvir i promijenite sljedeća svojstva:
- Broj stupaca: 2
- Širine stupaca: 0cm i 1cm;
- Podrijetlo linije: csmenu (što je naziv upita stvorili u prethodnom stavku)
4 - U istom obliku ćemo stvoriti nevezanog glavni oblik je subform (U primjeru sam nazvao menuquadro). To je taj oblik koji će biti otvoren svaki od oblika koje možete izabrati u izborniku (combo box).
5 - Sada stvoriti modul koji će nam omogućiti da biste otvorili izbornik koji je odabran u kombiniranom okviru na subform.
Mi smo stvorili modul (koji sam nazvao "abrirmenu ') i zalijepiti sljedeći kod:
Javnu funkciju AtivarMenu (Combmenu The combobox, subabrir subform)
Abrirform Kao String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
Kraj funkcija
Nakon odlaska svojstvima kombiniranom okviru na obrascu izborniku i nakon ažurirati slučaju staviti stvorio funkcija: ativarmenu = ([Menu], [menuquadro]) da je 'Izbornik' je naziv kombiniranog okvira i 'menuquadro' naziv subform.
I na kraju meni je spreman za uporabu. Dovoljno je probati i koristiti. Nadam se da ste uživali u ovaj savjet.
Download: Izbornik
Ispod slike u izborniku.
Custom Menu
Objavljeno u Primjeri i Obrasci i modula | priključi se 12 Comments »
Utorak, 6. svibanj, 2008 |
Ovaj primjer pokazuje kako sustav za upravljanje za obavljanje plaćanja.
Primjer pokazuje da je to ne naprave i automatski sa pritiskom na gumb, prednosti ugovora o prodaji putem unesenih podataka. To je, uvodimo klijenta ime datuma početka ugovora i ukupan iznos plaća. Zatim kliknite na "IZRAČUN plaćanja" da se automatski generira broj obroka i dijeli vrijednosti koju pokazuje svaki od njih i izračunava datum svake rate (jedan mjesečno). To je ujedno i primjer koji pokazuje kako se dodati više zapisa odjednom, jer kada kliknete gumb dodaje rekord za svaku korist.
Download: umetnuti više Records
Posted in datuma i uzoraka i Forms i modulima i rekorda se | 17 Comments »
Subota 29 ožujak, 2008 |
Ovo je primjer područja primjene čitatelj koji Sonia namijenjenih podataka iz baze podataka životinja. To je jednostavna baza sa samo obrasca za unos podataka s fotografijom životinja.
Download: Sklonište za životinje
Svaka promjena samo komentirati ovdje.
Pisani oblici i Fotografije i moduli i Podaci i Stolovi se | 11 Komentari »
Srijeda 20 veljača, 2008 |
Postoji nekoliko načina za ulazak u evidenciju, a najčešći je da se kroz oblik vezan za stol. Još jedan način da to učinite je kroz nepovezanih područja, odnosno pomoću obrasca s poljima neovisno nepovezanih na stol. Na
unijeti podatke koristimo na 'Recordset', tj. kodom, koji u slučaju ovog primjera je kako slijedi:
Dim db kao baza podataka
Dim rs Kao Recordset
Ako MsgBox ("Želite li pisati?" VbYesNoCancel, "Opcije") = vbYes Tada
"Pritiskom se pitanje da li za spremanje rekord ili ne, ako je tako kod nastavlja se do kraja
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Data", dbOpenTable)
"Otvorite tablicu umetnuti podatke registrirajte
rs.AddNew
rs ("Ime") = Me! INome
rs ("adresa") = Me! Imorada
rs ("dob") = Me! Iidade
rs.Update 'šalje podatke u tablici
rs.Close "Clear podatke i zatvara Recordset
Set rs = Nothing
Set db = Nothing
Me.INome = Null 'čisti polja u formi
Me.Imorada = Null
Me.Iidade = Null
MsgBox "Zapis spašen", vbInformation, "Gotovo" "Display poruku s potvrdom
Me.INome.SetFocus 'Premjestite pokazivač na prvo polje
Drugo: Exit Sub
Kraj Ako je
Download: Mjesto Nezavisni
Objavljeno u Primjeri i Obrasci i modula i evidencija i stolova | priključi Nijedan Komentirajte »
Utorak 19 veljača, 2008 |
Ovaj primjer pokazuje kako se izvode izračune na sata. To je korisno za one koji trebaju znati koliko je vremena prošlo između vremena početka i kraja vremena. To nije dovoljno da bi oduzimanje na kraju vremena za vrijeme početka, jer ako kraj put se kreće od jednog dana do sljedeće račune više neće točno, na primjer:
Start Time: 23:00:00
Kraj Vrijeme: 02:00:00
Kraj vrijeme - Start Time = 2:00:00-23:00:00 = -21:00:00
Očito to nije tako jednostavan za rad s vremenom, jer tada umjesto tri sata na ispravan rezultat bi pogrešno -21 sati.
Da biste dobili oko tog razdoblja koji ide iz dana u dan moramo prvo provjerite je li kraj puta je veći od početka vremena, ovisno o tome koji je veći onda izračun: Vrijeme kraja - Start Time.
Ako ste mlađi od tada mi moramo napraviti obračun na drugi način, i to:
Start Time: 23:00:00
Kraj Vrijeme: 02:00:00
Ukupno vrijeme: 23:59:59
Hit: 00:00:01
Uglavnom ono što mi radimo je dodati na vrijednosti 24:00:00 oduzimanja da nam ispravne tri sata. To je:
Kraj vrijeme - Start Time + + Ukupno sati Hit = 2:00:00-23:00:00 + + 23:59:59 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00
Download: Račun s vremena
Objavljeno u Primjeri i Obrasci i sati i modula | priključi se 21 Comments »
Srijeda 6 veljače, 2008 |
Ovaj primjer pokazuje kako odabrati datum kroz pop-up kalendaru. To je, kao modul i može formirati odaberite datum jer je to kalendar. U primjeru možemo izabrati datum klikom na gumb pored polje datuma ili klikom na desnu tipku miša u polje datuma. Na taj način unijeti datume je vrlo praktičan jer omogućuje nam vidjeti kalendar i odabrati najbolju datum koji želite.
Download: Kalendar popup
Posted in datuma i uzoraka i Forms i modulima | priključi 1 Comment »
Nedjelja, 27 siječanj, 2008 |
Obično kada smo pokrenuli središnju tipku miša na obrascu, promijenite pristup zapisnik. U nekim situacijama može biti korisno to ne dogodi.
Ovaj primjer koristi modul u slučaju obrasca za učitavanje, kako bi se spriječilo korisnik navigaciju kroz evidencije koriste za pomicanje miša. Za testiranje možemo koristiti kotačić miša (srednji gumb) da se vidi da ne mijenja registraciju.
Preuzmite ovdje: Wheel mouse
Objavljeno u Primjeri i Obrasci i modula i miš i slogova | priključi Nijedan Komentirajte »
Ponedjeljak 21 siječanj, 2008 |
Ovaj primjer koristi modul koji skriva Microsoft Access glavni prozor, ostavljajući samo oblik u prozor vidljiv.
Da biste koristili ovu modul moramo koristiti sljedeću naredbu na otvaranju slučaju obliku: Poziv fsetAccessWindow (SW_HIDE).
Da biste provjerili putem primjer napraviti downloa: Manipulirati Window pristu
Objavljeno u Primjeri i Obrasci i modula | priključi 8 Comments »
2 » Stranica 1 od 2 1 2 »
