Seite 85 – RAMSES EDV Beratung

FAQ Access – Volltext Suche a la Google

Access VBA – Volltext Suche a la Google Problem Sie wollen wie bei Google nach verschiedenen Suchbegriffe suchen ? Das bedeutet Sie geben – Klaus Hannover Müller – ein und wollen nur die Personen sehen, die alle drei Kriterien erfüllen ? Lösung Nutzen Sie folgenden Code und nutzen Sie die Funktion in jeder OpenForm Anweisung: Public Function Suchterm(vSuchbegriff) As String Dim vLänge As Long, vLetztesLeerzeichen As Long, vLeerzeichenstelle As Long Dim vAnzeige As String vLänge = Len(vSuchbegriff) vLetztesLeerzeichen = InStr(1, vSuchbegriff, " ") vLeerzeichenstelle = InStr(vLetztesLeerzeichen + 1, vSuchbegriff, " ") 'Suchbegriff hat nur einen Begriff If vLetztesLeerzeichen = 0

FAQ Access – Guter VBA Code

Access VBA – Guter VBA Code Problem VBA Code zu schreiben ist einfach, aber guten VBA Code zu schreiben ist schwierig. Was zeichnet nun einen „guten“ VBA Code aus ? Das Programm muß laufen (Keine Bugs), das Programm muß dokumentiert sein, das Programm muß schnell sein. Lösung Es versteht sich von selbst, dass man über die folgenden Regeln trefflich diskutieren kann. Hier nun 17 Regeln zum Erstellen „guten“ VBA Codes 1. Verwende Option Explicit Die Function Explicit legt fest, daß alle Variablen vor der Benutzung dimensioniert werden müssen. Das verhindert das „Verschreiben“ bei der Benutzung der Variablen. 2. Deklariere die

FAQ Access – Individuelle Kopien von Berichten drucken

Access Berichte – Individuelle Kopien von Berichten drucken Problem Oftmals müssen Sie auf Original und Kopien eines Berichtes Hinweise wie „Original“, „Kopie Buchhaltung“, „Kopie Kunde“, „Kopie Abteilungsleiter“, „Kopie …“ ausdrucken. Lösung Zur Lösung dieses Problems können Sie eine Schaltfläche mit der folgenden Ereignisprozedur „Beim Klicken“ einsetzen: Private Sub btnPrint_Click() Dim strReport As String Dim arrKopien As Variant Dim I As Long, R As Report strReport = "Testbericht" arrKopien = Array("Original", "Kopie Buchhaltung", "Kopie Kunde", "Kopie Abteilungsleiter") For I = 0 To UBound(arrKopien) DoCmd.OpenReport strReport, acViewPreview Set R = Reports(strReport) R.lblKopie.Caption = arrKopien(I) DoCmd.PrintOut acPrintAll DoCmd.Close acReport, strReport Next I Set

FAQ Access – Öffnen in einer bestimmten Zoom Stufe

Access Berichte – Öffnen in einer bestimmten Zoom Stufe Problem Nach dem Öffnen eines Berichtes soll der Bericht in einer bestimmten Zoomstufe angezeigt werden. Lösung Nach dem Docmd.OpenReport kann mit zwei unterschiedlichen Methoden die Zoomstufe angezeigt werden. RunCommand acCmdZoom75 Diese Konstanten ist allerdings nicht stufenlos verfügbar, sondern nur in gängigen Größen. Alternativ kann auch die Anpassung an das Fenster erfolgen. RunCommand acCmdFitToWindow Reports!Berichtsname.ZoomControl = 85 Sofern Sie den Berichtsnamen in Form einer Variablen übergeben wollen, setzen Sie ihn in Klammern, wie hier gezeigt: Public Function Kopfbogendruck(vBerichtsname As String) DoCmd.OpenReport vBerichtsname, acViewPreview Reports(vBerichtsname).ZoomControl = 160 End Function Hierbei kann der Zoomfaktor

FAQ Access – Nachfrage vor dem Druck

Access Berichte – Nachfrage vor dem Druck Problem Beim Drucken eines Berichtes kann es sehr leicht passieren, das bei Verwendung von Kopfbögen das falsche Papier im Drucker eingelegt ist. Es soll nun vor dem Druck abgefragt werden, ob der Anwender das richtige Papier eingelegt hat. Lösung Jeder Bericht verfügt über eine Ereignis-Prozedur „Beim Öffnen“ (VBA: Report_Open) in der Sie eine entsprechende Abfrage unterbringen können: Sub Report_Open (Cancel As Integer) Dim Taste As Integer Taste = MsgBox("Richtiges Papier eingelegt?", vbYesNo + vbQuestion, "Bericht '" & Me.Name & "' drucken:") If Taste = vbNo Then Cancel = True End Sub Diese kleine Routine zeigt