cyberkey
Goto Top

Programm mit Parametern aus Access Tabelle Starten?

Hallo,

ich habe ein Formular aus einer Tabelle erstellt das mir Ip Adressen anzeigt.
3b983be49b0e6af78541d13d7a5d38cf

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?

Content-ID: 138226

Url: https://administrator.de/contentid/138226

Ausgedruckt am: 26.11.2024 um 14:11 Uhr

27234
27234 15.03.2010 um 16:09:10 Uhr
Goto Top
Hallo,

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é
Cyberkey
Cyberkey 15.03.2010 um 17:03:56 Uhr
Goto Top
Aus zeitlichen Gründen konnte ich es nochnicht prüfen ob es bei mir so funktioniert.
Aber der Code sieht gut aus...

Danke
Cyberkey
Cyberkey 16.03.2010 um 08:42:02 Uhr
Goto Top
gibt es noch einen kleinen Trick um bei Leeren "IP und Mac Feldern" das Element "Wake" ausblenden zulassen?
ev. Then / Else ??
27234
27234 16.03.2010 um 10:55:50 Uhr
Goto Top
Hallo,

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é
Cyberkey
Cyberkey 16.03.2010 um 11:52:59 Uhr
Goto Top
Danke für deine Bemühungen !

Die Lösung ist Natürlich auch ganz akzeptabel.

Wenn man die "wake" schaltfläche von anfang an als Visible=False deklariert.
Und dann


Private Sub Aktualisieren_Click()

 If IsNull(Me.[MAC - Adresse]) Or IsNull(Me.[IP Adresse]) Then GoTo JA Else GoTo Nein
    
JA:
GoTo beenden

Nein:
    Me!Wake.Visible = True
    End If
    
beenden:
End Sub


aber so gehts nicht... das muss irgendwie anders gehn...