“Sendkeys“ läuft nicht unter Vista

24/06/2009 - 09:53 von Bernd | Report spam
Hallo,

bin immer noch an dem Problem, dass meine alte Klausurdatenbank, die unter
ACCESS97 erstellt wurde unter VISTA nicht mehr làuft, da der Befehl
“Sendkeys“ bei VISTA nicht mehr unterstützt wird und mit der Fehlermeldung
“Laufzeitfehler ‘70‘ aussteigt.

Da ich kein ACCESS-Programmierer bin, sondern nur eine alte Datenbank zum
Laufen bringen soll, die vor ewigen Zeiten mal einer gebaut hat, bin ich auf
etwas genauere Angaben angewiesen.

Wahrscheinlich muss man den Ersatzcode für “Sendkeys“ irgendwie anlinken
oder einbinden.

Hier ist noch mal der Quellcode, ich habe die Stelle markiert, wo das
Programm aussteigt.

==

Option Compare Database 'Verwenden der Datenbank-Sortierreihenfolge beim
Vergleich von Zeichenfolgen.

Private Sub Abbrechen_Click()
On Error GoTo Err_Abbrechen_Click

DoCmd.Close

Exit_Abbrechen_Click:
Exit Sub

Err_Abbrechen_Click:
MsgBox Error$
Resume Exit_Abbrechen_Click

End Sub

Private Sub Weiter_Click()

Dim TypNr As Long, ff1 As Form, i As Integer
Dim ff2 As Form, MatrNr As Long

'On Error GoTo Err_weiter_Click
Set ff1 = Screen.ActiveForm
MatrNr = ff1.St_MatrNr

DoCmd.Close

DoCmd.GoToControl "MatrNr"
b = 0
For n = 5 To 0 Step -1
a = 10 ^ n
x = Int((MatrNr - b) / a)
b = x * a + b
SendKeys x, True XXXXXXXXX Hier ist der Fehler XXXXXXXXXXXXXX
Next
SendKeys "{ENTER}", True

Exit_Weiter_Click:
Exit Sub

Err_weiter_Click:
MsgBox Error$
Resume Exit_Weiter_Click

End Sub



Wenn mir einer mal genauer sagen könnte wie ich das machen soll, wàre das
nicht schlecht!

Besten Dank,

Bernd
 

Lesen sie die antworten

#1 Gunter Avenius
24/06/2009 - 10:05 | Warnen spam
Hallo Bernd,

Bernd schrieb folgendes:
bin immer noch an dem Problem, dass meine alte Klausurdatenbank, die unter
ACCESS97 erstellt wurde unter VISTA nicht mehr làuft, da der Befehl
“Sendkeys“ bei VISTA nicht mehr unterstützt wird und mit der Fehlermeldung
“Laufzeitfehler ‘70‘ aussteigt.

Da ich kein ACCESS-Programmierer bin, sondern nur eine alte Datenbank zum
Laufen bringen soll, die vor ewigen Zeiten mal einer gebaut hat, bin ich auf
etwas genauere Angaben angewiesen.

Wahrscheinlich muss man den Ersatzcode für “Sendkeys“ irgendwie anlinken
oder einbinden.


...

Den Code (Senkeys Ersatz) aus dem ersten Posting in ein neues
Standardmodul kopieren.

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com

home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

Ähnliche fragen