Blog Schr�der

Fehlerbehandlung VBA

2009-11-28T01:05:00.004+01:00

Die Fehlerbehandlung soll so unaufdringlich wie m�glich sein und vom eigentlichen Code m�glichst nicht ablenken. Zugleich soll sie aber auch den Ort des Fehlers liefern.Als zus�tzliches Feature wird unterschieden zwischen "erwarteten" und anderen Fehlern. Erwartet sind Anwenderfehler udgl., die der Programmierer selbst mit Err.Raise wirft bzw. die in der Fehlerroutine speziell abgefangen werden.

Fehler 8155: Keine Spalte wurde f�r Spalte x von DRVD_TBL angegeben

2009-09-29T21:57:00.000+02:00

System: Access 2003 (ADP mit SQL Server 2005)Dies ist ein Hinweis auf eine fehlerhafte SQL-Anweisung.Bei mir entstand der Fehler, als die SQL-Anweisung zusammengest�ckelt wurde:DoCmd.RunSQL "INSERT INTO myTAB (Wert) VALUES (" & txtFeld & ")"Alles geht gut, wenn in txtFeld eine ganze Zahl steht. Steht aber eine Kommazahl (z.B. 0,5) drin, dann erscheint in der VALUES-Liste das� Komma, was bedeutet:

Web-Zugriff auf SQL Server

2009-08-11T23:09:00.000+02:00

Der SQL Server 2005 erlaubt einer Web-L�sung (hier PHP) keinen Zugriff auf eine DB-Tabelle? Hier ein Beispiel f�r eine Fehlermeldung:Warning: mssql_query() [function.mssql-query]: message: Die SELECT-Berechtigung wurde f�r das 'xxxx'-Objekt, 'yyyy'-Datenbank, 'dbo'-Schema verweigert. (severity 14) in C:\www\zzzz.php on line 26L�sung:Es gibt den speziellen Datenbankbenutzer *.IUSR_* (* f�r lokale

In Datenherkunft von Formularen und Berichten Textteile austauschen

2009-06-23T19:30:00.005+02:00

Bei �nderungen an der Datenbankstruktur sollen auch Tabellen- und Feldnamen ge�ndert werden. In Modulen geht das einfach durch STRG + H (Ersetzen). Die in Access-Objekten eingebetteten SQL-Anweisungen werden so nicht erwischt. Hierzu folgende Funktion, die zweckm��igerweise aus einem Makro (s. Abb.) aufgerufen werden kann.Argumente:oldString: das alte Textst�ck (z.B. "L�nderschl�ssel")newString:

Access-Formular: beim Datensatz bleiben

2009-06-02T16:02:00.007+02:00

Donkarl.com 4.5 empfiehlt die Bookmark-Methode:Me.Painting = False 'Bildschirmflackern reduzieren... 'SQL o.a.Dim v 'Variantv = Me.Recordset.BookmarkMe.Requery 'Requery zeigt normal den ersten Datensatz anMe.Bookmark = vMe.Painting = TrueDie Suchmethode:Me.Painting = False 'Bildschirmflackern reduzieren ... 'SQL o.a.'nach L�schbefehl: auf n�chste Zeile'DoCmd.GoToRecord , , acNextDim pos As

VBA in MS Office bringt "Unerwarteter Fehler"

2009-05-10T21:08:00.003+02:00

Die L�sungauf: http://www.herber.de/forum/archiv/716to720/t716089.htmvon: Christoph D�mmenGeschrieben am: 07.01.2006 16:05:30thanks to Tony Jollans in microsoft.public.word.vba.generalThis sounds like corruption. If reinstalling Office doesn't help, trydeleting the VBA key in the registry (which is left unchanged by(re)installation) ... HKEY_CURRENT_USER\Software\Microsoft\VBAIf you delete this

Feldinhalt aufteilen, z.B. Stra�e und Hausnummer

2009-04-03T15:51:00.001+02:00

Public Function PosHsNrInStrasse(Strasse As String) As Integer � � Dim Zaehler� � �As Integer � � Dim Laenge� � � As Integer � � Dim X� � � � � �As String � � Dim Ergebnis� � As String � � � � Laenge = Len(Strasse) � � PosHsNrInStrasse = 0 'von rechts nach links durch Strassennamen gehen 'bis auf die 3 linken Zeichen damit Strassen, die mit Zahl beginnen '(z.B. 3. Terwestenweg) nicht als

Aus VBA Word-Dokument erzeugen und darin Textmarken �berschreiben

2009-04-01T19:56:00.001+02:00

filesys:�� Filesystemobjekt (vorher angelegt)wdApp:�� Word.Application-Objekt (vorher angelegt)TEMPLATENAME:� Dateiname (inkl. Pfad) einer .DOT-DateiSTRINGCONTROL: Textbox o.a., enth�lt Name der Textmarke... 'existiert die Dokumentvorlage?� �� Dim bEx As Boolean�� On Error GoTo Er�� If Not filesys.FileExists(TEMPLATENAME) Then�� MsgBox "Die Dokumentvorlage " & TEMPLATENAME & "

Die ausgew�hlten Items einer Listbox in String sichern

2009-04-01T19:36:00.001+02:00

Public Sub SelectedFromStringToListBox(ByVal gesamtString As String, Liste As ListBox)�� On Error GoTo Er�� Dim v�� Dim i As Integer�� Dim j As Integer�� With Liste�� For Each v In .ItemsSelected�� .Selected(v) = False�� Next v�� v = Split(gesamtString, "; ")�� For i = 0 To UBound(v)�� For j = 0 To .ListCount - 1�� If v(i) = .ItemData(j)

Unterformular zeigt leeres Rechteck

2009-01-19T19:22:00.003+01:00

Das Problem taucht in Accessprojekten (2002/2003) auf Basis SQL Server 2005 auf. Die Datenherkunft darf in der ORDER BY-Klausel keine Bezeichnungen wie "XY.ID" enthalten. Erlaubt sind in dieser Klausel nur reine unqualifizierte Feldnamen wie "ID".Hilfen:Bearbeite die ORDER BY-Klausel f�r diesen Zweck in der SQL-Box, nicht per Abfrageassistent (er f�gt den Tabellennamen bzw. -alias wieder zu).

DTPicker zur Datumeingabe

2008-12-16T18:54:00.002+01:00

Value kann nur eingegeben werden, wenn CheckBox auf True steht.Value = Empty f�r das aktuelle Datum (als Voreinstellungswert?).DTPicker1.CheckBox=False l��t die doofe Checkbox schlie�lich verschwinden.(Achtung, die CheckBox-Eigenschaft kommt nicht in der Auswahlliste vor!)---------------------------------------------------------Praktische Anwendung:a) DTPicker1 an kein Feld der Tabelle binden!b)

