kan ikke huske det...

under formularens Rammetype

he he...fandt lige selv ud af det...

her er dine velfortjente mange mange point...*g*

Juhuu...  nu når jeg snart TOP 10 !!!  ;-)

hvis du vil score 10 point mere så fortæl mig lige hvorfor min form når den er MODAL og DIALOG bliver maksimeret ved kørsel..???

jeg opretter bare point til dig i nyt spgm.

har løst det....

Hvad var grunden... jeg kunne ikke lige gendanne problemet...

hi proaccess> how may points do you need?

???

Ja nu rabler det sku...
når jeg skriver dette åbner den og kører scriptet i baggrunden :

DoCmd.OpenForm \"msg\"

Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset

men hvis jeg skriver dette kører den ikke videre før jeg lukker msg formen :

DoCmd.OpenForm \"msg\", , , , , acDialog

Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset


det var der man bare skulle angive at det var en dialog...

3006 !!!

No, I\'m working my way up, and every time I get points I have to check the list...

I havn\'t calculated my points by category, so I just have to wait and see...

But: I\'ll soon be on your tail...

du må godt få 2 mere af mig....uden beregning...

hey region> what happened to the export to Excel question?

jeg har lavet en tabel der indeholder alle de felter der er i de 5 seperate queryes så kører jeg dette script.:

Private Sub Command51_Click()

DoCmd.OpenForm \"msg\", , , , , acDialog

Dim db As Database
Dim rs As Recordset
Dim rs1 As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset(\"tblBranch\")

DoCmd.SetWarnings False

DoCmd.RunSQL \"Delete * from top10\"

Do While Not rs.EOF

DoCmd.RunSQL \"INSERT INTO top10 SELECT TOP 10 [gr all down].* FROM [gr all down] WHERE [gr all down].[branch nr] = \'\" & rs!BranchNr & \"\'\"
DoCmd.RunSQL \"INSERT INTO top10 SELECT TOP 10 [0-sale 3mth_gr all].* FROM [0-sale 3mth_gr all] WHERE [0-sale 3mth_gr all].[branch nr] = \'\" & rs!BranchNr & \"\'\"
DoCmd.RunSQL \"INSERT INTO top10 SELECT TOP 10 [0-sale 6mth_gr all].* FROM [0-sale 6mth_gr all] WHERE [0-sale 6mth_gr all].[branch nr] = \'\" & rs!BranchNr & \"\'\"
DoCmd.RunSQL \"INSERT INTO top10 SELECT TOP 10 [all group stock greater 3 mth sale].* FROM [all group stock greater 3 mth sale] WHERE [all group stock greater 3 mth sale].[branch nr] = \'\" & rs!BranchNr & \"\'\"
DoCmd.RunSQL \"INSERT INTO top10 SELECT TOP 10 [all group stock greater 6 mth sale].* FROM [all group stock greater 6 mth sale] WHERE [all group stock greater 6 mth sale].[branch nr] = \'\" & rs!BranchNr & \"\'\"

rs.MoveNext
       
    Loop

DoCmd.SetWarnings True
DoCmd.Close acForm, \"msg\", acSaveNo
End Sub

Jeg vil tumle lidt med at bruge disse samlede data i nogle rapporter hvor jeg nu kan præsenterer tallene for alle 5 beregninger pr branch.
hvad jeg ikke endnu ved er hvordan jeg så eksporterer disse rapporter til excel, word eller lign.

didnt I give you the answer to that yesterday?

region> nej du, jeg må hellere komme retfærdigt til mine points, der er jo så mange, som råber snyd i disse dage... ;-)  Du har da også allerede hjulpet godt til med din spørgeiver...

proaccess. >

ja men hvad man ikke har i hovedet.... jeg har bare ikke lige tid til at forsøge at samle point lige for tiden, derfor er det ved at være lavvande for mig... det er bare too bad...!!!!

Terry >
jo delvist.... som jeg beskrev var der fejl i scriptet da det så mærkeligt ud ved overførsel til excel. Mener du jeg skylder dig nogle point må du lige remind me om dette, da jeg lige for tiden spørger i øst og vest på alt muligt...

Terry >
jo og ja....Scriptet er taget fra en løsning lavet til mig fra dig...korrekt...

You wanted an answer on how to export to excel, wghich you received but said it doidnt work. Something to do with \"filialer\". The code for exporting to Excel should work if your table \"tblBranch\" contains the branch numbers, and that you copy the code correctly!
I dont want points for something which doesnt work, so lets get it to work first then we can talk about the points (how many do you have left?)

Terry >

har kommenteret på det oprindelige spørgsmål

http://www.eksperten.dk/spm/91446

Terry> I just calculated my Access points, and it seems that I had my hopes up too soon, I still need 675 pts to reach TOP10, but time is on my side...

You\'ll get there mate!