22. oktober 2004 - 13:49Der er
6 kommentarer og 2 løsninger
afkryds uger
Hej
Jeg har en db med nogle blade i, disse blade udkommer X antal gange om året.
Jeg har en tabel, navn på blad og andet info. Tabel med ugenr. 1-53 tabel med år 2004-2030 samt en tabel der skal indeholde bladid, uge og år
Jeg har så lavet en formular hvor jeg kan skrive de generelle oplysninger om bladet. Jeg vil nu gerne have at man kan afkrydse hvilke uger bladet udkommer, fx. uge 1, 6, 20, 28, 35, 48, 50 Disse uger er så kun i år 2004, og i år 2005 er det måske nogle andre uger bladet udkommer i.
Lav en tabel der viser hvilke uger der kan anvendes i de forskellige år.
Når man så har valgt året puttes de mulige uger ind i en ListBox hvor brugeren så kan vælge fra denne liste. Overførslen af ugerne skal se så snart året er valgt.
Du kunne lave relations mellem bladtabellen og Ugetabellen. Lav et felt i Ugetabellen som hedder Bladid. I stedet for at sætte et X i Ugetabellen, så skriv Bladid-nummeret i Bladid-feltet(Ugetabellen). Når du så laver forspørgsler mv, så er de uger der tilhører bladdet koblet sammen.
Ud fra denne tabel kan du lave et udtræk der kun består af årene 2004 og 2005. Dem sætter du ind i en ListBox. Når brugeren har valgt år, laver du et udtræk af alle uger der hører til dette år fra ovenstående tabel. Disse uger sætter du ind i den anden ListBox, hvorfra brugeren så kan vælge ugenummeret
tolveren > har tabellen som indeholder ugenr, aar, og bladid hvor den skriver /eller gerne skulle skrive hvilke uger bladet udkommer det pågældende år. Men ved bare ikke helt hvordan det skal opbygges, så man kan vælge ugerne og så opdatere, eller fravælge uger og så opdatere.
japping > Hvordan får jeg den til at opdatere listboxen med uger, efter jeg har valgt år?
Det skal være sådan at man kan vælge mellem alle uger i året, og ikke kun nogle bestemte.
har lavet noget af det. Har lavet 53 afkrydsningsboxe en til hver uge, når man så sætter et kryds i en af ugerne tilføjer den uge, aar og bladid til tabellen omdeling, når man fjerner et kryds sletter den linien fra tabellen.
Nu er spørgsmålet så, når man vælger aar i en listebox, hvordan får jeg den så til at afkrydse de uger som bladet udkommer i. Ugerne står i tabellen omdeling.
Når jeg vælger år kører den flg. kode igennem: Do While a < 53 iAntal = DCount("*", "omdeling", "[aar]='" & sAar & "' And [uge]='" & a & "' And [bladid]='" & sBladid & "'") If (iAntal = 1) Then Me.uge1 = -1 '*** Me.uge1 skal skifte til uge2, uge3 osv. Else Me.uge1 = 0 '*** Me.uge1 skal skifte til uge2, uge3 osv. End If iAntal = 0 a = a + 1 Loop
Men hvordan får jeg me.uge1 til at skifte hver gang, så der kommer til at stå uge2, uge3, uge4 osv.
fik det til at virke: Do While a <= 53 iAntal = DCount("*", "omdeling", "[aar]='" & sAar & "' And [uge]=" & a & " And [bladid]='" & sBladid & "'") If (iAntal = 1) Then Me("uge" & a) = -1 'Kommer til at hedde Me.uge1, Me.uge2 osv. Else Me("uge" & a) = 0 'Kommer til at hedde Me.uge1, Me.uge2 osv. End If iAntal = 0 a = a + 1 Loop
Spørgsmålet lukkes nu
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.
