ACCESS 2003, Win7, Anzeigeproblem Formular mit Diagramm

[database]

Hallo,

@Database: Schade :-) dass Du das 2. Diagramm gelöscht hast. Damit wollte ich doch den Effekt zeigen, dass das Diagramm nach dem Scrollen sichtbar wird

Nein, das ist nicht schade, ich hab's mit 2 und danach mit einem Diagramm probiert, beide male war ein Scrollen nicht notwendig, das von dir beschriebene Verhalten tritt bei mir - Windows 2008 R2 / Office 2010 (x86) NICHT auf, auch unter Windows 7 x64 und Office 2013 (x86) nicht

Ansonsten verweise ich nochmals auf den von mir zitierten Beitrag.

[neutrino]

Hallo Bahasu,
dass ist in sofern eine gute Nachricht für mich, dass mein System somit ok ist. Wie gesagt, für mich wäre schon der Code eine Hilfe (meine Programmierkenntnisse sind bescheiden.. ), der das Scrollen automatisiert (würde man doch wahrscheinlich nur als kurzes Zucken wahrnehmen).

Nochmals besten Dank an Alle (@Database, war ja nicht negativ gemeint..) 

Neutrino

[bahasu]

Hi,

habe in der Tabelle "Name" gegen "Name_Kunde" getauscht {vermeide reservierte Begriffe}

Über den Sinn, (vermutlich berechnete) Umsätze in der Tabelle2 zu speichern, will ich jetzt nicht diskutieren.

hier eine Version, die unter a2003 + win7 läuft.

Hilft das?
Harald

[database]

Hi,

(@Database, war ja nicht negativ gemeint...)

So hab ich es auch nicht aufgefaßt 

[neutrino]

Hallo Bahasu,

Danke für Deine Lösung. Ich habe alle Codes in meine große db integriert, nur scheitere ich aktuell an einem Laufzeitfehler 2110

"Access kann den Fokus nicht auf das Steuerelement Diagramm208 verschieben"

Komme einfach nicht dahinter, habe schon alles 3x geprüft. Oder hast Du außer den Codes noch etwas anderes in den Einstellungen geändert ?
Hier der Code, der insgesamt hinter diesem Formular liegt:

Mein Diagramm heisst "Diagramm208"
Mein Feld für die Kundennummer "KdNr"


Option Compare Database
Option Explicit


    Public Vorheriges_Steuerelement  As String

Private Sub Diagramm208_Updated(Code As Integer)
   Me.Diagramm208.SetFocus
    'DoEvents
   
    If Nz(Vorheriges_Steuerelement, "") = "" Then
        Me.KdNr.SetFocus
    Else
        Me(Vorheriges_Steuerelement).SetFocus
    End If
End Sub

Private Sub Form_Current()
On Error Resume Next
    Vorheriges_Steuerelement = Screen.PreviousControl.Name
    On Error GoTo 0

    Me.Diagramm208.SetFocus
    'DoEvents
End Sub

Private Sub Form_Open(Cancel As Integer)
   Me.KdNr.SetFocus
    'DoEvents
End Sub

Private Sub Schaltfläche57_Click()
On Error GoTo Err_Schaltfläche57_Click


    DoCmd.Close

Exit_Schaltfläche57_Click:
    Exit Sub

Err_Schaltfläche57_Click:
    MsgBox Error$
    Resume Exit_Schaltfläche57_Click
   
End Sub

Private Sub Befehl206_Click()
On Error GoTo Err_Befehl206_Click

    Dim stDocName As String

    stDocName = "Aktualisieren Diagramm"
    DoCmd.RunMacro stDocName

Exit_Befehl206_Click:
    Exit Sub

Err_Befehl206_Click:
    MsgBox Err.Description
    Resume Exit_Befehl206_Click
   
End Sub




Nebenbei bemerkt: der Sinn der Grafik war keiner, hatte die Beispiel db nur schnell zusammengeklickt.

Gruß 
Neutrino

[bahasu]

Hi,

Objektaktivierung beim Diagramm = Manuell.

In welcher Zeile passiert der Fehler?

Harald

[neutrino]

Hallo Bahasu,

hab's gefunden. Komischerweise stand mein Diagramm auf Aktiviert "nein" und Gesperrt "ja". Dies war in Deiner Beispiel db umgekehrt. Hab's jetzt so eingestellt und es klappt. Habe dann auch probiert, ob dies der Fehler bezogen auf das Gesamtproblem war, war es aber nicht.

NOCHMALS VIELEN DANK FÜR DEN CODE !!!!! 

Neutrino