Hallo Zusammen,
ich hab ein ungebundenes UFO in einem Formular.
Das UFU enthält Daten die tabellarisch dargestellt werden.
Am UFO Ende sind Summenfelder.
Beispiel =Summe([Colli])
über das HF führe ich Filter aus.
Nun ist besteht öfters das Problem, dass am Ende des Ufos keine Summen mehr angezeigt werden.
Das komische ist .. wenn ich einen Rechtsklick auf der Maus im HF mache, dann erscheinen die Summen wieder.
Jemand ne Idee an was das liegen könnte ?
Das Problem besteht in ACC 2003 & ACC 2007
Gruss
Bernie
Hallo Bernie,
Zitatüber das HF führe ich Filter aus.
Schon versucht danach aus der Filterprozedur heraus ein 'Requery' auf das UFo loszulassen?
Hi Data,
ja hab ich schon versucht.
'Requery / Parrent.. nichts funzt ???
Hallo
pfffttt .... momentan etwas ratlos.
Kannst du das Problem hochladen?
Hallo,
was ist denn "ein ungebundenes UFO" ?
Me!UFOSteuerelementName.Form.Recalc
sollte schon helfen.
Hi,
eine UFO ohne 1:n Beziehung.
Das funktioniert leider auch nicht.
Wird der Filter ausgeführt,
dann sind die Summen weg
Hier mal der Code zum filtern :
Public Sub Touren_Suchen()
' **************************************
' * TOUREN SUCHEN *
' **************************************
Dim Krit1 As String
Krit1 = ""
'Beispiel für Filtersetzen mit Text, Zahl, Datum
'If Not IsNull(Me!AG_FirmenName1) Then krit1 = krit1 & " And AG_FirmenName1 Like '*" & Me!AG_FirmenName1 & "*'"
If Not IsNull(Me!Tourenart_Tour) Then Krit1 = Krit1 & " And Abfrage_DISPOPLAN_TOUR_ERFASSUNG_UFO.Tourenart =" & Me!Tourenart_Tour
If Not IsNull(Me!LfdNr_Tour) Then Krit1 = Krit1 & " And Abfrage_DISPOPLAN_TOUR_ERFASSUNG_UFO.LfdNr =" & Me!LfdNr_Tour
If Not IsNull(Me!TU_FirmenName1_Tour) Then Krit1 = Krit1 & " And Abfrage_DISPOPLAN_TOUR_ERFASSUNG_UFO.TU_FirmenName1 Like '*" & Me!TU_FirmenName1_Tour & "*'"
If Not IsNull(Me!LagerCode_Tour) Then Krit1 = Krit1 & " And LagerCode Like '" & Me!LagerCode_Tour & "*'"
If Not IsNull(Me!Status_Tour) Then Krit1 = Krit1 & " And Abfrage_DISPOPLAN_TOUR_ERFASSUNG_UFO.Status =" & Me!Status_Tour
If Not IsNull(Me!Ladedatum_Tour) Then Krit1 = Krit1 & " And Abfrage_DISPOPLAN_TOUR_ERFASSUNG_UFO.Ladedatum Like '*" & Me!Ladedatum_Tour & "*'"
If Not IsNull(Me!Entladedatum_Tour) Then Krit1 = Krit1 & " And Abfrage_DISPOPLAN_TOUR_ERFASSUNG_UFO.EntLadedatum Like '*" & Me!Entladedatum_Tour & "*'"
If Not IsNull(Me!LKW_Nr_Tour) Then Krit1 = Krit1 & " And Abfrage_DISPOPLAN_TOUR_ERFASSUNG_UFO.TU_LKW_Nr_A Like '*" & Me!LKW_Nr_Tour & "*'"
If Not IsNull(Me!TU_Fahrzeug_Tour) Then Krit1 = Krit1 & " And Abfrage_DISPOPLAN_TOUR_ERFASSUNG_UFO.TU_Fahrzeug Like '" & Me!TU_Fahrzeug_Tour & "*'"
If Not IsNull(Me!LTW_TOUR) Then Krit1 = Krit1 & " And Abfrage_DISPOPLAN_TOUR_ERFASSUNG_UFO.LTW Like '" & Me!LTW_TOUR & "*'"
If Not IsNull(Me!SNDG_ART) Then Krit1 = Krit1 & " And Abfrage_DISPOPLAN_TOUR_ERFASSUNG_UFO.SNDG_ART =" & Me!SNDG_ART
If Krit1 <> "" Then Krit1 = Mid(Krit1, 6)
Me!DISPOPLAN_TOUR_ERFASSUNG_UFO.Form.Filter = Krit1
Me!DISPOPLAN_TOUR_ERFASSUNG_UFO.Form.FilterOn = True
Me!DISPOPLAN_TOUR_ERFASSUNG_UFO.Requery
End Sub
Hallo,
hast Du nun das Recalc probiert?
Me!DISPOPLAN_TOUR_ERFASSUNG_UFO.Form.ReCalc
oder vielleicht auch:
Me!DISPOPLAN_TOUR_ERFASSUNG_UFO.Form.Refresh
Wie heißt denn das Textfeld für die Anzeige der Summe? Vielleicht hilft dann:
Me!DISPOPLAN_TOUR_ERFASSUNG_UFO!DasSummenAnzeigefeld.ReCalc
Hi,
ok, jetzte funktioniert es.
Danke Franz
Lg Bernie