Adressendatei
02.01.2005 16:47:27
Franz
heute wollte ich mich mal weiterbilden und habe aus einem Buch
folgende Prozedur eingetippt:
Public
Sub Direktzugriffsdatei()
Dim adr As Adresstyp, nr As Integer
'Adressen Save
Open "Adressen" For Random As 1 Len = Len(adr)
rec = 1
Do
adr.vorzuname = InputBox("Vollständiger Name")
If Trim(adr.vorzuname) = "" Then Exit Do
adr.ort = InputBox("Vollständiger Wohnort")
If Trim(adr.ort) = "" Then Exit Do
Put #1, rec, adr
rec = rec + 1
Loop While True
'Adressen lesen
Do
nr = CInt(InputBox("Recordnummer"))
If nr >= 1 And nr <= rec Then
Get #1, nr, adr
Debug.Print adr.vorzuname
Debug.Print adr.ort
End If
Loop Until nr = 0
Close 1
End Sub
Leider zeigt mir mein Computer eine Fehlermeldung an: Benutzerdefinierter Typ nicht definiert und markiert in der 2. Zeile adr as Adresstyp. Warum tut er das?