Audio-Applet

2008-10-28T22:33:00.000+01:00

AudioBox Sample

Press a button to play a sound.� Sounds will composite when overlapped.

��

Verbindung eines ADP zur Laufzeit festlegen

2008-08-13T15:43:00.002+02:00

Folgende VBA-Prozedur weist dem ADP eine neue Verbindung zu:Public Sub OpenADPConnection(ByVal strUser As String, ByVal strPassword As String)Const strCONNECTION_STRING As String ="Provider=SQLOLEDB;Data Source=deinServer;Initial Catalog=deineDatenbank"CurrentProject.OpenConnection strCONNECTION_STRING, strUser, strPasswordIf Not CurrentProject.IsConnected Then MsgBox "Es konnte keine

Spezialordner, Systemordner, Windowsordner

2008-08-08T19:18:00.000+02:00

Option Compare DatabaseOption Explicit'Define Special Folder ConstantsPublic Const CSIDL_PROGRAMS = 2 'Program Groups FolderPublic Const CSIDL_PERSONAL = 5 'Personal Documents FolderPublic Const CSIDL_FAVORITES = 6 'Favorites FolderPublic Const CSIDL_STARTUP = 7 'Startup Group FolderPublic Const CSIDL_RECENT = 8

SQL Server CONVERT Datetime

2008-08-03T15:39:00.000+02:00

Wandle das heutige Datum in Text um:CONVERT(nvarchar, getdate(), x)Dabei ergibt sich je nach x:100: Jul 31 2008 11:49PM101: 07/31/2008102: 2008.07.31103: 31/07/2008104: 31.7.2008110: 07-31-2008112: 20080731120: 2008-07-31 23:48:13

