vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 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

Visual-Basic Einsteiger
Re: Na, löschen wir mal ... 
Autor: Atlan
Datum: 13.01.02 18:36

Hi Lordchen,
habe ausprobiert und bin leider an folgenden Fehlern
hängengeblieben:


Hier bricht der Vogang ab, wenn ich auf einen Eintrag klicke,
der sich vor dem letzten Eintrag befindet mit der Meldung:

Laufzeitfehler '63':
Falsche Dateisatznummer

'********************************************
Get #F, sNr, Addressen 'Hier bricht der Vogang ab
'********************************************

Siehe: 'Hier bricht der Vogang ab

Private Function ConvertUDT(oUDT As Adr) As String
Dim S As String
S = Space(Len(Addressen))
CopyMem ByVal S, oUDT, Len(Addressen)
ConvertUDT = S
End Function

Private Sub LoadDS(ByVal sNr As Long)
Dim vErg As Variant
Dim F As Byte
Dim n As Integer
Dim i As Long
Dim S As String

'Felder leeren
For i = 0 To 15
txt(i).Text = ""
Next

F = FreeFile()
On Error GoTo FileError
Open "Adressen.TXT" For Random As #F Len = Len(Addressen)
On Error GoTo 0
Get #F, sNr, Addressen 'Hier bricht der Vogang ab
Close #F

S = ConvertUDT(Addressen)
vErg = Split(S, ";") 'na Trickreich was
For i = 0 To UBound(vErg) - 1 Step 2
txt(n) = Trim(vErg(i))
n = n + 1
Next

Exit Sub
FileError:
MsgBox "Fehler beim Öffnen der Datei.", vbExclamation, "Dateifehler"
End Sub


Woran kann das liegen ?

Und warum entsteht dieser Fehler, wenn die Datei Adressen.TXT schon
vorhanden ist, aber ohne Einträge, und ich das Proggi das erste Mal
mit einem Klick auf "cmdNew" starte erscheint folgendes:

1,57854406130268 in "txt(0)"

gruß
Atlan
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Text einlesen 293Atlan12.01.02 00:43
Na, da wollen wir Dich vor einem schweren Designfehler schüt...239unbekannt12.01.02 12:35
Teil 1: Done.245unbekannt12.01.02 16:05
Re: Teil 2: Done.235unbekannt12.01.02 16:35
Re: Teil 3: Done.252unbekannt12.01.02 16:45
Re: Teil 4: Done.216unbekannt12.01.02 17:28
Das war's mal, aber:224unbekannt12.01.02 17:36
Re: Das war's mal, aber:37Atlan12.01.02 21:27
Wieso, das ist doch keine Datenbank? Naja, ich fasse es mal ...261unbekannt12.01.02 21:35
Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ...72Atlan13.01.02 00:10
Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ...239unbekannt13.01.02 00:23
Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ...68Atlan13.01.02 01:46
Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ...214unbekannt13.01.02 01:48
Komplett und funkt 345unbekannt13.01.02 15:03
Re: Komplett und funkt 48Atlan13.01.02 16:07
Na, löschen wir mal ...432unbekannt13.01.02 18:11
Re: Na, löschen wir mal ...43Atlan13.01.02 18:36
Re: Na, löschen wir mal ...284unbekannt13.01.02 19:11
Re: Na, löschen wir mal ...38Atlan13.01.02 20:09
Re: Na, löschen wir mal ...240unbekannt13.01.02 20:15
Re: Na, löschen wir mal ...58Atlan13.01.02 21:10
Re: Na, löschen wir mal ...252unbekannt14.01.02 00:22
Re: Na, löschen wir mal ...44Atlan14.01.02 23:37
Re: Na, löschen wir mal ...35Atlan16.01.02 09:56
Re: Na, löschen wir mal ...43Atlan16.01.02 19:59
Hi ... Hi ....439unbekannt16.01.02 20:06
Re: Hi ... Hi ....46Atlan16.01.02 21:50
So isses ... fast ... Good work! (oT)240unbekannt16.01.02 21:55
Naja, wenn einige bei Snake so mitgedacht hätten ... uiii361unbekannt16.01.02 22:11
Re: Naja, wenn einige bei Snake so mitgedacht hätten ... uii...44Atlan17.01.02 10:56
Hi Lordchen37Atlan20.01.02 11:29

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