Database hjælp!!

Without more information on hwo your database is desigend its not easy to give a solution.

I think you will need a table which contains information on how many tires "dæk" a shelf "reol" can hold. Then I assum that you know how many tires are stored on each shelf and from this information you can see how much room is left.

Du er velkommen til at sende din db til spg.eksperten@gmail.com så skal jeg tage et kig!~)

du skal lige zip'pe den....

Ohh Sorry

Mit program er opbygget så ledes at når jeg arkivere et dæk, giver jeg den en placering på lageret, i mit tilfælde har jeg en rubrik som hedder placerng hvor jeg fortæller hvilken reol, og hylde det pågældende dæk skal lægge på, men jeg kan arkivere alle dækkene på den samme reol og hylde uden systemet "broker sig" det vil jeg gerne have lavet sådan, at man maksimum kan arkivere 12 dæk på hver reol og hylde...

spg jeg har sendt en mail til dig

Søren

Du kna bruge funktionen DMAX til at vise hvor mange dæk der er på en hylde. I feltet med reol angivelse DMax

Me.feltnavn = DMax("[feltnavn]", "Tabelnavn")+1

Deredfter en betingelse der måler om tælleren har nået 12, så nulstiller du tælleren f.eks. således.

If Me.feltnavn = 12 then
Me.feltnavn = 0
end if

jeg har ikke modtaget din mail?~)

...men du kan løse dit problem ved at oprette alle hylder 1 gang i din tabel og så i din formular, fjerner du muligheden for at slette og at oprette ny post. Så kan du klikke igennem hylderne, se hvad der er og skrive/overskrive i posten!~)

Derudover kunne du lave en hovedformular, hvor du vælger reol og så har du din nuværende formular, som underformular. Lav den fortløbende og sæt egenskab for over/underformular til reol. Så vil du kunne vælge en reol og så med det samme se hele reolen!~)

Okay tak for de fine svar muligheder....

Jeg har sendt en mail til dig nu, var mig som havde skrevet din adresse forkert:)

Søren

På din form: Oplysninger om aktiv_reservedelslager

Har jeg lavet din placeringscombo om til 2 kolonner med rowsource:

SELECT Aktiver_reservedelslager.Placering, Sum(Aktiver_reservedelslager.[Antal dæk]) AS [SumOfAntal dæk] FROM Aktiver_reservedelslager GROUP BY Aktiver_reservedelslager.Placering HAVING ((Not (Aktiver_reservedelslager.Placering) Is Null)) ORDER BY Aktiver_reservedelslager.Placering;

..og så har jeg sat flg. koder på after update events på antal_dæk og placering:

Private Sub Antal_dæk_AfterUpdate()
DoCmd.Save
DoCmd.RunCommand acCmdRefreshPage
Me.Placering.Requery
End Sub

Private Sub Placering_AfterUpdate()
DoCmd.Save
DoCmd.RunCommand acCmdRefreshPage
Me.Placering.Requery
End Sub

Jeg sender den lige tilbage!~)

Hey Spg

Tusind tak for hjælpen, glæder mig til at se hvad du har fundet ud af:)

Godt nytår til jer alle

Hey Spg

Ikke for at stresse dig men ville du sende databasen tilbage til mig eller???

Søren

fik du aldrig databasen?~)