Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Über Access2010 via Open Scape Web client nummern wählen.
Gehe zu Seite 1, 2  Weiter
zurück: Zeile und Spalte ermitteln weiter: VBA-Access: Excel öffnen, speichern und schließen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Sep 2013, 13:15
Rufname:

Über Access2010 via Open Scape Web client nummern wählen. - Über Access2010 via Open Scape Web client nummern wählen.

Nach oben
       Version: Office 2010

Hallo zusammen!

Kennt einer von euch das Programm Open Scape Web Client? Über dieses Tool kann ich über mein Telefon am Pc eine Telefonnummer eingeben und das Programm wählt dann direkt auf meinem IP Telefon. Ich würde gern aus einer Datenbank via Button eine Nummer wählen. Habe aber keine Ahnung wie ich das anstellen soll.

vielleicht hat ja hier jemand die zündende Idee!

Lg Miguel
SirUseless
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Sep 2013, 14:21
Rufname: Max


AW: Über Access2010 via Open Scape Web client nummern wählen - AW: Über Access2010 via Open Scape Web client nummern wählen

Nach oben
       Version: Office 2010

Hallo,

die Lösung für das Problem kann ich dir nicht sagen, jedoch einen Tipp geben.
Der Open Scape Web Client nutzt standardmäßig die Tastenkombination "Strg+F11" um eine "markierte" Nummer zu wählen.
Evtl. kannst du damit was anfangen.

Gruß

Max

P.S. Arbeitest du zufällig bei einer größeren Firma nahe München oder ist es nur Zufall, dass wir die selbe "unbekannte" Telefon-Software nutzen? Smile
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Sep 2013, 14:29
Rufname:

AW: Über Access2010 via Open Scape Web client nummern wählen - AW: Über Access2010 via Open Scape Web client nummern wählen

Nach oben
       Version: Office 2010

Hm Strg+F11 funzt bei mir nicht.

Nein in München sitzen wir nicht. xD In Köln. Aber groß sind wir auch.^^
Ist bestimmt ein zufall, es sei denn Ihr verkauft Getränke Wink.

Hab nochmal geguckt keine Ahnung warum STRG+F11 nicht geht. Hab vielleicht eine andere version. Oder ist nicht eingestellt. Hab aber auch nicht wirklich Einstellmöglichkeiten.
SirUseless
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Sep 2013, 15:01
Rufname: Max

AW: Über Access2010 via Open Scape Web client nummern wählen - AW: Über Access2010 via Open Scape Web client nummern wählen

Nach oben
       Version: Office 2010

Nein Getränke verkaufen wir nicht... dafür KFZ Teile ;)

Evtl. liegt es tatsächlich an der Version. Oder es ist einfach nicht eingestellt.
Hier auf dem Bild siehst du, wo du die Einstellungen (zumindest bei uns) ändern kannst. (siehe Anhang)

Das ist zwar kein "Button", aber ich nutze die Tastenkombination ständig zum Telefonieren und es klappt wunderbar und ich kann auf das nervige getippe verzichten.

Gruß

Max



Bild.jpg
 Beschreibung:
 Dateigröße:  50.93 KB
 Angeschaut:  265 mal

Bild.jpg


DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Sep 2013, 15:06
Rufname:


AW: Über Access2010 via Open Scape Web client nummern wählen - AW: Über Access2010 via Open Scape Web client nummern wählen

Nach oben
       Version: Office 2010

Ahhh Ok bei mir Strg+F8. Hm Und das funktioniert wenn die Nummer markiert ist... Da muss sich doch irgendwas basteln lassen. xD Ich guck mal ob ich nicht systemtechnisch irgendwie Strg+F8 Simulieren kann ob das klappt.
SirUseless
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Sep 2013, 15:19
Rufname: Max

Re: AW: Über Access2010 via Open Scape Web client nummern wä - Re: AW: Über Access2010 via Open Scape Web client nummern wä

Nach oben
       Version: Office 2010

