Systemmeldung unterbinden

27/08/2008 - 13:51 von Christian Fette | Report spam
Hi,

kann ich eigentlich die Systemmeldung
"Sie haben eine umfangreiche Datenmenge in die Zwischenablage kopiert..."
unterbinden, die erscheint, wenn ich mit

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append

einen Datensatz kopieren und das Formular beende?

Gruß
Chr.
Das Portal für den Segler in Holland:
www.segler-in-holland.de
www.segler-in-holland.de/forum
 

Lesen sie die antworten

#1 Henry Habermacher
27/08/2008 - 14:10 | Warnen spam
Hallo Christian

Christian Fette wrote:

"Sie haben eine umfangreiche Datenmenge in die Zwischenablage kopiert..."
unterbinden, die erscheint, wenn ich mit

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append

einen Datensatz kopieren und das Formular beende?



Nein, das wüsste ich nicht. Ich frage mich aber, wieso Du das so umstàndlich
über die Zwischenablage machst. Leg' doch einfach ein REcordset an und füge
den Datensatz hinzu oder führ ein SQL Statement aus, das das macht. Da Du
das Formular sowieso verlassen willst, musst Du da ja nicht mal mehr einen
Requery machen. Das ganze geht auch generisch, ohne die Felder zu kennen
(bis auf allfàllige eindeutige Schlüssel, Primàrschlüssel und Autowert
Felder), indem Du einfach das Form.Recordset Feld um Feld in das neue
Recordset übertràgst, so in der Art (ungetestet):

Dim rs as REcordset
dim fld as Field
set rs = Me.REcordset
rs.addnew
for each fld in rs.fields
If fld.Name <> "Primàrfeld" And _
fld.Name <> "nichtzukopierendesfeld" Then
rs(fld.Name).Value = fld.Value
End If
Next
rs.update
rs.close
set rs = nothing

DAmit wird nichts in die Zwischenablage gelegt und die in Office bekannte
Rückfrage bleibt aus.

Gruss
Henry


Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

Ähnliche fragen