Office: (Office 2007) Umstieg Access 2003->2007

hast du icq oder skype oder sowaS?

 

Nö, ja schon, aber eher doch nicht *cool.gif*

denn die Nachwelt will von den Problemen hier was lernen.

Wo ist datt Problem, wenn Du mich gemeint hast?

Ich helfe ehrlich gerne, aber nur hier im Forum oder gegen Knete *grins

Zeige doch mal Deine Datenstrukturen, Tabellen, Abfragen ...
Denn: hier wird Ihnen geholfen *Smilie , zumindest IMHO ist dies meine Erfahrung.

PS: Knete war so nicht zu 90% Ernst *tongue.gif*

 

Option Compare Database 'Verwenden der Datenbank-Sortierreihenfolge beim Vergleich von Zeichenfolgen.

Private Sub Aktuelles_Stammblatt_Click()
On Error GoTo Err_Aktuelles_Stammblatt_Click

Dim DocName As String

DocName = "Stammblatt"
DoCmd.OpenReport DocName, A_NORMAL

Exit_Aktuelles_Stammblatt_Click:
Exit Sub

Err_Aktuelles_Stammblatt_Click:
MsgBox Error$
Resume Exit_Aktuelles_Stammblatt_Click

End Sub

Private Sub Blättern___Rückwärts_Click()
On Error GoTo Err_Blättern___Rückwärts_Click


DoCmd.GoToRecord , , A_PREVIOUS

Exit_Blättern___Rückwärts_Click:
Exit Sub

Err_Blättern___Rückwärts_Click:
MsgBox Error$
Resume Exit_Blättern___Rückwärts_Click

End Sub

#Fehler angeziegt --> Private Sub Blättern___Vorwärts_Click()
On Error GoTo Err_Blättern___Vorwärts_Click


DoCmd.GoToRecord , , A_NEXT

Exit_Blättern___Vorwärts_Click:
Exit Sub

Err_Blättern___Vorwärts_Click:
MsgBox Error$
Resume Exit_Blättern___Vorwärts_Click

End Sub

Private Sub Formular_schließen_Click()
On Error GoTo Err_Formular_schließen_Click


DoCmd.Close

Exit_Formular_schließen_Click:
Exit Sub

Err_Formular_schließen_Click:
MsgBox Error$
Resume Exit_Formular_schließen_Click

End Sub

Private Sub Mitglied_suchen_Click()
On Error GoTo Err_Mitglied_suchen_Click


DoCmd.DoMenuItem A_FORMBAR, A_EDITMENU, 10, , A_MENU_VER20

Exit_Mitglied_suchen_Click:
Exit Sub

Err_Mitglied_suchen_Click:
MsgBox Error$
Resume Exit_Mitglied_suchen_Click

End Sub

Private Sub Zum_ersten_Datensatz_Click()
On Error GoTo Err_Zum_ersten_Datensatz_Click


DoCmd.GoToRecord , , A_FIRST

Exit_Zum_ersten_Datensatz_Click:
Exit Sub

Err_Zum_ersten_Datensatz_Click:
MsgBox Error$
Resume Exit_Zum_ersten_Datensatz_Click

End Sub

Fehler angezeigt --> Private Sub Zum_letzten_Datensat_Click()
Fehler angezeigt --> On Error GoTo Err_Zum_letzten_Datensat_Click


DoCmd.GoToRecord , , A_LAST

Exit_Zum_letzten_Datensat_Click:
Exit Sub

Err_Zum_letzten_Datensat_Click:
MsgBox Error$
Resume Exit_Zum_letzten_Datensat_Click

End Sub

Sub Beenden_Click()
On Error GoTo Err_Beenden_Click


DoCmd.Close

Exit_Beenden_Click:
Exit Sub

Err_Beenden_Click:
MsgBox Err.Description
Resume Exit_Beenden_Click

End Sub


.....die Fehler treten immer unterschiedlich auf, kommt druaf an was man gerade macht

 

Also Dein Code konnte unter AC03 problemlos übersetzt werden (kl. Anpassungen bzgl. End Sub in Blättern___Rückwärts_Click() und
Kommentare mit # entfernt).
Folgende Verweise wurden verwendet:
VBA
Access 11
DAO 3.6

Du solltest immer "Option Explicit" verwenden, um eine eindeutige Variablendeklaration zu erhalten.

Ansonsten sehe ich leider keinen Fehler in Deinem Programm.

 

also ist kein fehler vorhanden oder sehe ich das falsch?

 

Semantisch habe ich Deinen Code nicht geprüft, da keine Angaben
über die Verwendung vorliegen.
Wie geschrieben, fehlerfrei übersetzen konnte ich Dein Programm.