| Forum: VB.NET |
Thema:
Fehlermeldung FalscheDatenspeichern-Funktion |
Von:
Hubert Wahle (
20.06.2007 17:19) |
Kann mir jemand diese Fehlermeldung auflösen
Die FalscheDatenSpeichern-Funktion gibt nicht für alle Codepfade einen Wert zurück. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine Nullverweisausnahme auftreten.
Code
Private Function FalscheDatenSpeichern() As Object
On Error Resume Next
Dim FileNr As Short
FileNr = CShort(FreeFile())
FileOpen(FileNr, My.Application.Info.DirectoryPath & "\UserData_" & Replace(txt_Name.Text, " ", "") & "_" & Replace(m_txtStrasse & "_" & txt_StrNr.Text, " ", "") & ".usd", OpenMode.Output)
PrintLine(FileNr, Crypting(LCase(txt_Firma.Text)))
PrintLine(FileNr, Crypting(LCase(txt_Name.Text)))
PrintLine(FileNr, Crypting(LCase(Replace(m_txtStrasse & "#" & txt_StrNr.Text, " ", ""))))
PrintLine(FileNr, Crypting(LCase(txt_PLZ.Text & Txt_PlzOrt.Text)))
PrintLine(FileNr, Crypting(LCase(txt_Email.Text)))
FileClose(FileNr)
End Function
Danke für Antwort Hubert
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
