nem lille sag

Hej Region,

du skal have lavet fuld reference til Combo23 i din Query...

SELECT... FROM ... WHERE fldType LIKE Forms![dinFormular]!Combo23;

hvordan lige at forstå.....????????

i formularen virker det jo fint nok... det er bare som om den er for hurtig til at køre scriptet og ikke når at læse valuen på combo23.

combo23 kører et andet script efter updatering så jeg vi være ked af at skulle ændre i denne.

Der er flere point såfremt nødvendigt...

OK - Jeg troede at det var fordi der ikke var \"forbindelse\" mellem de opdatérede data i formularen og din query, men hvis det virker ved \"enkeltstående\" hits, så er det rigtignok i dette script problemet ligger...

Prøv så at indsætte en Me.Refresh før DoCmd.SendObject\'erne

hjælper ikke ..har tillige haft prøvet showall...
repaint og hvad der ellers findes af gode sager.


Måske skulle jeg fyre en SQL af inden sendobject
ala\'  :

Private Sub Command25_Click()
CurrentDb.QueryDefs(\"top150\").SQL = \"SELECT top 150 * from [avance-desc] where [kundenr] like \'01*\'\"
DoCmd.SendObject acSendQuery, \"top150\", acFormatXLS, \"nt@solar.dk\", , , \"BRAV\", , False
CurrentDb.QueryDefs(\"top150\").SQL = \"SELECT top 150 * from [avance-desc] where [kundenr] like \'04*\'\"
DoCmd.SendObject acSendQuery, \"top150\", acFormatXLS, \"nt@solar.dk\", , , \"BRAV\", , False


har lige tstet dette og dette virker... jeg viul dog stadig lade de 30 point være at hente til den der kan forklare mig det andet...

Hmm, jeg tror umiddelbart at du har skrevet dit kriterie i forespørgslen forkert (som ProAccess er inde på)

SELECT... FROM ... WHERE fldType LIKE \'\" & Forms![dinFormular]!Combo23 & \"\'\"

Kan du indsætte SQL\'en her?

Sql\'en hed som standard :

SELECT TOP 150 *
FROM [avance-desc]
WHERE ((([avance-desc].Kundenr) Like [Forms]![F1]![Combo23]));

den er jo ændret nu fordi jeg kører en  CurrentDb.QueryDefs...

Jeg får udskrevet min forespørgsel 2 (forskellige) gange, ved at køre følgende:

Private Sub Kommandoknap2_Click()
On Error GoTo Err_Kommandoknap2_Click
  Combo23.Value = \"2*\"
  DoCmd.SelectObject acQuery, \"Forespørgsel1\", True
  DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
  Combo23.Value = \"3*\"
  DoCmd.SelectObject acQuery, \"Forespørgsel1\", True
  DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
Exit_Kommandoknap2_Click:
  Exit Sub
Err_Kommandoknap2_Click:
  MsgBox Err.Description
  Resume Exit_Kommandoknap2_Click
End Sub

MEN jeg kan ikke få den til at ÅBNE min forespørgsel mere end een gang pr. tryk på knappen...
Så det har nu nok noget med åbning/lukning af recordset at gøre... Ikke at det hjælper dig så meget på vej... ;-(

gi lige et svar Poul Erik... jeg deler pointene mellem jer....

jeg skal ikke have nogle....jeg har ikke svaret noget
Og jeg mener det!!

region

prøv med: public Sub Command25_Click() istedet for private.

Har ikke afprøvet det

Niels

Thomas>
Det er noget jeg bestemmer...he he...  :-)

nih >
afprøver ved lejlighed, da den anden løsning jeg foregav er brugt i opgaven.

Poul Erik >

sig til hvis du vil have point så opretter jeg påny..

lukker og slukker dette spgm.

:-]

nih> Niels er iøvrigt et godt navn...!

Jebs - Jeg er også tilfreds med det.