Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Button im EndlosFormular Pro Zeile Automatisch betätigen

Mitglied: Cyberkey

Cyberkey (Level 1) - Jetzt verbinden

30.03.2010, aktualisiert 18.10.2012, 4121 Aufrufe, 1 Kommentar

Wie das Thema schon lautet geht es um eine Code Optimierung =) bzw. Automatisierung.

Hallo,

01.
Private Sub Ping_Click()
02.
Dim strTarget, strPingResults, objShell, objExec
03.
On Error Resume Next
04.
strTarget = Me.IPall 'IP address or hostname
05.
Set objShell = CreateObject("WScript.Shell")
06.
Set objExec = objShell.Exec("ping -n 1 -w 10 " & strTarget)
07.
strPingResults = LCase(objExec.StdOut.ReadAll)
08.
If InStr(strPingResults, "Antwort von") > 0 Then
09.
    'MsgBox ("Geht")
10.
    DoCmd.SetWarnings False
11.
    DoCmd.RunSQL "UPDATE Ip_adressen SET Status=1 WHERE IPall='" & strTarget & "'"
12.
    Me.Refresh
13.
Else
14.
    'MsgBox ("Geht nicht")
15.
    DoCmd.SetWarnings False
16.
    DoCmd.RunSQL "UPDATE Ip_adressen SET Status=0 WHERE IPall='" & strTarget & "'"
17.
    Me.Refresh
18.
End If
19.

20.
End Sub

Dieser Code steht jetzt in Jeder Zeile eines Endlosformulares... als Button "Ping" mit einem Statusfeld. Kann man alle Knöpfe aus dem Formularkopf betätigen oder... das Script leicht optimierne damit alle Felder im Endlosformular... einen Status bekommen?


Habe sowas schonmal in Batch gesehen... Irgendwie .. eine Schleife : "For each item in ...." Do....

01.
@zahlen=("Eins", "Zwei", "Drei", "Vier");
02.
foreach $i (@zahlen) {
03.
	print "$i\n";
04.
}
[Leider Pearl] nicht VBA

[EDIT]
01.
Private Sub Ping_akt_Click()
02.
Dim lstElement
03.
For Each lstElement In Me.IP_Adressen.IP_ID
04.
   MsgBox " & lstElement & "
05.
Next
06.
End Sub

Für Hilfe und Anregungen bin ich sehr Dankbar.
Gruß Cyberkey
Ähnliche Inhalte
Outlook & Mail

Outlook 2010 "Automatisch Antworten" Button entfernen?

gelöst Frage von mb1811Outlook & Mail3 Kommentare

Hallo! Gibt es per Registry eine Möglichkeit im Outlook 2010 den Button "Automatische Antworten" zu entfernen? Wir nutzen ein ...

Windows 7

Standby-Energiespar Button und Herunterfahren Button

Frage von hgshgsWindows 73 Kommentare

Hallo ihr Administratoren, ich bin neu hier und sage einfach mal hallo. :-) Folgendes Problem: Ich würde gerne unter ...

Microsoft Office

EXEL Button +1

gelöst Frage von maxmyhMicrosoft Office9 Kommentare

Hallo Leute. Ich muss für meine Bachelorarbeit ein Verkehrsvideo auswerten und dafür verschiedene Sachen zählen. Ich möchte das mittels ...

Visual Studio

Ribbon-Button deaktivieren

gelöst Frage von MarcoBornVisual Studio4 Kommentare

Hallo Forum, ich habe meine erste RibbonBar in VB.NET erzeugt. Von meinem COM-Addin aus greife ich auf die Ribbons ...

Neue Wissensbeiträge
Internet
EU-Urheberrechtsreform: Zusammenfassung
Information von Frank vor 1 TagInternet1 Kommentar

Auf golem.de gibt es eine Analyse von Friedhelm Greis, der das Thema EU-Urheberrechtsreform gut und strukturiert zusammenfasst. Zwar haben ...

Microsoft Office

Office365 Schwachstellen bei Sicherheit und Datenschutz

Information von Penny.Cilin vor 2 TagenMicrosoft Office7 Kommentare

Auf Heise+ gibt es einen Artikel bzgl. Office365 Schwachstellen. Das ist noch ein Grund mehr seine Daten nicht in ...

Sicherheit
Schwachstellen in VPN Clients
Tipp von transocean vor 4 TagenSicherheit2 Kommentare

Moin, es gibt Sicherheitslücken bei VPN Clients namhafter Hersteller, wie man hier lesen kann. Gruß Uwe

Sicherheit

Wikileaks-Gründer Julian Assange wurde festgenommen

Information von Frank vor 7 TagenSicherheit3 Kommentare

Wikileaks-Gründer Julian Assange wurde heute in London festgenommen. Die Botschaft Ecuadors, in der er seit sieben Jahren lebte, hat ...

Heiß diskutierte Inhalte
Tipps & Tricks
Verdammt voll erwischt
Frage von AlchimedesTipps & Tricks23 Kommentare

Folgende Mail habe ich auf meinem Freenet Account erhalten: Nun folgendes Problem: 1) Ich besuche Porno Seiten yep hat ...

Drucker und Scanner
Xerox 7328 muss jeden Tag neu installert werden
Frage von PN-SchrauberDrucker und Scanner20 Kommentare

hallo, ich habe in Problem mit einem unserer Drucker. Vorweg, die meisten unserer Netzwerkdrucker laufen über einen Druckserver, dieser ...

HTML
Google maps
Frage von jensgebkenHTML20 Kommentare

Hallo Gemeinschaft, hab mal ne Frage zu Maps - habe es hinbekommen, dass ich einen iframe link erstellen kann ...

Switche und Hubs
PC Verursach Probleme im Netzwerk
gelöst Frage von spoboeSwitche und Hubs16 Kommentare

Hallo zusammen, folgene Situation macht mich inzwischen ratlos: In unserem Betrieb ist ein Rechner über die Hausverkabelung an einem ...