hjælp til accessdatabase til medarbejdervurdering.

hvis der er nogen der vil hjælpe kan jeg maile databasen.

Lav en Top 5

SELECT TOP 5 Tabel1.nr
FROM Tabel1
ORDER BY Tabel1.Dato DESC;

det har jeg lavet. problemet er at få lavet det således at jeg har gennemsnits resultaterne dels pr dato og dels pr område.

Jeg ved ikke om det overhovedet kan lade sig gøre ? har prøvet pivottabellerne, med det giver ikke det rigtige billede.

Jeg mener du kan lave gennemsnit i en forespørgsel. Leder lige lidt.

Udtryk1:Gennemsnit([dato])

Select Avg([dato]) As Udtryk1, Avg([Område])As Udtryk2
From Tabel1;

Du skal ikke have andre felter i forespørgslen ind disse 2 udtryk.

Det kan være jeg skal illustrere det.
For så vidt angår gennemsnittet så virker det fint, men den måde jeg skal benytte det er det desværre ikke godt nok.

billede af det jeg gerne vil have:
http://webcre8.dk/eksperten/vurdering.gif

testdatabasen ligger her:
http://webcre8.dk/eksperten/medarb_vurdering.mdb

ps: takker for hjælpen :-)

i en formular.

Det du ikkustrerer er en krydstabuleringsforespørgsel, hvor du har data både vandret og lodret. Umiddelbart kan du ikke lave det i en enkelt formular al den stund, at du ikke kan lave beregningerne i en forespørgsel.

Jeg prøver at downloade testdb, når jeg er hjemme.

jeg takker for din hjælp. Prøver selv at se hvor lang jeg kan komme :-)

Har prøvet at downloade db, men får meddelelsen, at siden ike kan findes.

har du prøvet at h.klikke på ovenstående link og vælge "gem destination som..."
har ellers teste linket og der er ikke problemer fra de forskellige maskiner.

Ellers må du skrive en mailadresse jeg kan sende til.

Nu kan jeg se siden, men Norton kommer med en meddelelse, at der er blokeret et forsøg på indtrængning og annulerer overførslen. Når jeg prøver en gang til, kommer meddelelsen, at siden ikke kan vises.

mugs@mail.dk

Husk at zippe.

Db er modtaget og returneret. Umiddelbart mener jeg ikke det ønskede resultat kan opnås med den måde hvorpå db er skruet sammen. Et alternativt forslag med samme beregninger er sendt.

Oooog så kom den tilbage:

This is the Postfix program at host pfepb.post.tele.dk.

I'm sorry to have to inform you that your message could not be
be delivered to one or more recipients. It's attached below.

For further assistance, please send mail to <postmaster>

If you do so, please include this problem report. You can
delete your own text from the attached returned message.

The Postfix program

<rashid's e-mail>: host gmail-smtp-in.l.google.com[64.233.163.27] said:
    552 5.7.0 Illegal Attachment 10si1588820nzo (in reply to end of DATA
    command)

Sendt til anden adresse.

Det virkede ganske udmærket :-)

Tak for point ;o)

hej Mugs
har du tid til at hjælpe med min medarbejderdatabase ?
der er nogen ting jeg ikke kan finde ud af... :-)

Hvad er dit problem?
Jeg har slettet alt jeg har fået fra dig.

tilbage fra sygdom :-)

-->mugs
Jeg ved at det er muligt at lave en knap der kan eksportere data til excel. Mit problem kommer når jeg skal gøre det fra en underformular.

Det skal se sådan ud:
SQL=select * from (en tabel) where feltID=feltID i underformular

Private Sub Eksport_excel_Click()
DoCmd.OutputTo acOutputForm, SQL, "*.xls", "m:\test.xls", 1
End Sub

Får du nogen fejl?

1) nej problemet er at jeg ikke kan huske hvorledes man laver en sql der skal benyttes i eksporten... (hvordan "peger" jeg på det rigtige felt ?)
2) hvorledes eksport-funktionen skal skrives...

SQL er ikke lige min boldgade. Men et forslag:

1.Lav den forespørsel du vil eksportere
2.Brug kommandoen DoCmd.transfer spreadsheet.... til at eksportere.

