DS kopieren und am Ende anfügen klappt nicht

[accessy]

Meine DS sind grundsätzlich schreibgeschützt.
Daher klappt das "Kopieren und am Ende anfügen" nicht über den CommandButton.

Code [Auswählen] Erweitern


Private Sub Befehl414_Click() 'DS kopieren und hinten anfügen
On Error GoTo Err_Befehl414_Click
call Offen_G
Application.EnableEvents = False
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_Befehl414_Click:
    Exit Sub
Err_Befehl414_Click:
    MsgBox Err.Description
    Resume Exit_Befehl414_Click
Application.EnableEvents = True
End Sub


Code [Auswählen] Erweitern


Sub Gesperrt_G() 'Alle Felder gesperrt
   With Form_Gewerblich
     .Sperren = False
     !Sperren.Caption = "LOCKED"
     .Firma.Locked = True
     .Adresse.Locked = True
     .PLZ.Locked = True
     .Ort.Locked = True
     .Tel.Locked = True
     .Fax.Locked = True
     .VName.Locked = True
     .NName.Locked = True
     .Mail.Locked = True
     .Handy.Locked = True
     .Bemerkung.Locked = True
     .Kombinationsfeld403.Locked = True
     .Funktion.Locked = True
     .Liste410.Visible = False
   End With
End Sub


Code [Auswählen] Erweitern


Sub Offen_G()   'Alle Felder Edit
   With Form_Gewerblich
     !Sperren.Caption = "EDIT"
     .Firma.Locked = False
     .Adresse.Locked = False
     .PLZ.Locked = False
     .Ort.Locked = False
     .Tel.Locked = False
     .Fax.Locked = False
     .VName.Locked = False
     .NName.Locked = False
     .Mail.Locked = False
     .Handy.Locked = False
     .Bemerkung.Locked = False
     .Kombinationsfeld403.Locked = False
     .Funktion.Locked = False
  End With
End Sub


Ich muss es erreichen, dass beim Klick auf den CmdButton der DS kopiert wird, dann ans Ende der DB gesprungen wird,
aber die Sperrung NICHT aktiv wird.
Das Application.EnableEvents = False/True aus dem Excel VBA funktioniert hier nicht.
Denn in Excel kann man damit das Change_Ereignis ausschalten.

Was muss ich ändern, damit das funktioniert?

Gruß Achim

[bahasu]

Hi,

1. Bist Du Dir sicher, dass die Zeile Application.EnableEvents = True jemals durchlaufen wird?

2. Hast Du schon probiert, mit

Code (vb) [Auswählen] Erweitern

Me.AllowEdits = false das Bearbeiten abzuschalten? {Dann muss nicht jedes Steuerelement einzeln gesetzt werden}

3. Ist es gewollt, dass .Liste410.Visible = False nicht wieder auf true gesetzt wird? Um so etwas zu vermeiden, ist es gut das Setzen von solchen Werten in einer sub zu regeln, der ein Parameter übergeben wurde, der true oder falsch sein kann. Dann ist ein zu setzendes Steuerelement nur einmal einzupflegen.

4. Um Events zu deaktivieren:

Code (vb) [Auswählen] Erweitern

Me.OnCurrent = "" Das deaktiviert z.B. das Ereignis "Bei Anzeigen". Mit

Code (vb) [Auswählen] Erweitern

Me.OnCurrent = "[Event Procedure]" wird es reaktiviert. Was es das, was Du gesucht hast?

Harald

[oma]

Hallo,

und schmeiß bloß die  DoCmd.DoMenuItem - Befehle raus!

Gruß Oma

[bahasu]

Hi,

und schmeiß bloß die  DoCmd.DoMenuItem - Befehle raus!

dafür kann hilfreich sein:
http://access.mvps.org/access/RunCommand/domenuitem.htm

Harald

[accessy]

Okay, ich habe es mit eurer Hilfe hinbekommen.
Vielen Dank dafür.

Aber ich verstehe nicht, warum ich die DoCmd.DoMenuItem Befehle raushauen, bzw. auswechseln soll.
Die funktionieren doch einwandfrei.

Gruß Achim

[bahasu]

Hi Achim,

Aber ich verstehe nicht, warum ich die DoCmd.DoMenuItem Befehle raushauen, bzw. auswechseln soll.

http://dbwiki.net/wiki/Access_Anf%C3%A4nger:_Die_Zehn_Gebote Punkt 9

http://www.spotlight-wissen.de/archiv/message/545998.html

http://msdn.microsoft.com/en-us/library/office/aa203634(v=office.10).aspx

Harald