Posty oznaczone 'PRZYKŁADY'
Sobota, 16 października 2010 |
Po pewnym czasie bez aktualizacji bloga, mam wreszcie trochę czasu na uaktualnienie systemu sprzedaży. Wielu czytelników nie mógł ze względu na hasło logowania systemu zapytał. Więc usunąłem logowania system łatwego dostępu.
Oprócz tych zmian dokonała następujących zmian:
V 0.5.0 (2010-08-19)
- Usunięto login i użytkowników.
- Dodano pola (rodzina, IVa i jedność) w tabeli produktów.
- Stworzyłem tabelę VAT.
- Zmiana w formularzu Produkty. (Nowe pola, wyglądu, nowy sposób na znalezienie rekordów).
- I stworzył rodzinę tabeli (wyrobów).
- Zmieniono formę zakupów jest wstawiany tylko jeden produkt w danym momencie. Umieścić w postaci zakupu podformularz, gdzie można wprowadzić kilka zakupionych produktów w danym dostawcą.
Download: 2010 Sprzedaż
Wszystkie komentarze w nowej aktualizacji, aby naprawić lub dodać funkcje.
W przyszłości myślę o zmianę lokalizacji gdzie są pliki do pobrania plików, ponieważ jeśli jest aktywność w pliku na jakiś czas, plik zostanie usunięty. Będę więc szukać alternatywy dla łatwego akcje za to nie nastąpi.
W następnym poście włożę wersję jaki sposób obliczyć korzyści podobne do tego, co już tutaj, w tym stanowisko , ale zamiast miesięcznych płatności może wybrać liczbę dni jakie upłynęły od każdej raty. Przykład ten przyczyni się również do odpowiedzi na pytanie od czytelnika ust Marcelo ).
Opublikowany w Przykłady i rodzaje , w kompletny system siê | 14 Comments »
Sobota, 02 maja 2009 |
Czasami jest to niezbędne do zapobieżenia formę otwartą, czy istnieją zapisy, aby pokazać, na przykład robiąc kwerendę i nie rejestracja nie jest wymagana, nie musimy być otwarta forma, ponieważ nie mamy żadnych danych do wyświetlenia. Więc co musimy sprawdzić, czy istnieją zapisy do pokazania i jeśli nie ma pokazać wiadomość i utrudniać forma otwarta. W jaki sposób?
Łatwo jest po prostu umieścić poniższy kod we właściwościach formie, w przypadku "otwarcia":
= 0 Then Jeśli Form.RecordsetClone.RecordCount
MsgBox "Nic nie znaleziono." VbExclamation "Błąd!"
DoCmd.Close acForm "znajdź danych"
Exit Sub
End If
Aby zobaczyć przykład pobrać: Zapobieganie formularz otwarty
Opublikowany w Przykłady i rodzaje i Moduły | W 2 Komentarze »
Czwartek, 11 grudnia 2008 |
1 - Tworzenie formularza zamówienia w strukturze i wydarzenia "Kliknięcie" na właściwości formularza wprowadź następujące informacje: me.keypreview = true
Albo jest to zamiar zrobić zdarzenia klawiatury są odbierane w pierwszej formie.
2 - We właściwościach formularza, na incydenty przycisk poniżej aby "umieścić następujący kod:
Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Wybierz KeyCode sprawie
Case vbKeyF2
DoCmd.OpenForm "Form1"
Case vbKeyF3
DoCmd.OpenForm "Form2"
Case vbKeyF4
DoCmd.OpenForm "formulario3"
Case vbKeyF5
As Double Dim Calculator
Kalkulator = Shell ("calc.exe" vbNormalFocus)
Case vbKeyF6
DoCmd.Close
Case Else
End Select
End Sub
Co to znaczy, co następuje:
- Naciskając klawisz F2 otwiera form1
- Po naciśnięciu klawisza F3 otwiera Form2
- Poprzez naciśnięcie klawisza F4 otwiera formulário3
- Naciskając klawisz F5 otwiera kalkulatora Windows
- Naciskając klawisz F6 zamyka formularz
Oprócz klawisza funkcyjnego F1, F2 ... itd, możemy również użyć dowolny inny przycisk do wykonywania zadań, ale pamiętając, że jeżeli chcemy wprowadzić dane w postaci nie nadaje się do wykorzystania kluczy, które są używane do zapisu danych w polach.
Inną rzeczą jest to, że działa tylko na formularzu, gdzie można umieścić wyżej kodów.
Pobieranie: Klawisze

