Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Diagramm
  • Greiff19.08.15 09:49
       └ gelöst: Diagramm Greiff24.08.15 15:04
  • Erinnerung: 20. Access-Stammtisch Hannover heute
  • KlausWerther19.08.15 12:29
  • Problem bei abhängigen Kombinationsfeldern
  • Titus14.08.15 11:17
       └ RE: Problem bei abhängigen Kombinationsfeldern PhilS14.08.15 11:39
          └ RE: Problem bei abhängigen Kombinationsfeldern Titus17.08.15 14:46
             └ RE: Problem bei abhängigen Kombinationsfeldern Karl Donaubauer17.08.15 17:58
       └ RE: Problem bei abhängigen Kombinationsfeldern StefanWirrer14.08.15 15:55
  • Makro ob Datensatz vorhanden
  • squarehead06.08.15 18:14
       └ RE: Makro ob Datensatz vorhanden Karl Donaubauer06.08.15 19:22
          └ RE: Makro ob Datensatz vorhanden squarehead07.08.15 06:35
             └ RE: Makro ob Datensatz vorhanden Karl Donaubauer07.08.15 09:05
       └ RE: Makro ob Datensatz vorhanden squarehead08.08.15 15:58
       └ RE: Makro ob Datensatz vorhanden tmri11.08.15 15:11
  • Bild aus HTTP ins Formular einfügen
  • tmri11.08.15 15:00
  • Access Stammtisch München am 13.08.2015 (Do)
  • StefanWirrer11.08.15 09:19
  • Access Stammtisch München am 13.08.2015 (Do)
  • StefanWirrer11.08.15 09:16
  • Trennzeichen geteilete Textdadei verküpfen
  • pwakolbi08.08.15 15:51
       └ RE: Trennzeichen geteilete Textdadei verküpfe... PeterDoering09.08.15 11:58
  • Berichte mit Briefpapier als PDF zusammenführen
  • gutzke06.08.15 10:31
       └ RE: Berichte mit Briefpapier als PDF zusammenfüh... PhilS06.08.15 10:37
          └ RE: Berichte mit Briefpapier als PDF zusammenf... gutzke06.08.15 10:48
             └ RE: Berichte mit Briefpapier als PDF zusamme... StefanWirrer06.08.15 12:48
  • Einladung zum 20. Access-Stammtisch Hannover am 19...
  • KlausWerther29.07.15 11:08
  • Import einer CSV Datei
  • drehorgel24.07.15 09:02
       └ RE: Import einer CSV Datei PeterDoering24.07.15 13:19
  • import beschleunigen
  • Greiff06.07.15 13:45
       └ RE: import beschleunigen PeterDoering08.07.15 01:14
          └ RE: import beschleunigen Greiff23.07.15 22:59
  • Übersichtsmanager
  • horst.kattanek12.07.15 13:32
       └ RE: Übersichtsmanager Karl Donaubauer12.07.15 17:40
  • Kontrollkästchen Aktivieren/deaktivieren
  • pwakolbi09.07.15 18:27
       └ RE: Kontrollkästchen Aktivieren/deaktivieren Karl Donaubauer10.07.15 00:21
          └ RE: Kontrollkästchen Aktivieren/deaktivieren PhilS10.07.15 11:13
             └ RE: Kontrollkästchen Aktivieren/deaktivieren Karl Donaubauer10.07.15 13:06
  • Access Stammtisch München am 9.7.2015 (Do)
  • StefanWirrer07.07.15 09:01
    PeterDoering
    Gesendet: 09.08.15 11:58
    Betreff: RE: Trennzeichen geteilete Textdadei verküpfen



    Extreme Veteran

    Beiträge: 567
    5002525
    Hallo,

    pwakolbi - 08.08.15 15:51
    'DoCmd.TransferText acLinkDelim, "", "tmpProdukt", strAktVerz "Produkt.txt", False, ""

    Wofür ich dankbar währe, wenn es eine mögliichkeit gibt die Spezifikation per VBA zu erledigen


    Beispiel:

    Private Function CreateIMEX()
    Dim strSQL As String
    Dim ID As Long

    strSQL = "INSERT INTO MSysIMEXSpecs ( DateDelim, DateFourDigitYear, DateLeadingZeros, DateOrder, DecimalPoint, " & _
    " FieldSeparator, FileType, SpecName, SpecType, StartRow, TextDelim, TimeDelim )" & _
    " VALUES ( '.', -1, -1, 0, '.', '" & vbTab & "', 1252, 'MySpec', 1, 0, '', ':' )"

    CurrentDbC.Execute strSQL , dbFailOnError

    ID = DLookup("SpecID", "MSysIMEXSpecs", "SpecName='MySpec'")

    strSQL = "INSERT INTO MSysIMEXColumns ( [Attributes], [DataType], [FieldName], [IndexType], [SkipColumn], [SpecID], [Start], [Width] ) VALUES ( 0, 10, 'MyText1', 1, 0, " & ID & ", 7, 7 )"
    CurrentDbC.Execute strSQL , dbFailOnError

    strSQL = "INSERT INTO MSysIMEXColumns ( [Attributes], [DataType], [FieldName], [IndexType], [SkipColumn], [SpecID], [Start], [Width] ) VALUES ( 0, 4, 'MyLong1', 0, 0, " & ID & ", 1, 3 )"
    CurrentDbC.Execute strSQL , dbFailOnError

    strSQL = "INSERT INTO MSysIMEXColumns ( [Attributes], [DataType], [FieldName], [IndexType], [SkipColumn], [SpecID], [Start], [Width] ) VALUES ( 0, 8, 'MyDate1', 1, 0, " & ID & ", 25, 11 )"
    CurrentDbC.Execute strSQL , dbFailOnError

    End Function

    Wenn du weitere Feldtypen brauchst, siehe http://www.access-im-unternehmen.de/732 und such nach dbBoolean.

    -----
    Gruss - Peter
    Top of the page Bottom of the page


    Seite: < 40 41 42 43 44 45 ... 46 47 48 49 50 51 52 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)