Office: Laufzeitfehler 2046

Servusla,

der hinter einer Befehlschaltfläche stehende Code wird durch die obige Fehlermeldung seit heute nicht mehr ausgeführt. Gestern ging das ganze noch ohne Probs.

Private Sub Befehl248_Click()
'vorerst ohne Fehlerbehandlung
Me.ufrm_verwaltername.SetFocus 'Focus ins Ufrm
DoCmd.GoToControl "Text4" 'zum Anschriftenfeld, das in Text4 zusammengesetzt wird
'Version 1 das Ganze in die Zwischenablage mit domenu...
'Application.DoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, , acMenuVer70
'oder Version2 mit runCommand
DoCmd.RunCommand acCmdCopy 'ab in die Zwischenablage
MsgBox "Verwalteradresse wurde in Zwischenablage kopiert"
Me.UK_Nr.SetFocus 'Focus wieder zurück ins H_Form
End Sub

Kompilieren bringt keine Fehlermeldung.

Das Eigentümliche ist daran ist, dass dieser Code (RunCommandVariante) auf einem anderen PC ohne Probs läuft. Die Verweise sind auf beiden PC'S gleich gesetzt. (Beide WINNT4.0, ACC 97)

Kann mir jemand erklären wie ich diesen Laufzeitfehler zum Schweigen bringe oder wie es besser zum Programmieren ginge.

cu hermi

:)

 

Hi hermi,

es wäre schön, wenn Du noch mitteilen könntest, welche Beschreibung der Fehler 2046 hat und an welcher Zeile der Code hängenbleibt.

 

Die Fehlermeldung:
LFZ 2046 Der Befehl oder die Aktion Kopieren steht momentan nicht zur Verfügung.
Sie arbeiten möglicherweiser mit einer schreibgeschützten oder einer unkonvertierten Datenbank..... der Objekttyp ist momentan nicht markiert oder Bestandteil der aktiven Ansicht.....

Stehen bleibt das ganze bei DoCmd.RunCommand acCmdCopy

cu hermi

 

Hallo,

arbeitest Du mit einem Popup Formular? Kannst diese Eigenschaft mal versuchsweise umstellen.

 

servusla,

das ist nicht in einem Popup, sondern in einem Register.

Wie schon eingangs geschrieben, auf einem 2. PC klappert's tadellos, nur auf meinem plötzlich nicht mehr.

hermi

 

Nur mal 'ne möglicherweise blöde Frage, bevor wir uns alle verrennen:

Hast Du einen Haltepunkt auf der Zeile, dann F8 und der Fehler kommt?

 

nein, kein Haltepunkt vorhanden,

der LFZ kommt sowohl beim Klick auf die Schaltfläche als auch bei F8.

 

Hier ist noch eine Idee. Code:

In einem neuen noch nicht gesopeicherten Datensatz befindest Du Dich wohl nicht - oder? Vielleicht wäre es auch interessant, den Zweck der Übung zu erfahren.

 

Grundvoraussetzung für das Funktionieren des Befehls ist, daß im aktiven Fenster ein Text markiert ist, unabhängig davon, ob der Datensatz abgespeichert ist oder nicht.

Um dies zu überprüfen kannst Du einfach mal vor der Copy-Befehlszeile ein Exit Sub setzen, dann siehst Du, ob dies der Fall ist.

 

\@ Nouba
@ Loser


Danke euch beiden für die Hilfe.
Jonny hat mir den entscheidenden Anstoss gegeben. Der Inhalt des Textfeldes Text4 war noch nicht markiert. Ich habe den Ursprungscode ergänzt und das ganze läuft nun ohne Fehler. Möglicherweise gibt es elegantere Lösungen. Ich bin für jede Anregung offen.

Hier der neue Code für die, die es interessiert:

Private Sub Befehl248_Click()
'Focus ins U-Form
Me.ufrm_verwaltername.SetFocus

'Focus weiter in Text4
[ufrm_verwaltername]![Text4].SetFocus

'Text4 markieren
[ufrm_verwaltername]![Text4].SelStart = 0
[ufrm_verwaltername]![Text4].SelLength = Len("" & [ufrm_verwaltername]![Text4])

'ab in die Zwischenablage
DoCmd.RunCommand acCmdCopy
MsgBox "Verwalteradresse wurde in Zwischenablage kopiert"

'Focus an den Ursprungsort zurück
Me.UK_Nr.SetFocus
End Sub

@ Nouba
Zweck der Übung war verschiedene Datenfeldinhalte eines U-Forms in einem ungebundenen Feld zusammenzusetzen und diesen Inhalt in die Zwischenablage zu kopieren.

Danke nochmals für die Hilfe bis demnächst in diesem Forum

hermi