Genau das war auch mein Gedanke.
Meine VBA Kentnisse halten sich in Grenzen, aber mit der Info kann man zumindest was Anfangen ;)
Denn wie man per VBA etwas an ein Programm sendet, dass kein Mensch kennt, kann dir vermutlich keiner Sagen... aber ein "virtuelles Strg+F8" klingt machbar!

Viel Erfolg dabei!
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Sep 2013, 15:23
Rufname:

AW: Über Access2010 via Open Scape Web client nummern wählen - AW: Über Access2010 via Open Scape Web client nummern wählen

Nach oben
       Version: Office 2010

Jetzt klappt die blöde Keysend Funktion nicht wie sie soll...
Code:
    Me.Tel.SetFocus
    SendKeys "^{F8}", True
Es klappt aber nicht... Ist an der Syntax irgendwas falsch? Oder läuft der Keypress nur innerhalb von Access? Manuelles STRG+F8 funzt allerdings wenn das Feld markiert ist.
MissPh!
Office-VBA-Programmiererin


Verfasst am:
25. Sep 2013, 15:52
Rufname:
Wohnort: NRW

AW: Über Access2010 via Open Scape Web client nummern wählen - AW: Über Access2010 via Open Scape Web client nummern wählen

Nach oben
       Version: Office 2010

Hi,

wie hast du den Code denn eingebunden, in welchem Kontext steht er, was löst ihn aus?

Ich habe mal etwas ähnliches ausprobiert und versucht, das Programm "Hardcopy" via Sendkeys anzustoßen.
Auch das klappt nicht, sondern nur per Tastatureingabe.

_________________
Gruß MissPh!
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Sep 2013, 09:11
Rufname:

AW: Über Access2010 via Open Scape Web client nummern wählen - AW: Über Access2010 via Open Scape Web client nummern wählen

Nach oben
       Version: Office 2010

Ganz Easy so:
Code:
Private Sub Befehl47_Click()
    Me.Tel.SetFocus
    SendKeys "^{F8}", True
End Sub
Genau, via Tastatureingabe manuell funktioniert das mit STRG+F8 aber so wie hier jetzt irgendwie nicht. Ich habe das Gefühl VBA führt diese Aktion nur in der aktuellen Anwendung aus und nicht Global.
mac_k
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Sep 2013, 11:13
Rufname:

AW: Über Access2010 via Open Scape Web client nummern wählen - AW: Über Access2010 via Open Scape Web client nummern wählen

Nach oben
       Version: Office 2010

Hi,

also das mit SendKeys ist so eine Sache... mal geht es mal nicht Smile
In meinen Test, übrigens mit HardCopy, hat HardCopy auf SendKeys "^{F8}", True ohne Probleme reagiert.
Ich habe HardCopy als Testanwendung verwendet, da ich kein Open Scape installiert habe (und so unbekannt ist die Software auch nicht ;)).

Wobei man sagen muss, das STRG + F8 eine recht schlechte Wahl für Access ist, da diese Tastenkombination innerhalb von Access mit einer eigenen Funktion versehen ist (Feldinhalt markieren, Datensatz markieren, etc...)

Was evtl sein könnte ist, das die Open Scape Desktop Integration nicht auf STRG+F8 reagiert hatte, da du keine Telefonnummer markiert hattest (sondern nur das Feld).
Versuche es mal mit folgendem Code:
Code:
    Me.Tel.SetFocus
    Me.Tel.SelStart = 0
    Me.Tel.SelLength = Len(Me.Tel)
    SendKeys "^{F8}", True
Sollte das nicht Funktionieren, so versuche mal foglenden Code:

1. In einem bestehenden oder neuen Modul folgenden Code einfügen
Code:
Option Compare Database
Option Explicit

Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long

Public Function fnc_STRG_F8()
    'Focus auf den Desktop setzen
    Call SetFocus(GetDesktopWindow)
    SendKeys "^{F8}"
End Function
Den Code für deinen Button wie folgt Ändern:
Code:
Private Sub Befehl47_Click()
    Me.Tel.SetFocus
    Me.Tel.SelStart = 0
    Me.Tel.SelLength = Len(Me.Tel)
    Call fnc_STRG_F8