Du kna evt. lave en makro. I Handlinger øverst vælger du handlingen "Overfør regneark", i argumenterne nederst kan du vælge de øvrige argumenter. Afprøv om det fungerer. Gør det, kan du i databasevinduet markere din makro > Funktioner > Makroer > Konverter Makro til VBA. Makroen vil nu blive konverteret til et modul. Heri kan du blot kopiere koden om indsætte den i din formular. Fungerer det, kan du blot slette makro og modul.

hvis jeg nu sender databasen du hjalp mig med - ville du så prøve at lave et eksempel eller den måde du ville løse det på ?

Jeg strikker et eksempel sammen til dig iaften. Jeg kan ikke huske om jeg har din mailadr. Men ellers lægger jeg lige en kommentar her.

ok - takker. Fandt forøvrigt dette eksempel, som du har skrevet tidligere. Måske kan jeg rette det til. kigger på det i aften :-)
http://eksperten.dk/spm/91446

Nu har jeg prøvet at sende til begge de e-mail adresser jeg har, men i begge tilfælde kommer db tilbage med meddelelsen om, at der er en illegal vedhæftet fil trods det forhold, at filen er zippet!

Yezzz - Med Mugs hjælp virkede det. Det kan betale sig at vende tilbage til et gammelt spørgsmål og se om ikke nogen kan hjælpe..

Vi prøver da at hjælpe til problemet er løst :o)

hej Mugs
sp. nr 2: Kan man tage højde for i beregningen af genemsnittet, at hvis der står 0 i et af felterne skal det ikke tælles med ? det giver et andet resultat:
a1+a2+a3+a4+a5 = B/(a1+a2+a3+a4+a5)
1+2+3+4+5=15/5= 3
i forhold til:
a1+a2+a3+a4+a5 = B/(a1+a2+a3+a4+a5)
1+2+3+4+0 = 5/4 = 1,25

hvis du kan give mig en vba-kode ville jeg være glad :-)
Takker på forhånd

Jeg kan kun svagt huske hvordan den oprindelige database så ud. Men kan du ikke i den forespørgsel der ligger til grund for dien beregninger ikke indsætte et kriterie (>0) der frasorterer alle poster hvor værdien er 0.

Ved nærmere efter tror jeg det er et dårligt råd jeg gav dig. Arbejder lige lidt med det og vender tilbage senere.

rashid > Jeg har nok undervurderet mine arbejdsopgaver, og har ikke haft tid endnu. Jeg mener at have løsningen inde i mit hoved, men har ikke haft tid til at afprøve den. Jeg vender tilbage.

tak for du gider hjælpe...

Jeg forstår ikke hvor du får B fra:

a1+a2+a3+a4+a5 = B/(a1+a2+a3+a4+a5)
1+2+3+4+5=15/5= 3
Her giver summen af a1 til a5 jo 15, så OK med det.

a1+a2+a3+a4+a5 = B/(a1+a2+a3+a4+a5)
1+2+3+4+0 = 5/4 = 1,25
Med her giver summen af a1 til a5 jo 10 divideret med det antal felter hvor værdien er > 0 Det giver 10/4 = 2,5

det er mig der har lavet en regnefejl :-(
selvfølgelig giver det 2,5...

Nååhhh - Har du en e-mail, så sender jeg en testdb.

jeps - kommer her: farooq at webcre8.dk

Sendt.

hej Mugs
kan jeg lave koden om så den tester på hvert felt og beregner det? for sjov skyld har jeg forsøgt mig med:
--------------------------------
Private Sub a1_AfterUpdate()
Dim VARa As Integer
Dim VARb As Integer
VARb = 0
DoCmd.GoToControl "a1"
If Me!a1 > 0 Then
VARb = VARb + 1
End If
DoCmd.GoToControl "a2"
If Me!a2 > 0 Then
VARb = VARb + 1
End If
DoCmd.GoToControl "a3"
If Me!a3 > 0 Then
VARb = VARb + 1
End If
DoCmd.GoToControl "a4"
If Me!a4 > 0 Then
VARb = VARb + 1
End If
DoCmd.GoToControl "a5"
If Me!a5 > 0 Then
VARb = VARb + 1
End If
VARa = a1 + a2 + a3 + a4 + a5
'MsgBox VARa / VARb
Me!Tekst11.Value = VARa / VARb
End Sub
---------------------------
men her er det jo kun efter opdatering af felt a1 at der sker noget...

Læg koden ind i de andre felter, så vil den genberegne efter udfyldelse af hvert felt. Som du ser af procedürenavnet ligger denne kode i a1_AfterUpdate.