Elite Veteran
Beiträge: 848
  
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
*********
https://www.donkarl.com/devcon Access-Online-Konferenz 18.+19.4.
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek |
