Office: (Office 2010) Laufzeitfehler 3270

ChrisKal · 30. März 2016

Hallo NG,

ich verwende von Donkarl das Tool um die Shifttaste zu sperren. Jetzt bekomme ich die Fehlermeldung Lauzeitfehler 3270.

Code:

Sub EnableShift(blnFlag As Boolean)

Dim db As DAO.Database
Dim prp As DAO.Property

Set db = CurrentDb
'Property mit übergebenem Parameter belegen
db.Properties!AllowBypassKey = blnFlag

DoCmd.ShowToolbar "Ribbon", acToolbarNo

Exit_EnableShift:
Set prp = Nothing
Exit Sub

Error_EnableShift:

'Property erzeugen, falls noch nicht vorhanden
If Err = 3270 Then
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, blnFlag)
db.Properties.Append prp
Resume Next
Else
MsgBox "Ausnahme Nr. " & Str(Err.Number) & " " & Err.Description
Resume Exit_EnableShift
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Programm bricht immer ab bei:
db.Properties!AllowBypassKey = blnFlag

Beim Laden rufe ich mit:
EnableShift (False)

die Prozedur auf.

Ich finde den Fehler einfach nicht? Kann es mit den Verweisen zusammenhängen. Ich habe es schon mit einer anderen Datenbank verglichen wo es funktioniert.

Danke für Eure Mühe!

Christian

:)

Nouba · 1. April 2016

Du musst auch die Fehlerbehandlung einklinken: On Error Goto Error_EnableShift

avogt_at_home · 1. April 2016

Hallo,
sollte imo auch so lauten:
Code:

db.Properties(AllowBypassKey) = blnFlag
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sieh dazu auch folgenden Link:
https://support.office.com/de-de/art...ad=DE&fromAR=1

Gruß Andreas

jmc · 7. Januar 2021

von Nouba

Du musst auch die Fehlerbehandlung einklinken: On Error Goto Error_EnableShift
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder: abschreiben, aber richtig !
zur Erklärung: die Eigenschaft/Property "AllowByPassKey" ist nicht standardmässig vorhanden, deshalb muss diese bei Fehlen (was sich eben im Laufzeitfehler manifestiert) zuerst eröffnet werden.
Dies geschieht in der Fehlerbehandlung, was daselbst eigentlich schön beschrieben ist ... (wer lesen kann)

ChrisKal · 3. April 2016

Danke! Das war es!

Interessant ist, dass es bei einer anderen Datenbank ohne "On Error Goto Error_EnableShift" funktioniert obwohl es nicht möglich ist.
Ich habe mir dieses Modul importiert! Das mit dem abschreiben ist so eine Sache! Es geht auch anders...

Christian

MaggieMay · 3. April 2016

Hallo,

sobald die Eigenschaft einmal eingestellt wurde, ist sie ja vorhanden. Das hast du vielleicht in der anderen DB irgendwann einmal manuell gemacht. Auch wenn du den Haken anschließend wieder entfernt hast, bleibt die Eigenschaft erhalten.

Office: (Office 2010) Laufzeitfehler 3270

Laufzeitfehler 3270

Laufzeitfehler 3270

Laufzeitfehler 3270

Laufzeitfehler 3270 - Similar Threads - Laufzeitfehler 3270

VBA:Laufzeitfehler beim Einlesen in Variable

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

Access Laufzeitfehler 3048

Laufzeitfehler 9 VBA

VBA Laufzeitfehler 9

[VBA] .Documents.Open -> Laufzeitfehler 91

Laufzeitfehler 3270