Постове маркирани "Примери"
Събота, 16 октомври, 2010 г. |
След известно време без актуализиране на блога, най-накрая имам известно време да се актуализира системата на продажбите. Много от читателите, не може да се дължи на паролата на система за влизане попита. Така че, аз се отстраняват за влизане в системата за лесен достъп.
Извън тази промяна се правят следните изменения:
V 0.5.0 (2010-08-19)
- Премахнато за вход и потребителите.
- Добавен полета (семейство, Ива и единство) в таблицата на продуктите.
- Аз създадох таблица на ДДС.
- Изменение на продукти форма. (Нови области, вижте, нов начин да намерите записи).
- Аз създадох таблицата семейство (на продукти).
- Промени формата на пазаруване се добавя само един продукт в даден момент. Сложих под формата на закупуване на подформуляра, където можете да въведете множество продукти, закупени в даден доставчик.
Изтегли: 2010 Продажби
Всички коментари в нова актуализация, за да се поправи или да добавят функции.
В бъдеще мисля за смяна на местоположението, където са сваляне на файлове, тъй като, ако има дейност във файл, за известно време, файлът се отстранява. Така че аз ще търси алтернатива лесно акция, за това не се случи.
В следващия пост ще се сложи версия на това как да се изчисли предимства, подобни на това, което вече е тук, в този пост , но вместо да имат месечни плащания могат да избират само няколко дни, изтекли между всяка вноска. Този пример ще послужи и за да отговори на въпрос от читател ( Marcelo ).
Публикувано в Примери , форми , пълна система | 14 Коментари »
Събота, 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 Коментари »
Четвъртък, 19 юни 2008 г. |
Това определено беше един играч на Елтън Rueb и той дори успя да реши, преди да помогна. Това, което читателят е предназначен за измерване на времето, необходимо на потребителя да въвежда рекорд и тя има три области: по един за началния час, когато тя се отваря форма, за първи път да приключа с това се добавя, когато щракнете върху бутона за запис и поле, за да се изчисли разликата. Това е един прост пример, но може да липсва на тези, които искат да се изчисли разликата между две времена. Така на за Елтън Rueb (Рио де Жанейро - RJ - Бразилия), при условие например, че може да помогне на някой друг.
Изтегли: Тест време
Публикувано в дати , мостри , прехвърлените Примери , изрази , форма , време | 2 Коментари »
Четвъртък, 12 юни, 2008 г. |
Читателят Jacinto зададе въпрос за това как да промените формата на датата на 12/06/2008 за 2 0 0 8 0 6 1 2 отговора, както е обяснено в коментарите е толкова просто като текстово поле с следния израз:
= Формат ([датата на името на полето, "mm DD гггг")
и свойствата на полето се въвеждат следните думи във входната маска: 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0
Доста прост и лесен. Следвайте примера за изтегляне: Формат на датата
Публикувано в Дати , примери , изрази , форми | 1 коментар »
Вторник, 6 май, 2008 г. |
Този пример показва как една система за управление за предоставяне на плащанията.
Примерът показва, че това не е да създадете и автоматично с натискането на един бутон, ползите от договор за продажба чрез данните, вписани. Тоест, ние се въведе името на клиента към датата на договорното начало и на общата дължима сума. След това просто кликнете на "Изчисли плащания", които тя автоматично генерира броя на вноските и разделя стойността, посочена от всяка от тях и изчислява датата на всеки транш (по една на месец). Това също е пример, който показва как да добавите няколко записа наведнъж, защото, когато щракнете върху бутона добавя рекорд за всяка полза.
Изтегляне: Поставете няколко записа
Публикувано в Дати , образци , формуляри , модули , записа | 17 Коментари »
Неделя, 6 април, 2008 г. |
За тези, които искат да се даде различен ефект върху формулярите, по-специално, когато сме въвеждане на данни, можем да смените цвета на полето, където курсора. Това означава, че всички входни полета с данни са по-бели от областта, където ние сме писмено, че е от друг цвят.
За да направите това е много лесно, просто изберете полетата и изберете цвета на фона, искате да се появи, когато курсорът е в полето и след това да промените цвета към прозрачно.
Изтегляне: промяна в цвета на полето за данни
Публикувано в цветове , мостри , форми | 10 Коментари »
Вторник, март 18th, 2008 |
По искане на играча Жоао Cabrita развива тази форма на контрол, който се отнася за пожар на гарата, по-специално за нуждите на читателя.
Това е основен пример, но с някои по-съвременни подробности относно това, което той е предназначен да направи контрола на входовете и изходите на служителите, увери, че е работил с 12-часова смяна и повече часове работи и отработени часове по-малко.
Всичко това за месечен доклад на участието на всеки служител.
Изтегли: Point
Писмена консултация , дати , примери , изрази , форми , часове , доклади | 9 Коментари »
Сряда, февруари 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 Изход
Крайна сметка, ако
Изтегляне: Поставете Независим
Публикувано в Примери , формуляри , модули , записи , маси | Няма коментари »
2 3 » Страница 1 от 3 1 2 3 »