Opublikowany w Przykłady i rodzaje i Moduły | W 1 Komentarz »
Sobota, 20 września 2008 |
Jest to rodzaj menu, które pozwala nam zaoszczędzić czas, linie kodu i lepsze rozmieszczenie pod względem formy otwartej, ponieważ z tego menu wystarczy otwartą formę. Oprócz zmniejszenia liczby otwartych form także zmniejsza liczbę przycisków w menu, aby otworzyć każdy formularz.
Ten rodzaj menu, z pewnością, że istnieje już od jakiegoś czasu i jest już używany przez wielu użytkowników programu Access.
Więc gdzie jest to menu?
Utwórzmy menu przy użyciu pola kombi, który zawiera wszystkie formularze, które planujemy otworzyć przez niego. Po wybraniu opcji z listy rozwijanej formularz jest wyświetlany w podformularzu. Wtedy zaczynamy się zrobić krok menu po kroku.
1 - Stwórzmy tabelę, w której będziemy przechowywać nazwę, którą chcesz nadać każdej formy i nazwy postaci, które zostanie otwarte. W przykładzie stworzyłem tabeli 'tblmenu' z następujących dziedzin:
Typ pola
Tekst Nomedomenu -> Nazwa, które będą widoczne w menu (pole kombi)
tworzą tekst -> nazwa postaci, które zostanie otwarte
Po dane wprowadzone w tym przykładzie to:
Formularz NomedoMenu
Konta Formularz Form1
Depozyty Form2
Ruchy formulario3
Konto-Box formulario4
Konta konto formulario5
Wyciąg formulario6
2 - Następnie tworzymy kwerendę z poprzedniej tabeli:
Tblmenu wybrał tabeli, a następnie wybierz dwa pola, w którym wybraliśmy dla rosnącej nomedomenu sortowania łatwiej się znaleźć w menu sporo czasy, kiedy chcemy otworzyć formy. Aby tego zapytania nazwałem "CsMenu".
3 - Stwórzmy postaci "Menu", czyli wybrać nowy formularz w widoku projektu. Następnie utworzyć pole kombi i zmień następujące właściwości:
- Liczba kolumn: 2
- Kolumna szerokości: 1cm, 0cm;
- Pochodzenie linii: csmenu (która to nazwa zapytania utworzonego w poprzednim akapicie)
4 - W tej samej formie stworzymy niezwiązanego głównego formularza podformularza (W tym przykładzie nazwałem menuquadro). Jest to forma, która będzie otwierać każdej z form do wyboru z menu (pole kombi).
5 - Teraz stworzyć moduł, który pozwoli nam otworzyć menu, który został wybrany w polu kombi w podformularzu.
Stworzyliśmy moduł (którą nazwałem "abrirmenu") i wkleić następujący kod:
Publiczny AtivarMenu funkcji (Combmenu ComboBox, subabrir Podformularz)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Po przejściu do właściwości pola kombi w menu formy i po zdarzeniu aktualizacji wprowadzonych stworzona funkcja: ativarmenu = ([Menu], [menuquadro]), że "menu" jest nazwą pola kombi i "menuquadro" Nazwa podformularza.
I wreszcie menu jest gotowy do użycia. Po prostu spróbuj i używać. Mam nadzieję, że podobała się końcówka.
Download: Menu
Poniżej zdjęcie z menu.
Niestandardowe menu
Opublikowany w Przykłady i rodzaje i Moduły | W 12 Comments »
Czwartek, 19 czerwca 2008 |
Było to z pewnością zawodnik Elton Rueb i nawet udało się rozwiązać przed pomogę. Co czytelnik miał mierzyć czas potrzebny użytkownikowi wstawić rekord i ma trzy pola: jeden dla czasu rozpoczęcia gdy otwiera formularz, po raz pierwszy do końca włożonej po kliknięciu Przycisk nagrywania i pole do obliczenia różnicy. Jest to prosty przykład, ale może brakować do tych, którzy chcą obliczyć różnicę pomiędzy dwa razy. Więc Elton Rueb (Rio de Janeiro - RJ - Brazylia) pod warunkiem, że przykład, który może pomóc komuś innemu.
Download: czas testu
Opublikowany w Terminy i próbkami i Przykłady przeniesione i wyrażeń , w formularzu , w czasowe | DLA 2 Komentarze »
Czwartek, 12 czerwca 2008 |
Czytelnik Jacinto postawić pytanie tutaj o tym, jak zmienić format daty 12/06/2008 za 2 0 0 8 0 6 1 2 odpowiedź, jak wyjaśniono w komentarzach jest tak proste jak w polu tekstowym z następujące wyrażenie:
= Format ([nazwa pola daty], "dd mm rrrr")
i właściwości pola umieścić następujące słowa w masce wprowadzania: 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0 \ 0
Całkiem proste i łatwe. Pójść za przykładem do pobrania: format daty
Opublikowany w Terminy i Przykłady i wyrażeń , w Formularze | W 1 Komentarz »
Wtorek, 06 maja 2008 |
Ten przykład pokazuje jak system zarządzania dla zapewnienia płatności.
Przykład pokazuje, że to nie jest tworzenie i automatycznie za pomocą kliknięcia jednego przycisku, korzyści z umowy sprzedaży za pośrednictwem wprowadzonych danych. Oznacza to, że wprowadzamy nazwisko klienta do daty rozpoczęcia umowy i całkowitą kwotą do zapłaty. Następnie wystarczy kliknąć "Oblicz płatności", które automatycznie generuje liczbę rat i dzieli wartość wskazaną przez każdego z nich i oblicza datę każdej raty (jeden w miesiącu). Jest to również przykład, który pokazuje, jak dodać kilka rekordów na raz, ponieważ po kliknięciu przycisku dodaje rekord dla każdego świadczenia.
Pobieranie: Umieść wielu rekordów
Opublikowany w Terminy i próbkami i formularzy , w Moduły i Records | DLA 17 Comments »
Niedziela, 06 kwietnia 2008 |
Dla tych, którzy chcą dać inny wpływ na formularzach, a dokładniej, kiedy jesteśmy wprowadzania danych, możemy zmienić kolor pola gdzie kursora. Oznacza to, że wszystkie pola wprowadzania danych są w białe niż pole gdzie piszemy, że jest innego koloru.
Aby to zrobić jest bardzo proste, wystarczy zaznaczyć pola i wybrać kolor tła ma być wyświetlany, gdy kursor jest w polu, a następnie zmienić kolor na przezroczysty.
Download: dane Zmień kolor pole
Opublikowany w kolorach , w Próbki , w formach siê | 10 Comments »
Wtorek, 18 marca 2008 |
Na wniosek gracza Joao Cabrita opracowany ta forma punktu kontrolnego, który ma zastosowanie do remizy strażackiej, a konkretnie do potrzeb czytelnika.
Jest to prosty przykład, ale w niektórych bardziej zaawansowanych informacji na temat tego, co ma na celu kontrolę wejść i wyjść pracowników, upewnij się, że pracował 12 godzinnej zmiany i dodać więcej przepracowanych godzin i godziny pracy do mniej.
Wszystko to za miesięczną sprawozdania z obecności każdego pracownika.
Download: Punkt
Wpisany Konsultacje , daty i przykłady , w wyrażenia i formy , w godz i raporty | DLA 9 Komentarze »
Środa, 20 lutego 2008 |
Istnieje kilka sposobów, aby wprowadzić zapis, i najczęściej jest, aby za pomocą formularza związanego z tabelą. Innym sposobem na to jest za pośrednictwem niepowiązanych dziedzinach, tj. za pomocą formularza z polami niezależny niezwiązanych z tabeli. Do
wprowadzić dane nam naciśnij 'rekordów ", czyli za pomocą kodu, który w przypadku tego przykładu jest następujące:
Dim db jako bazy
Dim rs Jako Recordset
Jeśli MsgBox ("Czy chcesz pisać?" VbYesNoCancel, "Opcje") = vbYes Następnie
"Poprzez naciśnięcie jest pytanie, czy zapisać rekord, czy nie, jeśli tak kod nadal do końca
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Dane", dbOpenTable)
"Otwórz tabelę, aby wstawić dane rejestracji
rs.AddNew
rs ("nazwa") = Me! INome
rs ("adres") = Me! Imorada
rs ("Wiek") = Me! Iidade
rs.Update 'wysyła dane do tabeli
rs.Close "Wyczyść dane i zamyka rekordów
Set rs = Nothing
Set db = Nothing
Me.INome = Null "czyści pola w formularzu
Me.Imorada = Null
Me.Iidade = Null
MsgBox "zapisane Record", vbInformation, "Gotowe" 'komunikat potwierdzający wyświetlanych
Me.INome.SetFocus "Ustaw kursor na pierwszym polu
Else: Sub Wyjścia
End If
Download: Place Niezależne
Opublikowany w Przykłady i rodzaje i modułów , w ewidencji , w tabelach siê | No Comments »