Seite 84 – RAMSES EDV Beratung

FAQ Access – Fehlende oder falsch DLL Verweise

Access VBA – Fehlende oder falsch DLL Verweise Problem Bei Starten der Datenbank werden plötzlich Standard VBA Befehle als fehlerhaft deklariert. Lösung Der Verweis auf eine der DLL Dateien ist fehlerhaft. Dies kann durch unterschiedliche Installationspfade passieren oder aber durch unterschiedliche Access Versionen verursacht werden. Starten Sie die Datenbank als Benutzer mit Administrationsrechten und Schließen Sie alle auftauchende Fehlermeldungen, sodaß Sie letztendlich in der Datenbank sind. Mit der Tastenkombination Alt+F11 gelangen Sie in die VBA Entwicklungsumgebung. Wählen Sie dort den Befehl Extras / Verweise Sofern ein Verweis fehlt oder defekt ist bekommen Sie in der entsprechenden Zeile einen Hinweis „NICHT

FAQ Access – Fortschrittsbalken per VBA

Access VBA – Fortschrittsbalken per VBA Problem Bei längeren VBA Proceduren ist nicht erkennbar, wie weit ein Vorgang abgeschlossen ist. Lösung Wir bauen uns ein Formular mit einem „Balken“ In einem neuen Modul erstellen wir folgende kleine Routine Public Function ProgrBar(lngCurr As Long, lngMax As Long, vProzess As String) '***************************************************************** '*** Maik Ramftel '*** 2010-06-28 '*** Function erstellt einen Fortschritttsbalken '***************************************************************** If DEBUGMODUS = False Then On Error Resume Next End If Dim F As Double, P As Integer If lngCurr = 0 And lngMax = 0 Then 'Anzeigen DoCmd.OpenForm "FOPROGRESSBAR" [Forms]![FOPROGRESSBAR]!rctStatus.Top = [Forms]![FOPROGRESSBAR]!lblStatus.Top [Forms]![FOPROGRESSBAR]!rctStatus.Left = [Forms]![FOPROGRESSBAR]!lblStatus.Left [Forms]![FOPROGRESSBAR]!rctStatus.Height = [Forms]![FOPROGRESSBAR]!lblStatus.Height

FAQ Access – Bedingte Formatierung per VBA

Access VBA – Bedingte Formatierung per VBA Problem Sie möchten die bedingte Formatierung eines Formularfeldes per VBA einstellen Lösung Folgenden Code packen Sie bitte in das Form_Open Ereignis (Auch bei UF) With AETEXT.FormatConditions.Add(acExpression, acEqual, "FKAEMENR.column(3)<>1") .Enabled = False End With

FAQ Access – Neue Felder per VBA anlegen

Access VBA – Neue Felder per VBA anlegen Problem Sie möchten per VBA ein Feld neu anlegen, d.h. Sie wollen bzw. können nicht in die Entwurfsansicht einer Tabelle gehen, da sich die Tabelle „außer Reichweite“ beim Kunden befindet? Lösung Nutzen Sie die CreateField Methode Function NeuesFeld() On Error Resume Next 'dbBigInt Big Integer-Daten (nur ODBCDirect) 'dbBinary Binärdaten 'dbBoolean Boolesche Daten (True/False) 'dbByte Byte-Daten (8-Bit) 'dbChar Zeichensatzdaten (nur ODBCDirect) 'dbCurrency Währungsdaten 'dbDate Datumswerte 'dbDecimal Dezimaldaten (nur ODBCDirect) 'dbDouble Fließkommadaten mit doppelter Genauigkeit 'dbFloat Fließkommadaten (nur ODBCDirect) 'dbGUID Guid - Daten 'dbInteger Integer-Daten 'dbLong Long Integer-Daten 'dbLongBinary Binärdaten(Bitmap) 'dbMemo Memo-Daten (erweiterter Text)

FAQ Access – Rechtschreibung automatisch starten

Access VBA – Rechtschreibung automatisch starten Problem Ich möchte nach dem Aktualisieren eines feldes die Rechtschreibung starten lasssen, um gerade in Textfeldern eine richtige Rechtschreibung garantieren zu können. Lösung Private Sub FONOTIZ_AfterUpdate() On Error Resume Next DoCmd.RunCommand acCmdSpelling End Sub