UFO Problem

[Bernie110]

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

[database]

Hallo Bernie,

über das HF führe ich Filter aus.

Schon versucht danach aus der Filterprozedur heraus ein 'Requery' auf das UFo loszulassen?

[Bernie110]

Hi Data,

ja hab ich schon versucht.
'Requery  / Parrent.. nichts funzt 

[database]

Hallo

pfffttt ....  momentan etwas ratlos.
Kannst du das Problem hochladen?

[DF6GL]

Hallo,

was ist denn "ein ungebundenes UFO" ?


Me!UFOSteuerelementName.Form.Recalc   

sollte schon helfen.

[Bernie110]

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 :

Code [Auswählen] Erweitern

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

[DF6GL]

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

[Bernie110]

Hi,

ok, jetzte funktioniert es.

Danke Franz

Lg Bernie