vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
WinNT --> XP 
Autor: Annabelle
Datum: 23.01.06 12:51

Hallo
Wir sind auf Windows XP umgestiegen und nach der Konvertierung meiner Datenbank (DAO; Access FrontEnd,MS-SQLServer7.0 BackEnd) ins XP Format geht folgender Codeabschnitt nicht mehr.

Private Sub Quitt_AfterUpdate()

Dim wiu As Long
wiu = InStr(1, Me.RecordSource, "UNION SELECT")

If Quitt.Value = 0 Then
Me.RecordSource = Left(Me.RecordSource, wiu - 1) & "AND (QU=NULL OR LEFT(QU,5)='STUFE') " & Mid(Me.RecordSource, wiu)

Else
Me.RecordSource = Left(Me.RecordSource, InStr(1, Me.RecordSource, "AND (QU=NULL OR LEFT(QU,5)='STUFE')") - 1) & Mid(Me.RecordSource, wiu)

End If
End Sub


Der dient dazu aus einer Endlostabelle im Formular bestimmte Datensätze rauszunehmen, nämlich alle in denen das Wort STUFE vorkommt oder die die leer sind.
Unverändert klappt es in NT nur unter XP nimmt er einfach alle datensätze raus anstatt nur die gewünschten, keine Fehlermeldung.
Kann sich das jemand erklären?
Die InStr, Mid und Left Funktionen gibt es ja in der gleichen Form auch unter XP.

t?tet keine v?gel, wir v?geln auch keine toten!

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
WinNT --> XP719Annabelle23.01.06 12:51
Re: WinNT --> XP454Annabelle23.01.06 12:54

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel