Avatar billede brianboenk Nybegynder
15. februar 2008 - 13:56 Der er 17 kommentarer og
1 løsning

Requery subform

Hej i gode hjerner,

Håber I kan hjælpe mig.
Jeg har en form, som skal hente lidt data fra en Query når man vælger dato.
Jeg har sat nedenstående event til at køres ved combo_change.

Problemet er bare at min requery kommando ikke virker - hvad har jeg gjort galt?

Private Sub Combo13_Change()

    Set db = CurrentDb
    Set qdf = db.QueryDefs("count_sf")
 
           
    strSQL = "SELECT Sum(Count_nd_md.CountOfAirwaybill)            SumOfCountOfAirwaybill, Count_nd_md.Date " & _
            "FROM Count_nd_md GROUP BY Count_nd_md.Date HAVING (((Count_nd_md.Date) = #" & Mid(Me.Combo13, 4, 2) & "-" & Left(Me.Combo13, 2) & "-" & Mid(Me.Combo13, 7, 4) & "#))" & _
            "ORDER BY Count_nd_md.Date DESC;"
           

    qdf.SQL = strSQL
   
    Set qdf = Nothing
    Set db = Nothing
         
   
    Forms![Form1]![sf_count].Requery
   

End Sub


Hilsen Brian
Avatar billede Slettet bruger
15. februar 2008 - 14:16 #1
Er strSQL korrekt!~)
Avatar billede terry Ekspert
15. februar 2008 - 14:17 #2
If I understand the question correctly you have a form named sf_count and this has a record source which is a query alos named sf_count, is that correct?

If you open the query directly does it return the records you want?
Avatar billede terry Ekspert
15. februar 2008 - 14:19 #3
If the query doesnt return the records you want then there is your problem.

Not sure if this works

"SELECT Sum(Count_nd_md.CountOfAirwaybill)            SumOfCountOfAirwaybill, ..

it should maybe be

"SELECT Sum(Count_nd_md.CountOfAirwaybill)  AS SumOfCountOfAirwaybill,
Avatar billede terry Ekspert
15. februar 2008 - 14:21 #4
But I would concentrate on makijg sure the query works and when it doesn then alter the code.
Avatar billede Slettet bruger
15. februar 2008 - 14:22 #5
Prøv!~)

private sub combo13_change()
forms_form1.sf_count.recordsource = "SELECT Sum(Count_nd_md.CountOfAirwaybill) as SumOfCountOfAirwaybill, Count_nd_md.Date FROM Count_nd_md GROUP BY Count_nd_md.Date HAVING (((Count_nd_md.Date) = #" & Mid(Me.Combo13, 4, 2) & "-" & Left(Me.Combo13, 2) & "-" & Mid(Me.Combo13, 7, 4) & "#)) ORDER BY Count_nd_md.Date DESC;"
forms_form1.sf_count.requery
end sub
Avatar billede terry Ekspert
15. februar 2008 - 14:32 #6
If spg's solution works then you dont need the requery, changing the recordsource should force a requery
Avatar billede Slettet bruger
15. februar 2008 - 15:03 #7
Ja, man må sige at min løsning er med livrem og seler!~)

Gad vide om det virker, jeg kigger forbi på et senere tidspunkt....

God weekend!~)
Avatar billede terry Ekspert
15. februar 2008 - 15:13 #8
It should work if the SQL is correct but then so should the original question.
Avatar billede terry Ekspert
15. februar 2008 - 15:13 #9
og god weekend herfra også
Avatar billede brianboenk Nybegynder
18. februar 2008 - 08:17 #10
Hvis jeg prøver spg's løsning får jeg en 'runtime error 424' - 'object requered'...
Avatar billede brianboenk Nybegynder
18. februar 2008 - 08:55 #11
Nu har jeg sat [] om lidt navne så det ser sådan ud:

Forms![form1]![sf_count].RecordSource = "SELECT S....."

Så får jeg så en anden fejlmedd.

'runtime error 438' - 'Object doesn't support this property or method'
Avatar billede brianboenk Nybegynder
18. februar 2008 - 10:31 #12
SPG kan du hjælpe mig videre her???
Avatar billede Slettet bruger
18. februar 2008 - 10:34 #13
har du mulighed for at sende db'en til spg.eksperten@gmail.com
Avatar billede brianboenk Nybegynder
18. februar 2008 - 10:42 #14
databasen er sendt :)
Avatar billede Slettet bruger
18. februar 2008 - 11:05 #15
Løsning:

Form_sf_count.RecordSource = "SELECT Sum(Count_nd_md.CountOfAirwaybill) as SumOfCountOfAirwaybill, Count_nd_md.Date FROM Count_nd_md GROUP BY Count_nd_md.Date HAVING (((Count_nd_md.Date) = #" & Mid(Me.Combo13, 4, 2) & "-" & Left(Me.Combo13, 2) & "-" & Mid(Me.Combo13, 7, 4) & "#)) ORDER BY Count_nd_md.Date DESC;"
Avatar billede brianboenk Nybegynder
18. februar 2008 - 11:13 #16
Den er i vinkel - tusinde tak for hjælpen

hilsen brian
Avatar billede brianboenk Nybegynder
18. februar 2008 - 11:27 #17
Så fandt jeg også ud af at give point....
hilsen NB-brian
Avatar billede Slettet bruger
18. februar 2008 - 11:29 #18
!~)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester