Programm mit Parametern aus Access Tabelle Starten?
Hallo,
ich habe ein Formular aus einer Tabelle erstellt das mir Ip Adressen anzeigt.
Mein Problem ist das zuweisen der Variablen ... da jede sich auch durch Filter verändern kann ,weiß ich nciht wie ich den Button auf die jeweilige Zeile wo er sich befindet verweisen kann... die Variablen IP und Mac müssen ausgelesen werden und dann als parameter an wake.exe übergeben werden.
wake.exe 000000000000 123.123.123.12 255.255.255.0 7
wake.exe [Mac] [IP] 255.255.255.0 7
Die beiden letzten parameter sind immer gleich.
Code:
Private Sub Wake_Click()
On Error GoTo Err_Wake_Click
Dim stAppName As String
stAppName = "C:\Wake.exe"
Call Shell(stAppName, 1)
Exit_Wake_Click:
Exit Sub
Err_Wake_Click:
MsgBox Err.Description
Resume Exit_Wake_Click
End Sub
Hat jemand eine idee wie man das in VBS @ Access verwirklichen kann?
ich habe ein Formular aus einer Tabelle erstellt das mir Ip Adressen anzeigt.
Mein Problem ist das zuweisen der Variablen ... da jede sich auch durch Filter verändern kann ,weiß ich nciht wie ich den Button auf die jeweilige Zeile wo er sich befindet verweisen kann... die Variablen IP und Mac müssen ausgelesen werden und dann als parameter an wake.exe übergeben werden.
wake.exe 000000000000 123.123.123.12 255.255.255.0 7
wake.exe [Mac] [IP] 255.255.255.0 7
Die beiden letzten parameter sind immer gleich.
Code:
Private Sub Wake_Click()
On Error GoTo Err_Wake_Click
Dim stAppName As String
stAppName = "C:\Wake.exe"
Call Shell(stAppName, 1)
Exit_Wake_Click:
Exit Sub
Err_Wake_Click:
MsgBox Err.Description
Resume Exit_Wake_Click
End Sub
Hat jemand eine idee wie man das in VBS @ Access verwirklichen kann?
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 138226
Url: https://administrator.de/contentid/138226
Ausgedruckt am: 05.11.2024 um 11:11 Uhr
5 Kommentare
Neuester Kommentar
Hallo,
benutze dafür das Schlüsselwort "Me".
z.B.
Gruß René
benutze dafür das Schlüsselwort "Me".
z.B.
Private Sub Wake_Click()
On Error GoTo Err_Wake_Click
Dim stAppName,strMAC,strIP As String
strMAC = Me.SpaltennameMitMacAdresse 'Spaltenname in der die Mac-Adresse steht
strIP = Me.SpaltennameMitIpAdresse 'Spaltenname in der die IP-Adresse steht
stAppName = "C:\Wake.exe" & " " & strMac & " " & strIP & "WasSonstNochAllesBenötigtWird"
Call Shell(stAppName, 1)
Exit_Wake_Click:
Exit Sub
Err_Wake_Click:
MsgBox Err.Description
Resume Exit_Wake_Click
End Sub
Gruß René
Hallo,
wie man eine Befehlsschaltfläche im Detailbereich ausblendet, fällt mir spontan nicht ein, Du könntest den Code aber so erweitern:
Gruß René
wie man eine Befehlsschaltfläche im Detailbereich ausblendet, fällt mir spontan nicht ein, Du könntest den Code aber so erweitern:
Private Sub Wake_Click()
On Error GoTo Err_Wake_Click
Dim stAppName,strMAC,strIP As String
If IsNull(Me.SpaltennameMitMacAdresse) Or IsNull(Me.SpaltennameMitIpAdresse) Then
MsgBox "Ohne MAC-/IP-Adresse nicht möglich"
Exit Sub
Else
strMAC = Me.SpaltennameMitMacAdresse 'Spaltenname in der die Mac-Adresse steht
strIP = Me.SpaltennameMitIpAdresse 'Spaltenname in der die IP-Adresse steht
End If
stAppName = "C:\Wake.exe" & " " & strMac & " " & strIP & "WasSonstNochAllesBenötigtWird"
Call Shell(stAppName, 1)
Exit_Wake_Click:
Exit Sub
Err_Wake_Click:
MsgBox Err.Description
Resume Exit_Wake_Click
End Sub
Gruß René