Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

If Else
Autor: Noura
Datum: 06.12.01 13:52
Hallo zusammen! Ich habe ein Probleme und zwar lese ich strings aus einer Textdatei aus und füge ich sie in den Spalten der jeweiligen Tabellen ;es lief auch gut .Nun will ich daß das Programm beim erneuter Ausführung unterbricht wenn es in der Spalte“VersuchBez“ der Tabelle „tblversuche“ (Im Programm ist es „inpar“) den gleichen Wert gibt, der gerade ausgelesen wurde. Und so habe ich versucht das Probleme zu Lösen ,aber das Programme springt immer direkt zu Else und macht da weiter und das beim ersten Ausführung obwohl es da noch gar keine Daten gibt :Hier ist ein Ausschnitt Dim db As Database Dim rsvers As Recordset Dim sSatz As String Dim inPar As String Dim i As Integer Set db = CurrentDb Set rsvers = db.OpenRecordset("tblVersuche") n = Zeilenanzahl() Open "c:Testdestination.txt" For Input As #F While Not EOF(F) And i <= n - 1 'einschließlich Zeile 41 Line Input #F, sSatz i = i + 1 inPar = Left(sSatz, InStr(sSatz, ";") - 1) ............. Wend rsvers.AddNew If rsvers!VersuchBez <> inPar Then ‚Ab mit den Daten in den Spalten der jeweiligen Tabellen Else MsgBox "VersuchNr schon vorhanden" Exit Sub End If Was mache bloß falsch? Ich danke schonmal MfG Noura

If Else	64	Noura	06.12.01 13:52
Bitte um Hilfe	38	Noura	06.12.01 15:29
Endlich rausbekommen	32	Noura	07.12.01 09:51

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übersicht

Suchen