End Sub
Die Funktion fnc_STRG_F8 setzt zu erst den Focus auf den Desktop um per SendKeys die Tasten direkt an Windows zu senden.

Hoffe das Hilft dir weiter.

P.S.: Bei mir haben beide Varianten, in Verbindung mit HardCopy, funktioniert
Kann nun natürlich gut sein das diese mit Open Scape nicht funktionieren. Aber Versuchen schadet ja nicht.

Gruß
mac_k
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Sep 2013, 11:24
Rufname:

AW: Über Access2010 via Open Scape Web client nummern wählen - AW: Über Access2010 via Open Scape Web client nummern wählen

Nach oben
       Version: Office 2010

Hi! Habe grade beide deiner Varianten ausprobiert. Leider funktioniert keine davon. Es kommt aber auch keine Fehlermeldung oder sonstiges. Ich ändere mal die Tastenbelegung bei Openscape und probiere eine andere Tastaturkombi aus.

Nachtrag: Auch das Ändern des Hotkeys in Openscape funktioniert leider nicht. physisch natürlich schon, also wenn das Feld markiert ist reicht manueller druck dann wählt das telefon. Aber mit der Funktion geht es leider nicht. Warum auch immer =/ verdammt.
MissPh!
Office-VBA-Programmiererin


Verfasst am:
26. Sep 2013, 13:34
Rufname:
Wohnort: NRW

AW: Über Access2010 via Open Scape Web client nummern wählen - AW: Über Access2010 via Open Scape Web client nummern wählen

Nach oben
       Version: Office 2010

Hi,
Zitat:
In meinen Test, übrigens mit HardCopy, hat HardCopy auf SendKeys "^{F8}", True ohne Probleme reagiert.
Ja, das klappt tatsächlich, nicht aber mit der Druck-Taste, so wie ich es probiert hatte.
_________________
Gruß MissPh!
mac_k
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Sep 2013, 13:38
Rufname:

AW: Über Access2010 via Open Scape Web client nummern wählen - AW: Über Access2010 via Open Scape Web client nummern wählen

Nach oben
       Version: Office 2010

Hm...

Schade... atm fällt mir aber nichts weiter ein...
Falls doch, melde ich mich hier nochmal..


@MissPH!
Das liegt daran das SendKeys die Druck-Taste an keine andere Anwendung weitergeben kann.

Gruß
mac_k
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Sep 2013, 14:22
Rufname:

AW: Über Access2010 via Open Scape Web client nummern wählen - AW: Über Access2010 via Open Scape Web client nummern wählen

Nach oben
       Version: Office 2010

DonMiguel am 26. Sep 2013 um 12:42 hat folgendes geschrieben:
Okay trotzdem erstmal Danke euch allen für die Hilfe. Hoffe das euch noch irgendwas einfällt.

Ich habe jetzt einmal ausprobiert ob ich die geschichte nicht noch anders lösen kann. Und zwar so:
Code:
    Me.Tel.SetFocus
    Me.Tel.SelStart = 0
    Me.Tel.SelLength = Len(Me.Tel)
    RunCommand acCmdCopy
    Shell ("C:\Program Files\Siemens\OpenScape WebClient\OSCwebDI.exe")
    Do Until EMaster = 1
        AppActivate "OpenScape", True
        If err.Number = "5" Then
            EMaster = 0
          Else
            EMaster = 1
        End If
    Loop
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "^{v}", True
Allerdings macht mir hier scheinbar SendKeys wieder einen Strich durch die Rechnung. Ich weiß nicht, ob es wirklich so funktioniert wie ich das programmiert habe. Openscape öffnet sich jedenfalls und es sieht so aus als wäre es im Vordergrund. Allerdings und jetzt komm ich wieder zu Keysend. scheinbar laufen die Tasten ins Leere. Sonst sollte im Openscape fenster wenigstens die Telefonnummer drin stehen.

