Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Textimport in ein Formularfeld
zurück: Fehler "parameter wert eingeben" weiter: Tabellarisches Formular richtig befüllen, wie? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
fizlipuzli
Einsteiger


Verfasst am:
12. Okt 2009, 10:13
Rufname:
Wohnort: 77746 Schutterwald

Textimport in ein Formularfeld - Textimport in ein Formularfeld

Nach oben
       Version: Office 2k (2000)

Hallo,

Ich habe ein Access-Formular mit Namen FrmEmail.
In dem befinden sich 3 nicht aktivierte Kontrollkästchen (kon1, kon2, kon3).
Und ein Feld mit Namen txtNachricht.

1) durch Anwahl von kon1 soll nun der Inhalt der Datein c:\Text\englisch.txt im Feld txtNachricht stehen

Die Anweisung

Code:
Private Sub kon1_Click()
    DoCmd.TransferText acImportDelim, , "[FrmEmail].[txtNachricht]", "C:\Text\englisch.txt"
End Sub


führt jedoch leider nicht zum gewünschten Erfolg. Was mache ich falsch?

2) klicke ich nun kon2 an, soll sich kon1 ausschalten und der Inhalt von C:\Text\franzoesisch.txt importiert werden.
Dto. soll durch Anwahl von kon3 sich kon1 und kon2 ausschalten und die Datei C:\...\deutsch.txt importieren.

Kann mir jemand helfen?

Gruss

Peter
MissPh!
Office-VBA-Programmiererin


Verfasst am:
12. Okt 2009, 10:44
Rufname:
Wohnort: NRW


AW: Textimport in ein Formularfeld - AW: Textimport in ein Formularfeld

Nach oben
       Version: Office 2k (2000)

Hallo,

zunächst einmal solltest du eine Optionsgruppe mit drei Optionsfeldern anlegen, als Ersatz für die drei Kontrollkästchen.
Dann wählst du das Ereignis Nach Aktualisierung der Optionsgruppe, um abh. vom aktuellen Wert der Optionsgruppe die jeweilige Aktion auszuführen.

_________________
Gruß MissPh!
fizlipuzli
Einsteiger


Verfasst am:
12. Okt 2009, 11:00
Rufname:
Wohnort: 77746 Schutterwald

AW: Textimport in ein Formularfeld - AW: Textimport in ein Formularfeld

Nach oben
       Version: Office 2k (2000)

Man lernt doch immer dazu!
Danke für den Hinweis: die Optionsgruppe ist nun angelegt.
Bleibt jetzt nur noch meine Frage 1.

Gruss,

Peter
MissPh!
Office-VBA-Programmiererin


Verfasst am:
12. Okt 2009, 11:44
Rufname:
Wohnort: NRW

AW: Textimport in ein Formularfeld - AW: Textimport in ein Formularfeld

Nach oben
       Version: Office 2k (2000)

Sorry, das hatte ich ganz übersehen. So geht das natürlich nicht, du kannst keinen Import direkt in ein Formularfeld machen.

Die Transfertext-Methode hat eine Tabelle als Ziel. Alternativ kannst du auch die Datei direkt auslesen, entweder mit einer Abfrage oder mittels Open/Input-Befehlen.

_________________
Gruß MissPh!
Gast



Verfasst am:
12. Okt 2009, 11:52
Rufname:

AW: Textimport in ein Formularfeld - AW: Textimport in ein Formularfeld

Nach oben
       Version: Office 2k (2000)

THallo,
Textdatei in eine Variable:
Code:
Function Datei2String(FullDatNam As String) As String
    Const ForReading = 1
    Dim FSO As Object, pTextstream As Object
   
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set pTextstream = FSO.OpenTextFile(FullDatNam, ForReading)
    Datei2String = pTextstream.Readall
    pTextstream.Close
End Function

Code:
me!txtNachricht= Datei2String ("C:\Text\englisch.txt" )

Gruß Mike
fizlipuzli
Einsteiger


Verfasst am:
12. Okt 2009, 12:23
Rufname:
Wohnort: 77746 Schutterwald

AW: Textimport in ein Formularfeld - AW: Textimport in ein Formularfeld

Nach oben
       Version: Office 2k (2000)

Hallo Mike,

Klasse !!! Klappt bestens.
Vielen Dank für Deine Hilfe.

Gruss,

Peter
MissPh!
Office-VBA-Programmiererin


Verfasst am:
12. Okt 2009, 13:17
Rufname:
Wohnort: NRW


AW: Textimport in ein Formularfeld - AW: Textimport in ein Formularfeld

Nach oben
       Version: Office 2k (2000)

Hier noch ein Beispiel zur SQL-Variante:
Code:
Function Datei2String(FullDatNam As String) As String
    Datei2String = DBEngine(0)(0).OpenRecordSet( _
                    "SELECT * from [Text;;FMT=Delimited;HDR=no;IMEX=2;;DATABASE=" & _
                    Left(FullDatNam, Len(FullDatNam) - Len(Dir(FullDatNam))) & _
                    "].[" & Dir(FullDatNam) & "];")(0)
End Function

_________________
Gruß MissPh!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage filtern aus Formularfeld 8 Maris55211 110 13. Jan 2014, 17:53
Gast Abfrage filtern aus Formularfeld
Keine neuen Beiträge Access Formulare: Datum automatisch in Formularfeld eintragen wenn Aktion ausg 5 Roli_beginner 719 21. Nov 2011, 19:51
MiLie Datum automatisch in Formularfeld eintragen wenn Aktion ausg
Keine neuen Beiträge Access Formulare: Formularfeld mit Bedingung 4 senussi 503 21. Sep 2011, 20:03
MissPh! Formularfeld mit Bedingung
Keine neuen Beiträge Access Formulare: Formularfeld Wert automatisch eintragen, in festem bereich 12 thaclone 315 10. Jun 2011, 17:45
thaclone Formularfeld Wert automatisch eintragen, in festem bereich
Keine neuen Beiträge Access Formulare: Pfad zu einer Pdf Datei mit API im Formularfeld auswählen 5 esteban 923 13. Apr 2011, 11:53
derArb Pfad zu einer Pdf Datei mit API im Formularfeld auswählen
Keine neuen Beiträge Access Formulare: formularfeld zum teil sperren 3 jhaustein 193 02. Feb 2011, 14:54
MissPh! formularfeld zum teil sperren
Keine neuen Beiträge Access Formulare: Formularfeld automatisch anpassen 1 Sydney81 393 16. Mai 2010, 18:39
Nouba Formularfeld automatisch anpassen
Keine neuen Beiträge Access Formulare: Defaultwert für Formularfeld aus anderer Tabelle 2 Hadbanger 1950 10. Feb 2010, 16:42
Gast Defaultwert für Formularfeld aus anderer Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragekriterium aus Formularfeld ODER Parameterdialog 2 Fango 1114 31. Jan 2010, 15:01
Fango Abfragekriterium aus Formularfeld ODER Parameterdialog
Keine neuen Beiträge Access Tabellen & Abfragen: Formularfeld mit Ergebnis aus Abfrage befüllen 1 Holzer2202 194 15. Aug 2009, 21:55
Bitsqueezer Formularfeld mit Ergebnis aus Abfrage befüllen
Keine neuen Beiträge Access Formulare: Formularfeld mit Abfrage vergleicehn 6 Gast 197 17. Nov 2008, 22:54
Gast Formularfeld mit Abfrage vergleicehn
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragensumme in Formularfeld anzeigen 2 Ricardo 292 25. Jun 2008, 12:35
Ricardo Abfragensumme in Formularfeld anzeigen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen