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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Access 2007 Serielle Schnittstelle COMM Control Ha...
  • rock_d01.03.13 09:46
       └ RE: Access 2007 Serielle Schnittstelle COMM Cont... jojogar05.03.13 18:23
  • Zeit-Differenz mit Datediff
  • BetzMartin22.02.13 14:02
       └ RE: Zeit-Differenz mit Datediff Axelander26.02.13 08:57
       └ RE: Zeit-Differenz mit Datediff PeterDoering27.02.13 12:50
          └ RE: Zeit-Differenz mit Datediff BetzMartin01.03.13 15:37
  • Umstellung Access 2003 auf 2010
  • Schröder28.02.13 09:04
       └ RE: Umstellung Access 2003 auf 2010 Micha_DU28.02.13 09:26
       └ RE: Umstellung Access 2003 auf 2010 PeterDoering28.02.13 09:43
  • Word SaveAs bringt Dialog statt zu speichern
  • Axelander22.02.13 16:19
  • Unverständliche Fehlfunktion
  • GeorgH22.11.12 19:04
       └ RE: Unverständliche Fehlfunktion Karl Donaubauer28.11.12 18:50
          └ RE: Unverständliche Fehlfunktion GeorgH21.02.13 11:00
  • Datenbank für Konfigurationsvielfalt
  • Pakman21.02.13 09:14
  • Fremdschlüssel in Access
  • jojogar18.02.13 16:10
  • DB mit mit vorher ausgewählter Sicherheittsdatei ö...
  • Ruediger.Albrecht31.01.13 13:50
       └ RE: DB mit mit vorher ausgewählter Sicherheittsd... Karl Donaubauer31.01.13 14:06
          └ RE: DB mit mit vorher ausgewählter Sicherheitt... Ruediger.Albrecht12.02.13 23:10
  • Formate erzeigen
  • sunshine7767710.02.13 19:44
       └ RE: Formate erzeigen PeterDoering11.02.13 01:44
          └ RE: Formate erzeigen sunshine7767711.02.13 21:12
  • Access Stammtisch München am 14.02.2013 (Do)
  • StefanWirrer08.02.13 09:12
  • Brauche dringend Hilfe
  • hjboehmer07.02.13 14:16
       └ Abfragewert an Batch übergeben (was: Brauche dri... Karl Donaubauer07.02.13 15:50
          └ RE: Abfragewert an Batch übergeben (was: Brauc... hjboehmer07.02.13 17:08
             └ RE: Abfragewert an Batch übergeben Karl Donaubauer07.02.13 18:20
  • Access 2010 Probleme mit Berichten (SNP und Ausdru...
  • bibi13507.02.13 10:20
       └ RE: Access 2010 Probleme mit Berichten (SNP und ... Karl Donaubauer07.02.13 11:09
  • Zufallsdatensatz nur einmal ausgeben
  • BetzMartin05.02.13 20:36
       └ RE: Zufallsdatensatz nur einmal ausgeben Karl Donaubauer06.02.13 18:59
       └ RE: Zufallsdatensatz nur einmal ausgeben PeterDoering06.02.13 23:14
  • DoCmd.openReport Befehl in ART2010 bricht ab
  • RichardHoetger31.01.13 08:16
       └ RE: DoCmd.openReport Befehl in ART2010 bricht ab PeterDoering02.02.13 17:35
          └ RE: DoCmd.openReport Befehl in ART2010 bricht ab RichardHoetger05.02.13 11:09
             └ RE: DoCmd.openReport Befehl in ART2010 brich... PeterDoering06.02.13 16:23
  • Wieder NotInList bei Verknüften Tabellen
  • @Julia06.02.13 13:16
    Karl Donaubauer
    Gesendet: 07.02.13 18:20
    Betreff: RE: Abfragewert an Batch übergeben



    Elite Veteran

    Beiträge: 742
    50010010025
    Ort: Wien
    Hallo, hj!

    hjboehmer - 07.02.13
    ...
    Auf dem Formular habe ich einen Button angebracht und folgendes Ereignis hinterlegt:
    ...
    strAlarm = Me.AText

    Shell ("D:\Uebergabe.bat" &" "& strAlarm)
    ...
    Die Batch Datei enthält folgendes:

    echo on
    echo "%1" >D:\Alarm.txt
    exit

    Falls das die ganze Funktionalität sein sollte, kannst du die Batch-Datei einsparen und von VBA aus direkt in die Ziel-Textdatei schreiben:

    Open "D:\Alarm.txt" For Output As #1
    Print #1, strAlarm
    Close #1

    Falls in der Realität hinter der Batch mehr (Text, Aufrufe etc.) steckt, dann kann man sie z.B. kopieren, damit der Originaltext mit "%1" erhalten bleibt, in der Kopie den Text ersetzen und sie ausführen, ca. so:

    Dim strFile As String, strText As String
    Dim intFile As Integer

    FileCopy "D:\Uebergabe.bat", "D:\UebergabeKopie.bat"

    strFile = "D:\UebergabeKopie.bat"
    intFile = FreeFile

    Open strFile For Binary As intFile
    strText = Space(FileLen(strFile))

    Get intFile, , strText

    strText = Replace(strText, "%1", strAlarm)

    Put intFile, , strText

    Close intFile

    Shell (strFile)

    -----
    Servus
    Karl
    *********
    Internationale Access-Konferenz: http://AccessDevCon.com
    Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
    Top of the page Bottom of the page


    Seite: < 48 49 50 51 52 53 ... 54 55 56 57 58 59 60 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)