Hi,
wir haben eine etwas ältere, von einem damaligen Kollegen erstellte, Accessanwendung, die unter Access 2003 noch problemlos lief. Nun haben wir allerdings auf Access 2010 umgestellt und hier und da funktionieren ein paar Befehle nicht. An den meisten Stellen
konnte ich das Problem lösen, indem ich die Buttons im Formular gelöscht und neu erstellt habe. Nun bin ich aber in einem Formular hängen geblieben, bei dem folgender Code beim Anlegen eines neuen Titels ausgeführt wird und Access beim ausführen hängen bleibt:
'Siehe Prozedur "frm_Titeldaten/Lieferant_NotInList"
Private Sub Titel_NotInList(NewData As String, Response As Integer)
Dim NeuTitel As Integer
Dim Titel As String
Dim MeldungDialog As Integer
Dim DocName As String
Dim LinkCriteria As String
Const MB_JANEIN = 4
Const MB_AUSRUFEZEICHEN = 48
Const MB_STDSCHALTFLÄCHE1 = 0, IDJA = 6, IDNEIN = 7
Const FRB_WEISS = 16777215
Const NORMAL = 1
Titel = "Der eingegebene Titel ist nicht in der Liste"
MeldungDialog = MB_JANEIN + MB_AUSRUFEZEICHEN
NeueArt = MsgBox("Möchten Sie einen neuen Titel hinzufügen?", MeldungDialog, Titel)
If NeueArt = IDJA Then
DocName = "frm_Titel_erfassen"
SendKeys "{Home}+{End}", True
DoCmd.DoMenuItem A_FORMBAR, A_EDIT, A_COPY
Me!Titel.Undo
'DoCmd.DoMenuItem A_FORMBAR, A_EDIT, A_UNDOFIELD
DoCmd.OpenForm DocName, A_NORMAL, , LinkCriteria, A_ADD, A_NORMAL
DoCmd.DoMenuItem A_FORMBAR, A_EDIT, A_PASTE
SendKeys "{ENTER}"
Response = DATA_ERRCONTINUE
End If
End Sub
Für mich stellt es sich so dar, als wenn er einen Befehl ausführen möchte, der so in Access 2010 nicht mehr korrekt ist. Kennt sich damit jemand aus und kann mir weiterhelfen?
