Office: (Office 2013) Fehlermeldung in Runtime

BKranz · 9. August 2020

Hallo Forum,

folgender Code funktioniert in der Access-Vollversion ohne Probleme,

Code:

Private Sub cmd_Klone_Click()
On Error GoTo Err_cmd_Klone_Click
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "frm_Klonen_Edit"
Exit_cmd_Klone_Click:
Exit Sub
Err_cmd_Klone_Click:
MsgBox Err.Description
Resume Exit_cmd_Klone_Click
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

in der Runtime-Version bekomme ich die Meldung:
Code:

Der Befehl oder die Aktion 'Einfügen' ist zurzeit nicht verfügbar.'
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gibt es eine Möglichkeit das es auch in der Runtime funktioniert?

Besten Dank im Voraus
Birgit

:)

fraeser · 10. August 2020

Am Besten, Du verzichtest - auch in der Vollversion - auf alle RunCommand-Befehle. Diese sind in der Runtime tlw. nicht verfügbar.

knobbi38 · 10. August 2020

Hallo Birgit,

das sieht aus wie ein konvertiertes Makro zum kopieren eines neuen DS.
So etwas geht besser mit einer Anfügeabfrage in SQL.

Hier mal ein fiktives Beispiel, wo in einer Tabelle tblAnrede ein Anredetext gekloned wird. AnredeID ist dabei das Primarykey Feld mit dem Autowert:
Code:

Private Sub btnCloneCurrendRecord_Click()
Dim db As DAO.Database
Dim strSQL As String
Dim strCriteria As String
Dim lngNewID As Long

Const SQL_CLONE As String = "INSERT INTO tblAnrede (Anrede) " _
& "SELECT Anrede FROM tblAnrede " _
& "WHERE AnredeID={0};"

' Check for a selected record
If Nz(Me.AnredeID, 0) 0 Then
strSQL = Replace(SQL_CLONE, "{0}", Me.AnredeID)

Set db = CurrentDb

' Append cloned record
db.Execute strSQL, dbFailOnError

' Find out last inserted autonumber value
lngNewID = db.OpenRecordset("SELECT @@IDENTITY")(0)

Set db = Nothing
End If

If lngNewID > 0 Then
' Open the edit form with the newly created record
strCriteria = BuildCriteria("AnredeID", dbLong, CStr(lngNewID))
DoCmd.OpenForm "frmEdit", WhereCondition:=strCriteria
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ulrich

BKranz · 11. August 2020

Hallo Ulrich,

Super mit deinem Code funktioniert es jetzt auch unter der Runtime.

Nochmals besten Dank für die schnelle, kompetente Hilfe.

LG
Birgit

BKranz · 12. August 2020

ich versuche in dem Beispiel nun ausser dem Anredetext auch noch weiter Felder (Wert1, Wert2) mit dieser Abfrage zu clonen, leider ohne Erfolg.
Ich bekomme einen
Code:

Laufzeitfehler 3346 angezeigt.
Anzahl der Abfragewerte und Zielfelder stimmen nicht überein
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

folgende Passage wird gelb markiert
Code:

' Append cloned record
db.Execute strSQL, dbFailOnError
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anbei noch denganzen Code:
Code:

Private Sub btnCloneCurrendRecord_Click()
Dim db As DAO.Database
Dim strSQL As String
Dim strCriteria As String
Dim lngNewID As Long

Const SQL_CLONE As String = "INSERT INTO tblAnrede (Anrede, Wert1, Wert2) " _
& "SELECT Anrede FROM tblAnrede " _
& "WHERE AnredeID={0};"

' Check for a selected record
If Nz(Me.AnredeID, 0) 0 Then
strSQL = Replace(SQL_CLONE, "{0}", Me.AnredeID)

Set db = CurrentDb

' Append cloned record
db.Execute strSQL, dbFailOnError

' Find out last inserted autonumber value
lngNewID = db.OpenRecordset("SELECT @@IDENTITY")(0)

Set db = Nothing
End If

If lngNewID > 0 Then
' Open the edit form with the newly created record
strCriteria = BuildCriteria("AnredeID", dbLong, CStr(lngNewID))
DoCmd.OpenForm "frmEdit", WhereCondition:=strCriteria
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Besten Dank im Voraus
Birgit

ebs17 · 12. August 2020

Anzahl der Abfragewerte und Zielfelder stimmen nicht überein
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Const SQL_CLONE As String = "INSERT INTO tblAnrede (Anrede, Wert1, Wert2) " _
& "SELECT Anrede FROM tblAnrede " _
& "WHERE AnredeID={0};"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das sollte man doch irgendwie zusammen bekommen ... oder lauert hier die versteckte Kamera?

BKranz · 12. August 2020

peinlich, ich schiebe es mal auf die Hitze...

Danke
Birgit

Office: (Office 2013) Fehlermeldung in Runtime

Fehlermeldung in Runtime

Fehlermeldung in Runtime

Fehlermeldung in Runtime

Fehlermeldung in Runtime - Similar Threads - Fehlermeldung Runtime

Fehlermeldung für mich nicht nachvollziehbar

Excel found a problem with one or more formula references in this worksheet

Fehlermeldung beim Filtern in einer Tabelle

Bedingte Formatierung funktioniert nicht

Outlook Fehlermeldung 0x800CCC78, Nachricht kann nicht gesendet werden ...

Fehlermeldung XML Erweiterungspacket

Excel Powerquery: Nach Schließen & Laden Fehlermeldung [DataFormat.Error]