Søgefunktion i underformular

Har du felter hvor antal opkald og samlet beløb skal stå?
Er der felter på VsatHead?
Skal VsatCosts filtreres så kun poster indeholdende navnet vises eller skal der bare regnes sammen?

Min subForm indeholder feks

Date:    PhoneNumber:    Destination:    Duration:    Cost:          Caller ID:    Name:
9/20/2006 5:46:51 PM    45625422xx     Denmark     5:00     0.33     4500506071     Jan
9/20/2006 5:34:01 PM    45625422xx     Denmark     13:00     0.87     4500506071     Jan
9/20/2006 5:32:14 PM    45625422xx     Denmark     1:00     0.06     4500506071     Jan
9/20/2006 5:30:58 PM    45625422xx     Denmark     1:00     0.06     4500506071     Mads
9/20/2006 5:30:23 PM    45207154xx     Denmark-MobSo     1:00     0.36     4500506071     Mads
9/20/2006 5:02:42 PM    634398197xx     Philippines     2:00     0.52     4500506071     Herning
9/20/2006 4:59:49 PM    634398197xx     Philippines     2:00     0.52     4500506071     Herning
9/20/2006 4:37:34 PM    634398197xx     Philippines     21:00     5.52     4500506071     Jan
9/20/2006 4:36:26 PM    634331243xx     Philippines     1:00     0.26     4500506071     Mads
9/20/2006 4:34:33 PM    634398197xx     Philippines     2:00     0.52     4500506071     Herning
9/20/2006 4:32:31 PM    6392044852xx     Philippines-Mo     1:00     0.29     4500506071 Kurt
9/20/2006 4:31:26 PM    634398197xx     Philippines     1:00     0.26     4500506071     Herning

Ja, det er felter på VsatHead

Ja, VsatCosts filtreres så kun poster indeholdende navnet vises

Ville gerne om man kan lave en Combobox der indeholder navnene fra subFormen 'VsatCosts' [Navn] og dermed lave et filter som viser feks.

=[VsatCosts].[Form]![Ccount]

og

=[VsatCosts].[Form]![CostTotal]

Måske man kunne sætte filtre for alle personer der indgår på subFormen

Hvordan filterer du underformularen? ved at bruger filter=xx ?
Eller ved at give den en helt ny recordsource?

Kunne du lave noget i hændelsen cboNavn_AfterUpdate():

Me!VsatCount=dcount("[IDfelt]","tabelnavn"," & me.subformnavn.form.filter & ")
Me!VsatCost=dsum("[cost]","tabelnavn"," & me.subformnavn.form.filter & ")

Feltet [Cost1] skal vise den totale samtale pris for feks. Jan

SubFormen = VsatCosts og indeholder følgende felter:

ID, Date, PhoneNumber, Destination, Duration, Cost, callerID, Name

mainFormen = VsatHead og indeholder følgende felter:

ID1, Month, Year, Cost1

Har en Combobox31 der henter navnene fra tabellen "VsatCosts"

Har næsten fundet resultatet men for et heltal returneret feks. 0.06 bliver til 0.00

Private Sub Combo31_AfterUpdate()

Me.Cost1 = 0

Dim Stringsearch As String

Stringsearch = Me!Combo31

Me.Cost1 = DSum("[cost]", "VsatCosts", "[Name]='" & Stringsearch & "'")

End Sub

får et heltal returneret feks. 0.06 bliver til 0.00

Fandt en fejl i min tabel :-( Så nu virker det efter hensigten. På når når jeg sletter værdien i min combo31

Private Sub Combo43_AfterUpdate()

On Error GoTo Err_Combo43_AfterUpdate

Me.Cost4 = " "
Me.Count4 = " "


Dim Stringsearch As String

Stringsearch = Me!Combo43

Me.Cost4 = DSum("[cost]", "VsatCosts", "[Name]='" & Stringsearch & "'")
Me.Count4 = DCount("[ID]", "VsatCosts", "[Name]='" & Stringsearch & "'")


Exit_Combo43_AfterUpdate:
    Exit Sub

Err_Combo43_AfterUpdate:
    MsgBox "test", vbOKOnly
   
 
   
    Resume Exit_Combo43_AfterUpdate


End Sub

På nær når jeg sletter værdien i min combo43, får jeg en fejl

Så kan du måske gøre således:


Private Sub Combo43_AfterUpdate()

On Error GoTo Err_Combo43_AfterUpdate

Me.Cost4 = " "
Me.Count4 = " "


If not isnull(me!combo43) Then
Dim Stringsearch As String

Stringsearch = Me!Combo43

Me.Cost4 = DSum("[cost]", "VsatCosts", "[Name]='" & Stringsearch & "'")
Me.Count4 = DCount("[ID]", "VsatCosts", "[Name]='" & Stringsearch & "'")
Else
Me.Cost4 = DSum("[cost]", "VsatCosts")
Me.Count4 = DCount("[ID]", "VsatCosts")
End if

Exit_Combo43_AfterUpdate:
    Exit Sub

Err_Combo43_AfterUpdate:
    MsgBox "test", vbOKOnly
 

 
    Resume Exit_Combo43_AfterUpdate


End Sub

Jeg takker. Håber det virker tilfredsstillende, ellers sig bare til.