Hallo Access-Freunde,
mein Pilzkartierungsprogramm wird jetzt von den ersten Access-2016 Besitzern genutzt. Dabei kommt beim Öffnen eines einzigen Formulars die Meldung "Überlauf", obwohl kaum Daten in dieser Datenbank sind. Klickt man diese Meldung weg, geht alles ganz normal. In Access 2000 -2013 gibt es mit gleicher Version keine Fehlermeldung!
Desweiteren wird die Schrift in den Button der Formulare extrem klein dargestellt, was bis 2013 immer die gleiche Größe hatte. Das ist aber erstmal zweitrangig.
Beste Grüße
Frank
Ohne zu wissen, was wann in dem Formular passiert (Code, Makro) wird man wohl kaum Hilfe anbieten können.
Danke für die Antwort.
Hier mal der Code für Form_Open: Private Sub Form_Open(Cancel As Integer)
Dim rc As Variant
Dim rcbm As String
On Error GoTo Err_Marke_name
'Bildschirmanpassung
rc = HoehenExpansion(Me, Me![Arbeitsmodus], Me![Einzelnachweis_UF_Beobachtung_Ansicht])
If Not (IsEmpty(globale_art_nr) Or IsNull(globale_art_nr) Or globale_art_nr = 0) Then
rcbm = positioniere_bookmark(Me.RecordsetClone, "art_nr = " & CStr(globale_art_nr))
If rcbm <> "" Then Me.Bookmark = rcbm
Me!Nr_Art = globale_art_nr
End If
Exit_Proc_name:
Exit Sub
Err_Marke_name:
MsgBox Error$
Resume Exit_Proc_name
End Sub
und für Form_Current:Private Sub Form_Current()
Const BasisSQLstmt = "SELECT Einzelnachweisliste4Ansicht.* FROM Einzelnachweisliste4Ansicht ORDER BY Einzelnachweisliste4Ansicht."
Const OrderDatum = "datum1 DESC;"
If IsNull(Me!art_nr) = False Then
Me!Nr_Art = Me!art_nr
End If
Me!Sortierung = 1
Me!Nr_Art.SetFocus
End Sub
Makros gibt's keine.
Beste Grüße
Frank
Ich verstehe nicht, was der Code leisten soll. Zugriffe auf die Datenherkunft des Formulars stehen normalerweise im Beim Öffnen Ereignis noch nicht zur Verfügung. Verlagere den Code in das Beim Laden Ereignis des Formulars.
Vielen Dank erstmal für den Hinweis. Da ich selbst kein Access 2016 habe, muß ich erst noch Zugang zu dieser Version bekommen, um zu testen. Bis Access 2013 funktioniert ja alles.
Frank