Brauche dringend Hilfe
Karl Donaubauer
Gesendet: 07.02.13 18:20
Betreff: RE: Abfragewert an Batch übergeben



Elite Veteran

Beiträge: 849
50010010010025
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
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Top of the page Bottom of the page