04. oktober 2008 - 17:14Der er
40 kommentarer og 1 løsning
Problem med Dsum og DLookup kode
Hvad er der galt med denne kode. Den skal hente summen af "SalesPrice" i felterne som har samme "WC" nummer, men den henter kun det første felt i kolonennen "SalesPrice". "WC" er et unikt nummer som indsættes i formularen.
Private Sub Kommandoknap17_Click() On Error GoTo Err_Kommandoknap17_Click
If DSum("SalesPrice", "QryWCMaterialPrice", "[WC]='" & Me.[WC] & "'") = 0 Then
MsgBox "Enter valid WC number", Exclamation Else
If MsgBox("Copy data?", vbQuestion + vbYesNo) = vbYes Then Me.[Total Material cost] = DLookup("[SalesPrice]", "QryWCMaterialPrice", "[WC]='" & Me.[WC] & "'")
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
"... men den henter kun det første felt i kolonennen ..." - mener du, at den kun henter den første post, der matcher i QryWCMaterialPrice, selv om der er flere?
Hvis det er tilfældet som fdata beskriver, hentese den første post som opfylder kriteriet. Hentet fra hjælpen:
If more than one field meets criteria, the DLookup function returns the first occurrence. You should specify criteria that will ensure that the field value returned by the DLookup function is unique. You may want to use a primary key value for your criteria, such as [EmployeeID] in the following example, to ensure that the DLookup function returns a unique value:
Dim varX As Variant varX = DLookup("[LastName]", "Employees", "[EmployeeID] = 1")
Feltet WC er alfanummerisk. Ja kun den første post, ud af (i dette tifælde 2), det jeg ønsker er at hente summen af de poster som har samme WC nummer. Vil det sige at jeg skal have et autonummer ind i kriteriet. Forespørgslen der hentes fra har to autonummerfelter.
Hvis du vil se resultatet af DSumm i en formular / Rapport, kan du i en formular / rapport indsætte en underformular- / underrapport der viser summen af den i parent valgte WC.
Dette er hvad jeg indtastet. SELECT QryWCMaterialPrice.WC, Sum(QryWCMaterialPrice.SalesPrice) AS SumOfSalesPrice FROM QryWCMaterialPrice GROUP BY QryWCMaterialPrice.WC HAVING (((QryWCMaterialPrice.WC)=[Indtast WC-nummer]));
2,9 Mb zip skal gå igennem uden problemer. Jeg har checket min webmail, og der e ringen meddelelser om slettede filer. Jeg ved næste ikke hvad der kan være galt. Prøver at sende en .zip fil til dig. Så får vi se, om der er hul den vej.
E-mailprovider - Hmm har ikke forstand på det. Men jeg kan sende .zip filer til mig selv og til dig, så jeg har svært ved at se, hvor fejlen kan ligge.
Men jeg vil foreslå, at disse kommentarer holdes på vores private e-mail og ikke over eksperten. Der er jo endnu ikke tale om løsninger, og vi forstyrrer blot sagesløse brugere der abonnerer på spørgsmålet. Men prøv at sende igen. Det kan jo være, at der blot var en bøvs i systemet iaftes.
Tak. Jeg er lige optaget, men vil senere implementere noget i den sidste version jeg har fået.
Synes godt om
Ny brugerNybegynder
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.