Постове маркирани "Модули"
Събота, 2-ри май, 2009 |
Понякога е необходимо да се предотврати отворен форма, ако има записи, да покажат, например, когато се прави заявка и без регистрация не се изисква, ние не трябва да бъде открита форма, тъй като няма данни за показване. Така че това, което ние трябва да проверите е дали има записи да се покаже и ако няма покаже съобщение и пречат формата отворена. Как?
Лесно е просто да поставите кода по-долу под формата свойства на събитието ", за да отворите":
= 0 След Ако Form.RecordsetClone.RecordCount,
MsgBox "Няма намерени резултати.", VbExclamation, "Грешка!"
DoCmd.Close acForm "намери данни"
Изход Sub
Крайна сметка, ако
За да видите пример изтеглите: Предотвратяване на формуляр Отворете
Публикувано в Примери , форми , модули | 2 Коментари »
Четвъртък, декември 11th, 2008 |
1 - Създаване на формуляр за поръчка, в структурата и събитието "Ако щракнете върху" върху свойствата на формуляра, въведете следното: me.keypreview = True
Или това ще направи на клавиатурата събития са получени в първата форма.
2 - в свойствата на формуляра, "по-долу за" събитието да сложим следния код:
Private Sub Form_KeyDown (кодът като цяло число, Shift като цяло число)
Изберете кодът дело
Дело vbKeyF2
DoCmd.OpenForm "Form1"
Дело vbKeyF3
DoCmd.OpenForm "Form2"
Дело vbKeyF4
DoCmd.OpenForm "formulario3"
Дело vbKeyF5
В Двойна Дим Калкулатор на
Калкулатор = Shell ("calc.exe", vbNormalFocus)
Дело vbKeyF6
DoCmd.Close
Дело Else
Край Изберете
End Sub
Това, което прави е следното:
- Чрез натискане на клавиша F2 отваря на Form1
- Чрез натискане на F3 ключ отваря Form2
- Чрез натискане на F4 ключ отваря formulário3
- С натискане на клавиша F5 отваря Windows калкулатор
- Чрез натискане на F6 ключ затваря формата
В допълнение на F1 функция клавиш F2 ... и т.н., ние може също да се използва друг бутон да изпълнява функции, но като се има предвид, че, за да въведете данни във форма, не подходящи да използвате ключове, които са използвани за да пишете данни в областта.
Друго нещо е, че тя работи само на формата, където да поставите по-горе кодове.
Изтегляне: Keys
Публикувано в Примери , форми , модули | 1 коментар »
Събота, 20 септември, 2008 г. |
Това е един вид меню, което ни позволява да спестите време, реда код и по-добро устройство по отношение на откритите форми, тъй като с това меню, просто трябва отворена форма. В допълнение към намаляване на броя на откритите форми също намалява броя на бутони в менюто, за да отворите всеки формуляр.
Този вид меню, разбира се съществува за известно време и вече се използва от много потребители за достъп.
Е, къде е това меню?
Нека създадем менюто, като използвате комбо кутия, която съдържа всички формуляри, които ние планираме да се отвори през него. Когато изберете опция от падащ списък се показва формуляра за кандидатстване в рамките на подформуляра. Тогава ще започнат да се направи в менюто стъпка по стъпка.
1 - Да създадем таблица, където ще се съхранява името, което искате да дадете всеки формуляр и името на формата, която ще се отвори. В примера съм създал "tblmenu" таблица със следните полета:
Тип на полето
Nomedomenu текст -> име, което ще се види в менюто (комбинирано поле)
образуват текст -> Наименование на формата, който ще отвори
След данните, въведени в примера са:
NomedoMenu Форма
Сметки Form1
Депозити Form2
Движенията formulario3
Профил Box formulario4
Профил акаунт formulario5
Извадка formulario6
2 - Тогава ние създаваме една заявка от предишната таблица:
Tblmenu избра масата и след това изберете двете области, в които сме избрали за възходяща на сортиране nomedomenu да бъде лесно да намерите в менюто съвсем няколко пъти, когато искаме да се отвори форми. За тази заявка, наречен "CsMenu".
3 - Нека създадем форма "Меню", т.е. изберете нова форма в режим на проектиране. Тогава ние създаваме една кутия комбо и променете следните свойства:
- Брой колони: 2
- Ширината на колоните: 1 см, 0cm;
- Произход на линия: csmenu, (което е името на заявката, създадена в предходния параграф)
4 - в същата форма, ние ще създадем подформуляра един несвързан основна форма (В примера наречен menuquadro). Тя е тази форма, която ще бъде отворите всяка от формите, за да изберете от менюто (комбо кутия).
5 - Сега се създаде модул, който ще ни даде възможност за отваряне на менюто, който е избран от падащия списък в подформуляра.
Ние създадохме един модул (което аз, наречен "abrirmenu") и да се постави следния код:
Публична функция AtivarMenu (Combmenu падащо меню, subabrir на подформуляра)
Abrirform Като String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
След като ще свойства на комбинираното поле в менюто формата и След актуализация събитие поставят длъжност: ativarmenu = ([MENU], [menuquadro]), че "Меню" е името на комбинираното поле и "menuquadro" име на подформуляра.
И накрая в менюто е готов за употреба. Просто се опитай и да използвате. Надявам се ползва този съвет.
Изтегли: меню
Под снимка на менюто.
Персонализираното меню
Публикувано в Примери , форми , модули | 12 Коментари »
Вторник, 6 май, 2008 г. |
Този пример показва как една система за управление за предоставяне на плащанията.
Примерът показва, че това не е да създадете и автоматично с натискането на един бутон, ползите от договор за продажба чрез данните, вписани. Тоест, ние се въведе името на клиента към датата на договорното начало и на общата дължима сума. След това просто кликнете на "Изчисли плащания", които тя автоматично генерира броя на вноските и разделя стойността, посочена от всяка от тях и изчислява датата на всеки транш (по една на месец). Това също е пример, който показва как да добавите няколко записа наведнъж, защото, когато щракнете върху бутона добавя рекорд за всяка полза.
Изтегляне: Поставете няколко записа
Публикувано в Дати , образци , формуляри , модули , записа | 17 Коментари »
Събота, 29 март, 2008 г. |
Това е пример на областта на приложение, че Соня четец, предназначени за данни на бази данни на животни. Това е проста база данни само с една форма за въвеждане на данни със снимка на животното.
Изтегляне: приют за животни
Всяка промяна, просто коментар тук.
Писмени форми , Снимки , модули , записи , маси | 12 Коментари »
Сряда, февруари 20th, 2008 |
Има няколко начина да се влезе рекорд и най-често е да се получи чрез форма, обвързана към таблица. Друг начин да направите това е чрез несвързани поле, т.е. като се използва формуляр с полета, независим несвързани на масата. За
въведете данните, които използваме "записи", т.е. с код, който в случая на този пример е, както следва:
Dim db на базата данни
На Дим RS Като записи
Ако MsgBox ("Искаш ли да пиша?" VbYesNoCancel, "Options") = vbYes, Тогава
"Чрез натискане се задава дали да запазите записа, или не, ако е така кода продължава до края
Set db = CurrentDb ()
Комплект RS = db.OpenRecordset ("Данни", dbOpenTable)
"Отваряне на таблица, за да вмъкнете данните регистър
rs.AddNew
RS ("име") = Me! INome
RS ("Адрес") = Me! Imorada
RS ("възраст") = Me! Iidade
rs.Update "изпраща данните на масата
rs.Close "изчистите данните и затваря записи
Задайте RS = Нищо
Задайте db = Нищо
Me.INome = Null изчиства полета във формуляра
Me.Imorada = NULL
Me.Iidade = NULL
MsgBox "спасен Record", vbInformation, "Done", "съобщение за потвърждение на дисплея
Me.INome.SetFocus "движение на курсора до първото поле
Друго: Sub Изход
Крайна сметка, ако
Изтегляне: Поставете Независим
Публикувано в Примери , формуляри , модули , записи , маси | Няма коментари »
Вторник, 19 февруари 2008 г. |
Този пример показва как за извършване на изчисления за час. Тя е полезна за тези, които трябва да знаете колко време е изтекло между начален час и краен час. Не е достатъчно да се направи изваждане на крайния час за началния час, защото, ако крайният път се движат от един ден до следващите сметки вече няма да е правилно, например:
Начален час: 23:00:00
Краен час: 02:00:00
Край време - времето Старт = 02:00:00 до 23:00:00 = -21:00:00
Очевидно не е толкова просто да се работи с времето, защото тогава вместо да се налага на три часа до правилния резултат би погрешно -21 часа.
За да получите около този период, че от ден на ден, ние трябва да се провери първо, ако края е по-голям от началния час, в зависимост от това кое от двете е по-голяма тогава изчислението е: Край - начален час.
Ако сте под след това, ние трябва да се направи изчисление по друг начин, а именно:
Начален час: 23:00:00
Краен час: 02:00:00
Общо време: 23:59:59
Hit: 00:00:01
Основно това, което правим, е да добави към стойността на 24:00:00 изваждане, за да ни даде на правилните три часа. Това е:
Краен час - начален час + Общо часове + Хит = 02:00:00 до 23:00:00 + 23:59:59 + 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00
Изтегляне: смятане с времето
Публикувано в Примери , формуляри , часове , модули | 21 Коментари »
Сряда, 6 февруари, 2008 г. |
Този пример показва как да се избере датата, чрез изскачащи календар. Това е като модул и може да се образува Изберете дата, тъй като това е един календар. В този пример можем да изберем дата, като щракнете върху бутона до полето за датата или натиснете десния бутон на мишката в полето за датата. Това е много практичен начин да се въведат дати, тъй като тя ни позволява да видим календара и да изберете най-желаната дата.
Изтегли: Popup Календар
Публикувано в Дати , образци , формуляри , модули | 1 коментар »
Неделя, 27 януари, 2008 |
Обикновено, когато ни се свърши център бутон на мишката върху формуляр, промяна дневника за достъп. В някои ситуации може да е полезно това не се случи.
Този пример използва модул в случай на формуляра да се зареди, за да откаже потребителя да се придвижвате през записите чрез превъртане мишка. За да тествате, ние можем да използвате колелцето на мишката (среден бутон), за да се види, че не променя регистрация.
Изтеглете от тук: колелцето на мишката
Публикувано в Примери , формуляри , модули , мишка , Рекърдс | Няма коментари »
Понеделник, 21 януари, 2008 |
Този пример използва модул, който се крие главния прозорец на Microsoft Access, оставяйки видима само прозореца на формуляра.
За да използвате този модул трябва да използваме следната команда в откриването на формуляра: разговор fsetAccessWindow (SW_HIDE).
За да проверите като пример, за да свалите: Манипулирайте прозорците Acces
Публикувано в Примери , форми , модули | 8 Коментари »
2 » Страница 1 от 2 1 2 »
