Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Was mache ich falsch
Autor: Seroman
Datum: 19.10.02 14:12
ich habe da ein problem und zwar schaut euch mal diesen Queltext an ich bekomme immer die Fehlermeldung Laufzeitfehler 13 Typen unverträglich was ist da falsch und muss ich ändern Sub speichern() Dim filenr As Integer ' Dateinummer Dim Msg As Integer ' Für MsgBox Dim ord As String ord = frmMitarbeiter.txtFields(0) If combo.Text = "Brief1" Then filenr = FreeFile MkDir "c:\" + ord Dieses Stück ist immer Gelb makiert nach dem Fehler Anfang Open "c:\" + ord \ "Rechnung.doc" For Output As #filenr ende Msg = MsgBox("Aufgabe wird gesichert!", 48, "Sicherung") Print #filenr, frmMitarbeiter.txtFields(1) Print #filenr, frmMitarbeiter.txtFields(5); Spc(1); frmMitarbeiter.txtFields(3); Spc(1); frmMitarbeiter.txtFields(4) Print #filenr, frmMitarbeiter.txtFields(6); Spc(1); frmMitarbeiter.txtFields(7) Print #filenr, frmMitarbeiter.txtFields(8); Spc(1); frmMitarbeiter.txtFields(9) Print #filenr, "Kunden Nr. "; frmMitarbeiter.txtFields(0) Print #filenr, Print #filenr, Print #filenr, Print #filenr, "Vertrags Nr. "; frmMitarbeiter.txtFields(11); Spc(5); "Sachbearbeiter "; frmMitarbeiter.txtFields(13) Print #filenr, Print #filenr, Tab(80); "Hannover "; Date Print #filenr, Print #filenr, If frmMitarbeiter.txtFields(1) = "Frau" Then Print #filenr, "Sehr geehrte Frau "; frmMitarbeiter.txtFields(3) Else: Print #filenr, "Sehr geehrter Herr "; frmMitarbeiter.txtFields(3) End If Print #filenr, Print #filenr, "xxxxxxxxxMahnungxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" Print #filenr, "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" Print #filenr, "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" Print #filenr, Print #filenr, Print #filenr, "Mit freundlichen Grüßen" Print #filenr, Print #filenr, "Sachbearbeiter" Close #filenr

Was mache ich falsch	72	Seroman	19.10.02 14:12
Re: Was mache ich falsch	205	Dieter	19.10.02 14:17
Re: Was mache ich falsch	34	Seroman	19.10.02 15:18

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