Archiv der Kategorie 'Allgemein'
Sonntag 4 März, 2012 |
In diesem Beispiel zeige ich Ihnen, wie Sie eine Suche nach mehreren Wörtern zu tun, in einem Feld eines Formulars.
Der Code in diesem Beispiel verwendet wird, ist nützlich, um eine erweiterte Suche durchführen.
1. So erstellen Sie die Tabelle
- Erstellen Sie die Tabelle "tbldados" mit folgenden Feldern: ID (Autowert) / Daten (Text)
2. Erstellen Sie das Formular "Form1"
- Erstellen Sie das Formular mit dem Assistenten, und wählen Sie die tbldados als Datenquelle, wählen Sie "Tabelle" auf die Form-Schema.
- Dann auf die Form-Design und erstellen Sie ein Textfeld unabhängige, in Form Fußzeile, benannt txtpesquisa.
- Erstellen Sie eine Schaltfläche auf dem Grundstück und setzen Sie den folgenden Code ein:
"************************************************* *************
'Von Jose Martins Vorbereitet
'Site: www.accessexemplos.com
"Datum: 2011.09.22
'Hinweis: Entfernen Sie nicht diesen Header. Respektieren Sie den Autor des Codes.
"************************************************* **************
On Error GoTo Err_Comando8_Click
Dim Worte () As String
Dim x As Integer
Dim strSQL As String
Dim strWhere As String
Wörter = Split (Me.txtpesquisa, "")
Für x = 0 To UBound (Wörter)
strWhere = strWhere & "Data Like '*" & Worte (x) & "*" oder "
Nächste x
strWhere = Left $ (strWhere, Len (strWhere) - 3)
strSQL = "SELECT * FROM tbldados wo" & strWhere & "ORDER BY [Daten]"
Me.RecordSource = strSQL
Exit_Comando8_Click:
Exit Sub
Err_Comando8_Click:
MsgBox Err.Description
Resume-Exit_Comando8_Click
Was der Code ist, im Allgemeinen, ist ein Array von Wörtern in txtpesquisa, die durch die Zwischenräume erkannt werden zusammensetzt. Nach einem Zyklus wird erstellt, um für alle die Worte in txtpesquisa eingegeben suchen.
3. Test-
- Geben Sie Daten und schreiben Sie dann das Wort oder die Wörter, die wir in das Textfeld ein (txtpesquisa), klicken Sie auf den Knopf und die Ergebnisse zu überprüfen.
Unten ist der Link zu der dowenlod Beispiel: VERSCHIEDENE Suchbegriffe
Posted in Allgemein | Keine Kommentare »
Samstag, 6 August, 2011 |
Heute habe ich die Google-Button Plus ein. Dies ist ein weiterer Weg, um die Beiträge zu werben. Wenn Sie noch nicht dazu eingeladen, Google Plus-hinterlasse einen Kommentar mit Ihrer E-Mail-Adresse, um die Einladung zu senden.
Posted in Allgemein | 13 Kommentare »
Mittwoch, 13 Juli, 2011 |
Dies ist eine sehr einfache Datenbank, um die Ausgaben des täglichen Lebens zu kontrollieren dient.
Hauptmenü
Auf dem Bild sieht man das Hauptmenü sehr einfach und funktionell. An der Spitze sehen wir das Jahr, in dem wir arbeiten.
Jahr der Arbeit
Um das Jahr Arbeit ändern klicken Sie auf die Schaltfläche, um das Jahr und offene Form (Abb. 2), die Eingabe des Jahres wollen wir wählen.
Ausgaben
Ausgaben auf den Button offene Form (Abb. 3) für die Dateneingabe. Neben der Kategorie haben wir ein '+'-Taste, um Kategorien und Unterkategorien hinzuzufügen haben eine Seite des '+'-Taste, um die Unterkategorien (durch Klicken auf die Unterkategorien hinzufügen, wenn Sie nicht gewählt haben, gibt cetegoria Fehler und bittet um die Kategorie zu wählen . Wenn Sie die Kategorie ausgewählt haben, es öffnet das Formular Kategorien in der ausgewählten Kategorie).
Auf dem Gebiet können wir wählen einen Anbieter aus der Liste aus, und wenn es er fragt, ob Sie hinzufügen möchten.
Kategorien
Diese Form (Abbildung 4) wird verwendet, um zu verwalten (einfügen / ändern / löschen / search) Kategorien und deren Unterkategorien.
Lieferanten
Diese Form wird verwendet, um zu verwalten (einfügen / ändern / löschen / search) die Namen der Lieferanten.
Berichte
Wenn Sie auf diese Taste öffnet das Menü (Bild 5) berichtet, wo wir vier Arten von Berichten können Sie wählen:
- Kosten des laufenden Jahres (Abb. 6) zeigt einen Bericht mit der Kategorie, Unterkategorie und Gesamtwert pro Monat des Jahres mit denen wir arbeiten. Es zeigt auch die Gesamtkosten pro Monat und insgesamt durch Unterkategorie.
Dieser Bericht enthält ein Diagramm für die Unterkategorie, die die monatliche Entwicklung des einzelnen untergeordneten Kategorien zeigt. Dieser Graph ist nicht meiner eigenen, muss das entsprechende Modul des Autors Informationen, einschließlich:
'Autor: Philippe Bonnardel (basierend auf einer Idee von Edward Tufte)
- Kosten pro Jahr (Bild 7): zeigt ein Formular mit den Ausgaben nach Kategorie in einem bestimmten Jahr. Wir können wählen Sie das Jahr der Ausgaben, vorausgesetzt, es ist ein Aufwand in diesem Jahr aufgenommen, um die Grafik anzuzeigen. Wenn Sie einen Doppelklick auf die Kategorie öffnet den Jahresbericht der Unterkategorien, die dasselbe Format hat. Wenn Sie einen Doppelklick öffnet das Detail in der Unterkategorie (Abb. 8) die Kosten in dieser Unterkategorie entstehen.
Detail
- Ausgaben pro Monat: in Höhe der Ausgaben pro Jahr, aber hier können wir das Jahr und Monat wählen Sie es wünschen.
- Ausgaben von Lieferanten zeigt ein Formular mit den Kosten pro Anbieter in einem bestimmten Jahr, und ihren Graphen. In diesem Bericht können wir nur wählen Sie das Jahr, das Sie anzeigen möchten.
Jährliche Vergleich
Zeigt die Entwicklung der Ausgaben in den letzten 10 Jahren. Zeigt die Werte für Jahr und zeigt ein Diagramm.
Ich erwarte Kommentare dieser Datenbank, aber ich werde auf die Funktionalität als Beispiel die Möglichkeit, Berichte ausdrucken hinzuzufügen.
Laden Sie das Beispiel: KOSTEN
Posted in Allgemein | 12 Kommentare »
Samstag, 26 März, 2011 |
Diese Aktualisierung der Umsätze wurden folgende Änderungen vorgenommen:
Putting das Image des Unternehmens in dem Bericht, der nicht angezeigt wurde.
Neufassung der Druck Aspekt der Verkauf und die Platzierung des "Produkt", die nicht in gedruckter Form war.
Platzieren Sie die Tabelle IVa und Summen.
Erstellung der täglichen Umsatz Form Auflistung, wo wir alle die Verkäufe am Tag und eine Liste nach der Art der Bezahlung sehen können.
Ändern Sie den Code, um das Bild des Firmenlogos einfügen. Da das Bild wird auf den 'localfoto ", die den Pfad auf der Festplatte, wo das Bild, wenn das Bild nicht auf dem Gelände gab Fehler und habe das Formular nicht öffnen" Enterprise Data "ist verknüpft. Also habe ich eine Routine, die prüft, Fehler tritt auf, und wenn ja, versteckt das Bild und verlässt die Funktion nicht für Fehler geben. Grundsätzlich zurück an den ursprünglichen Zustand, als ob es nicht hatte Bild.
Changed in Form und drucken den Bericht der Verkauf.
Lieferanten - die Form wurde für Lieferanten geschaffen. Wenn Sie eine neue kaufen geben, und der Lieferant nicht existiert, fragt, ob Sie hinzufügen möchten. Wenn dem so öffnen Sie das Formular "Lieferanten", um die Daten eingeben.
Shopping - Wenn die Artikel nicht existieren, fragt, ob Sie einfügen möchten.
Herunterladen: Sales System
Wir danken Ihnen, zu testen und zu kommentieren, um das System zu verbessern.
Posted in Allgemein | 10 Kommentare »
Samstag, 12 März, 2011 |
Im Falle von Tieren Unterschlupf und solche Vertriebssystem hat eine Form, wo wir ein Foto aufnehmen können. Nachdem mit Hilfe dieses Codes fand ich, dass da das Bild auf die "localfoto", die den Pfad auf der Festplatte, wo das Bild, wenn das Bild nicht auf dem Gelände gab Fehler und nicht das Formular öffnen, ist verknüpft ist. Also habe ich eine Routine, die prüft, Fehler tritt auf, und wenn ja, versteckt das Bild und verlässt die Funktion nicht für Fehler geben. Grundsätzlich zurück an den ursprünglichen Zustand, als ob es nicht hatte Bild.
Im nächsten Beitrag werde ich legte der nächsten Fortschreibung des Vertriebssystems, wo wir den funktionierenden Code sehen können. Aber wir tun können, einen Test, um das Vertriebssystem in einem anderen Ordner ablegen und sehen, was passiert, wenn wir die Form von Unternehmensdaten zu öffnen ist.
Der Code wird wie folgt aktualisiert:
'Www.accessexemplos.com
"Jose Martins
'2011-02-28
On Error GoTo Err_mostraimagem
If IsNull (Me.Localfoto) = False Then
Me.FOTO.Picture = Me.Localfoto
FOTO.Visible = True
SEMFOTO.Visible = False
Sonst
Me.FOTO.Picture = ""
SEMFOTO.Visible = True
FOTO.Visible = False
End If
Exit_mostraimagem:
Exit Sub
Err_mostraimagem:
Select Case Err.Number
Behälter 2220 'Kein passender Bild
FOTO.Visible = False
SEMFOTO.Visible = True
Fortsetzen Exit_mostraimagem:
Case Else 'Sonstige Fehler.
MsgBox Err.Number & "" & Err.Description
Fortsetzen Exit_mostraimagem:
End Select
Posted in Allgemein | Keine Kommentare »
Samstag, 12 März, 2011 |
Für einen Benutzer bei der Eingabe von Daten immer in Großbuchstaben zu schreiben einfach den folgenden Code in das Feld Eigenschaften für den Fall, "wenn Sie die Taste '(OnKeyPress):
KeyAscii = Asc (UCase (Chr (KeyAscii)))
wo KeyAscii erhalten ein neues ASCII-Code
chr = zeigt den ASCII-Zeichen-Code
Function 'ASC': Gibt eine ganze Zahl, die den Code (ASCII) Zeichen entsprechend der ersten Buchstaben in einer Zeichenfolge darstellt.
UCase-Funktion: Konvertiert einen String in Großbuchstaben um.
Chr-Funktion: Sie zeigt die Zeichen des ASCII-Code
So wandeln in Kleinschreibung ändern Sie einfach UCase LCase nach:
KeyAscii = Asc (LCase (Chr (KeyAscii)))
Posted in Allgemein | Keine Kommentare »
Samstag 30 Oktober, 2010 |
Mir ist aufgefallen, dass einige Leser die gleiche Nachricht mehrmals senden, weil sie, dass die erste nicht vorgelegt wurde erfolgreich zu denken.
Wenn es das erste Mal zu kommentieren ist, hat diese Meldung zu genehmigen, was auch stimmt, wie fit zu kommentieren.
Dies ist ein Schutz gegen Spam, erscheinen nicht Nachrichten an nichts mit dem Blog zu tun haben.
Also nach dem Versenden der ersten Nachricht, nur warten, bis es genehmigt wird und danach die nächsten Nachrichten werden nun automatisch.
Noch aus 252 geschwärzt Spam-Nachrichten ...
Posted in Allgemein | 8 Kommentare »
Samstag, 23 Oktober, 2010 |
Wie im vorherigen Beitrag gesagt wurde, änderte ich den Speicherort für die Dateien zum Download.
Ab sofort in den Dienst der untergebracht BOX.NET , wo zumindest nicht mehr auf den Download warten und hat keine Werbung.
Sie müssen noch ein paar Links, die nächste Woche abgeschlossen sein wird aktualisiert. Auch setzen Sie einen Link im Menü des Blogs "DOWNLOADS", die zu dem Ordner, verbindet auf BOX.NET, wo alle Dateien zum Download zur Verfügung.
Haben Sie Fragen oder finden, dass die Datei geändert, ich danke Ihnen, mich zu informieren.
Posted in Allgemein | 2 Kommentare »
Mittwoch, 19 August, 2009 |
Heute werde ich zeigen, wie man eine Menüleiste zu erstellen, Schritt für Schritt, zu geben, eine professionelle und einfach den Zugang zu Optionen, die wirklich an den Endverbraucher von einem Projekt in Access Rolle.
Am Ende werden wir eine Menüleiste, die wie das Bild unten aussieht.
1 - bis Sie im Menü Extras auf und wählen Sie "Anpassen". Es erscheint folgendes Menü:
2 - Wählen Sie die Registerkarte "Symbolleisten" und wählen Sie "Neu" und geben Sie den Namen ein, um die Toolbar zu geben, entschied ich mich für "Menü". Klicken Sie auf OK und auf der Symbolleiste angezeigt, die arbeiten, werden die für heute hat keine Optionen.
3 - Mit der Symbolleiste ausgewählt klicken Sie auf 'Eigenschaften' und das folgende Menü angezeigt:
4 - Ändern Sie den "Typ" auf "Toolbar" und anschließend auf Schließen.
5 - Klicken Sie auf die "Befehle" und der Liste auf der linken Seite, die "Kategorien" wählen Sie "neues Menü", die in der letzten Position sein sollte, sagt sie. Dann klicken Sie auf das Feld auf der rechten 'Befehle' und Drag 'neues Menü' auf unserer Menüleiste wie das Bild unten veranschaulicht.
Drag 'neues Menü' bis auf unsere Menüleiste, die Zeiten durch die Anzahl der Menüs, die wir brauchen in diesem Beispiel werde ich dreimal ziehen, zwei Menüs und Untermenüs machen erforderlich. Um ein Untermenü zu machen einfach per Drag 'neues Menü in einem Menü. Hinweis: Die Anzahl der Menüs nachträglich geändert werden kann, die Sie hinzufügen können oder zu verringern, indem, wie Sie benötigen.
6 - Durch Klicken auf den rechten Knopf der Maus oben auf 'neues Menü' unserer Symbolleiste, und ändern Sie den Namen wie gewünscht. Im Beispiel wählte ich "Kunden" für die 1. und "Lieferanten" für den zweiten.
7 - Nun lasst uns Menüs in Formen, die wir öffnen wollen. Klicken Sie auf die "Befehle" und wählen Sie die Kategorie "Alle Formen" und auf der rechten Seite werden alle bestehenden Form im aktuellen Projekt zu zeigen. Klicken Sie auf das gewünschte Formular und ziehen Sie die Symbolleiste. Im Beispiel habe ich verschiedene Formulare und Berichte und auch die Option Exit (um Access zu schließen). In diesem Stadium können wir wählen, was wir wollen, dass unsere Symbolleiste zu öffnen müssen Sie nur noch wählen, was wir in den Kategorien (Tabellen, Formulare, Berichte, Abfragen, Access-Aktions-Menüs, die als in der Menüleiste standardmäßig angezeigt, etc.) wollen.
8 - Nach der Wahl alles, was Sie wollen auf unserer Menüleiste haben Sie sich auf jeden einzelnen mit der rechten Maustaste, um die Eigenschaften, die sehen können klicken. Siehe das Bild unten.
'Reset' - dient dazu, ein Element gesetzt war ursprünglich, bevor Sie den Namen des Bildes, etc. ändern.
'Löschen' - Löschen eines Menüpunktes
'Name' - auf den Namen des Menüpunktes zu ändern. Hier können auch die Verknüpfung zum betreffenden Gegenstand mit dem Und-Zeichen vor dem Buchstaben, den Sie als Abkürzung benutzen. Zum Beispiel ist der Exit-Option ist standardmäßig bereits gut & Beenden das Menü erscheint der Buchstabe 'R' unterstrich, dass erzählt uns, dass bei der Verwendung der ALT-Taste + r die Exit-Menüpunkt läuft. Im Beispiel habe ich beschlossen, Clients & Client mit der Tastenkombination ALT + C öffnen
"Kopieren / Einfügen / Reset / Bearbeiten / Ändern Sie die Taste Bild" - diese Befehle werden verwendet, um genau zu arbeiten das Bild wollen wir neben den einzelnen Elementen zu sehen. Wir können kopieren und fügen Sie das Bild in einem anderen Artikel zu verwenden, das Originalbild wiederherstellen, bearbeiten Sie das Bild und vereinbaren Sie einen Icon-Editor (Pixel für Pixel) oder wählen Sie ein Bild auf dem Menü ändern.
Dann können wir auch wählen, den Aspekt des Gegenstandes, dh wenn wir nur Text oder Text und Bild wollen.
'Beginnt eine Gruppe "- dient dazu, Gegenstände durch einen waagrechten Balken trennen, oder erstellen Sie Gruppen von Elementen.
"Link-Stipendium" -, um einen Link zuweisen, um eine URL oder ein beliebiges Objekt in der Datenbasis kommt.
'Eigenschaften' - zeigt alle Eigenschaften des Elements.
9 - Nun, da wir die Menüleiste haben wir bereit, in Stelle zu setzen. Dazu klicken Sie auf den Schließen-Button tun, und ziehen Sie unsere Speisekarte an den oberen Rand des Bildschirms, bis Sie es zu fügen, wo die Bar ist der Standard-Access.
10 - Um die Leiste zu starten, um die Datenbank zu öffnen müssen, um die Anweisung zu öffnen, wenn Sie Access starten geben. Lassen Sie die 'Extras' und 'Start' und 'Menüleiste' wählen Sie den Namen unserer Speisekarte in diesem Beispiel 'Menü'.
11 - Um die Bilder der einzelnen Menüpunkte wir einen anderen Weg nutzen können ist es, ein Bild in der gleichen Form und Kopie für das Element einzufügen. Das heißt:
- Erstellen Sie ein Formular in Form von Struktur
- Zum Einfügen-Menü und wählen Sie das Bild
- Wählen Sie ein beliebiges Bild und 'Enter'
- Wählen Sie das Bild und mit der rechten Maustaste wählen Sie Kopieren
- Zum Menü Extras und wählen Sie die Option zum Anpassen
- Klicken Sie auf den rechten Knopf der Maus auf den gewünschten Artikel in das Bild zu ändern, und wählen Sie Einfügen Schaltflächensymbol.
- Klicken Sie in der Nähe und die gute Anbindung
- Starten Sie die Datenbank, um das Ergebnis zu sehen
WICHTIGER HINWEIS: Beim Ändern der Menüleiste das Menü in der Access-Datenbank verschwinden, ist es vollbracht. Um Veränderungen in der es zu machen ist notwendig, um die Datenbank die UMSCHALTTASTE gedrückt starten.
Mein Menü sieht so aus:
Download: Menüleiste
Posted in Allgemein | 9 Kommentare »
Mittwoch 20 Mai, 2009 |
Wir können verhindern, einen Bericht zu öffnen, wenn keine Daten zu zeigen, und dafür verwenden wir zwei Formen abhängig von der Version von Access:
1 - Alle Versionen von Access
Setzen Sie den nachfolgenden Code in den Eigenschaften des Berichts, die Veranstaltung 'Enabling'
Verwenden Sie das Ereignis Enabling (Aktivieren) Bericht:
Private Sub Report_Activate ()
Wenn DomAnzahl ("*", Me.RecordSource) = 0 Then
MsgBox "keine Aufzeichnungen angezeigt" vbDefaultButton1, "Fehler!"
AcReport DoCmd.Close, "Name des Berichts"
End If
End Sub
2 - Ab der Version 7 (Access 95) wurde das Ereignis hinzugefügt ', wenn keine Daten', dann haben wir den folgenden Code können urilizar:
Private Sub Report_NoData (Cancel As Integer)
MsgBox "Keine Daten in dem Bericht.", VbInformation, "Error!"
Cancel = True
End Sub
Um zu sehen, läuft Laden Sie das Beispiel: Verhindern Eröffnung Bericht
Posted in Allgemein | 13 Kommentare »
