Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Access 2003 ->97 VB Textdatei auslesen für Pfadangabe
Autor: rainerD
Datum: 19.05.06 13:21
Hallo... ich habe folgendes Problem : MDB mit Access 2003, Formular führt folgenden Code beim Anzeigen richtig aus.   Private Sub Form_Current() If ExistiertDatei(CurrentProject.Path & "\Pref.txt") Then GoTo ok Else MsgBox ("Achtung!!! Initialisierungs-Datei fehlt!!!"), vbCritical, "FEHLER IM SYSTEM" Exit Sub End If ok: iZeile = 3 ispalte = 1 Set Db = CurrentDb() Set Rs = Db.OpenRecordset("Pref", dbOpenDynaset) Rs.MoveLast iMaxZeile = Rs.RecordCount Rs.MoveFirst Rs.Move (iZeile - 1) BEPath = Rs.Fields(ispalte - 1) Rs.MoveFirst Rs.Close Db.Close ' Tabellen löschen On Error Resume Next DoCmd.DeleteObject acTable, "Titel" DoCmd.DeleteObject acTable, "TblAdressen" DoCmd.DeleteObject acTable, "Plzs" DoCmd.DeleteObject acTable, "Land" DoCmd.DeleteObject acTable, "Anrede" DoCmd.DeleteObject acTable, "Adressen" DoCmd.DeleteObject acTable, "Adressen" DoCmd.DeleteObject acTable, "Pref" ' Tabellen neu initegrieren neu: DoCmd.TransferDatabase acLink, "MICROSOFT ACCESS", _ BEPath & "\BE.MDB", acTable, "Titel", "Titel", False DoCmd.TransferDatabase acLink, "MICROSOFT ACCESS", _ BEPath & "\BE.MDB", acTable, "TblAdressen", "TblAdressen", False DoCmd.TransferDatabase acLink, "MICROSOFT ACCESS", _ BEPath & "\BE.MDB", acTable, "Plzs", "Plzs", False DoCmd.TransferDatabase acLink, "MICROSOFT ACCESS", _ BEPath & "\BE.MDB", acTable, "Land", "Land", False DoCmd.TransferDatabase acLink, "MICROSOFT ACCESS", _ BEPath & "\BE.MDB", acTable, "Anrede", "Anrede", False DoCmd.TransferDatabase acLink, "MICROSOFT ACCESS", _ BEPath & "\BE.MDB", acTable, "Adressen", "Adressen", False DoCmd.TransferText acLinkDelim, "Pref", "Pref", CurrentProject.Path & "\Pref.txt", False DoCmd.Maximize End Sub Dieses Formular muss jetzt aber auch auf einem System laufen mit Access 97. Hier bekomme ich aber die Fehlermeldung : Typen unverträglich... und nichts geht mehr... DAO 3.5 ist Verweis drauf... wie muss ich den Code für 97 anpassen. Es soll eine textdatei ausgelesen werden, in der Pfadangaben stehen um von dort aus einer Backend.mdb Tabellen zu verknüpfen... muss bei jedem Start aktualisiert werden. Danke Rainer

Access 2003 ->97 VB Textdatei auslesen für Pfadangabe	1.947	rainerD	19.05.06 13:21
Re: Access 2003 ->97 VB Textdatei auslesen für Pfadangabe	808	Maywood	20.05.06 17:01
Re: Access 2003 ->97 VB Textdatei auslesen für Pfadangabe	842	DaveS	20.05.06 17:11

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