Eigene IP-Adresse ermitteln

2008-07-13T18:19:00.002+02:00

myUser.IP = Request.UserHostAddressMulticast-Adressen: Dim lastServerIP As String = "" Dim adapters As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces() Dim adapter As NetworkInterface 'Ermittle die IP-Adressen des Rechners For Each adapter In adapters Dim adapterProperties As IPInterfaceProperties = adapter.GetIPProperties() Dim multiCast As

Neustart nach Windows-Update verl�ngern

2008-06-23T21:51:00.003+02:00

HKEY_LOCAL_MACHINE\ Software\ Policies\ Microsoft\ Windows\ WindowsUpdate\ AUEintr�ge:RebootRelaunchTimeoutEnabled = 1RebootRelaunchTimeout = 720(720 = 12 Stunden, beliebige Werte m�gl.)

Stammdaten-Klasse

2008-05-29T16:52:00.002+02:00

'''

''' Stammdaten zu allen m�glichen Xxxxxs'''

''' ID ist XxxxxColorPublic Class Xxxxxs��'''

��''' Stammdaten zu einer m�glichen Xxxxx��'''

��''' nicht zur externen Verwendung bestimmt - Zugriff nur �ber Class Xxxxxs��Public NotInheritable Class Xxxxx��Private mImageName As String��'''

��'''

CreateInstance: Unbekannte Objekte verwenden

2008-04-18T17:19:00.002+02:00

Bekannt sind der NameSpace, der Name der enthaltenden Assembly und derName der Klasse(n). Die jeweiligen Klasse realisieren ganz verschiedeneDinge (Objekte), doch mu� eine einheitliche Schnittstelle eingehaltenwerden. Die Anwendung ben�tigt nur die drei Namen als String f�r alleZugriffe.a) F�r alle Objekte verbindliche Schnittstelle:Public Interface IInterfaceAllg�� Property Key() As String��

Systemfarben

2008-03-01T20:20:00.004+01:00

-2147483647 Desktop (background)-2147483636 Hintergrund der Anwendung (appworkspace)-2147483643 Fenster (window)-2147483642 Fensterrahmen (windowframe)-2147483638 Rahmen akt. Fenster (activeborder)-2147483637 Rahmen eines inaktiven Fensters (inactiveborder)-2147483640 Fenstertext (windowtext)-2147483646 Titelleiste akt. Fenster(activecaption)-2147483645

MsgBox �berschreiben

2008-01-23T14:03:00.001+01:00

Public Function MsgBox(strText As String, _ Optional intSymbol As VbMsgBoxStyle= vbOKOnly, _ Optional strTitel As String = "Anwendung") As VbMsgBoxResult If Left(strText, 6) = "Fehler" And IsMissing(strTitel) Then MsgBox = VBA.MsgBox(strText, intSymbol, strTitel & " - Fehlermitteilung") Else MsgBox = VBA.MsgBox(strText, intSymbol, strTitel) End IfEnd FunctionHinweise:Den Standardwert

EventLog - Ereignisprotokoll

2008-01-16T14:13:00.000+01:00

In *.vb:'''

''' Gibt Meldungen in die Ereignisanzeige (Anwendung) aus'''

''' Die Nachricht''' optionaler ParameterPrivate Sub WriteEventLog(ByVal message As String, Optional ByVal type As EventLogEntryType = EventLogEntryType.Information) Try ' Create an EventLog instance and assign its source. Dim myLog

AJAX 1.0-enabled ASP.NET 2.0 program - Runtime Error

2008-01-10T13:17:00.000+01:00

Fehler beim Zugriff auf die IIS-Metabasis

2007-12-21T09:49:00.000+01:00

Das Konto, welches ASP.Net ausf�hrt, hat im .Net FW keine Berechtigung, die Metabasis zu lesen. Normalerweise wird das bei der Installation von .Net automatisch gesetzt. Leider nur, wenn dann schon die IIS installiert sind. Wenn man IIS NACH .NET installiert, mu� man das manuell machen: Konsole: (als Admin? - wei� ich nicht) im Windows Verzeichnis: >> cd Microsoft.Net\Framework\v2.0.'blabla' >>