Aber vielleicht kann mir hier noch jemand was zur Syntax oder Verbesserung vorschlagen.
mac_k
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Okt 2013, 07:43
Rufname:


AW: Über Access2010 via Open Scape Web client nummern wählen - AW: Über Access2010 via Open Scape Web client nummern wählen

Nach oben
       Version: Office 2010

Hey,

ich habe deinen Code mal mit Notepad getestet.
Das Ergebnis war, das der Inhalt der Zwischenablage nicht in das neue Dokument eingefügt wurde.

Ich habe dann der Code wie folgt abgeändert und schon hat es geklappt:
(Habe wieder deine OSCwebDI.exe in die Shell-Anweisung eingefügt)
Code:
    Dim iAppID As Long
    Dim EMaster As Integer
   
    Me.Tel.SetFocus
    Me.Tel.SelStart = 0
    Me.Tel.SelLength = Len(Me.Tel)
    RunCommand acCmdCopy
    iAppID = Shell("C:\Program Files\Siemens\OpenScape WebClient\OSCwebDI.exe", vbNormalFocus)
    'iAppID = Shell("C:\windows\Notepad.exe", vbNormalFocus)
    Do Until EMaster = 1
        AppActivate iAppID, True
        If err.Number = "5" Then
            EMaster = 0
          Else
            EMaster = 1
        End If
    Loop
    AppActivate iAppID
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "^{v}", True

Gruß
mac_k
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Adressbuch DB - Anschrift, Nummern usw. mehrere Einträge 1 Muckel 300 10. Mai 2012, 12:45
mgast Adressbuch DB - Anschrift, Nummern usw. mehrere Einträge
Keine neuen Beiträge Access Tabellen & Abfragen: Über- und Unterpositionen 3 magic_al 286 06. Mai 2011, 12:56
MissPh! Über- und Unterpositionen
Keine neuen Beiträge Access Tabellen & Abfragen: Variableninhalt via SQL an Abfrage übergeben 6 ch41n54w 408 23. Feb 2011, 12:44
Gast Variableninhalt via SQL an Abfrage übergeben
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: Aus mehreren Datensätzen das höchste Datum wählen 2 Pumpeline 925 23. Sep 2010, 08:06
Pumpeline Abfrage: Aus mehreren Datensätzen das höchste Datum wählen
Keine neuen Beiträge Access Tabellen & Abfragen: Nur Datensätze mit aktuellstem Datum wählen 6 tar 909 10. Sep 2010, 14:51
tar Nur Datensätze mit aktuellstem Datum wählen
Keine neuen Beiträge Access Tabellen & Abfragen: Access-Abfrage - Inhalte via wenn-Funktion umbenennen 2 Orti81 901 03. Aug 2010, 15:11
Orti81 Access-Abfrage - Inhalte via wenn-Funktion umbenennen
Keine neuen Beiträge Access Tabellen & Abfragen: Über Abfrage Werte zählen 12 Gast 288 04. Feb 2010, 18:59
Gast Über Abfrage Werte zählen
Keine neuen Beiträge Access Tabellen & Abfragen: Formatieren eine PivotCharts via VBA 0 TFree 189 16. Okt 2009, 12:48
TFree Formatieren eine PivotCharts via VBA
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Problem im Access mit dem öffnen von Pfaden via VB 1 Chillah 423 16. Sep 2008, 21:15
Willi Wipp Problem im Access mit dem öffnen von Pfaden via VB
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: problem mit ungewisser anzahl von nummern in spalte 1 daniel_24_v2 303 11. Aug 2008, 16:34
KlausMz problem mit ungewisser anzahl von nummern in spalte
Keine neuen Beiträge Access Tabellen & Abfragen: Einen Wert wählen, mehrere füllen 0 Cornholio 293 07. Jun 2008, 16:14
Cornholio Einen Wert wählen, mehrere füllen
Keine neuen Beiträge Access Tabellen & Abfragen: Alle Nummern in Tabelle enthalten? 1 mengelke 393 10. Apr 2008, 12:04
mengelke Alle Nummern in Tabelle enthalten?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver