Meine DS sind grundsätzlich schreibgeschützt.
Daher klappt das "Kopieren und am Ende anfügen" nicht über den CommandButton.
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
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
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
Hi,
1. Bist Du Dir sicher, dass die Zeile Application.EnableEvents = True jemals durchlaufen wird?
2. Hast Du schon probiert, mit 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: Me.OnCurrent = "" Das deaktiviert z.B. das Ereignis "Bei Anzeigen". Mit Me.OnCurrent = "[Event Procedure]" wird es reaktiviert. Was es das, was Du gesucht hast?
Harald
Hallo,
und schmeiß bloß die DoCmd.DoMenuItem - Befehle raus!
Gruß Oma
Hi,
Zitat von: oma am September 16, 2013, 23:52:35
und schmeiß bloß die DoCmd.DoMenuItem - Befehle raus!
dafür kann hilfreich sein:
http://access.mvps.org/access/RunCommand/domenuitem.htm
Harald
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
Hi Achim,
Zitat von: accessy am September 17, 2013, 08:47:07
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