Datum till Kombinationsruta

[mitec]

Hejsan

 

Jag har följande tabeller:

Artiklar ID;Modell;Referens

Material ID;Modell(Uppslag frånArtiklar);...;Serienummer

Historik_Material: ID;Serienummer(Uppslag från Material);Datum;Anteckning

 

Ett formulär (Materialsökning) med följande kontroller:

 

Kombinationsruta: Serienummer

Textruta: Modell

Kobinationsruta: Datum

Textruta: Anteckningar

 

Vi har massor av olika modeller och dessa listas i Artiklar tillsammans med art. nr.

Material är en tabell med alla enheter som finns ute i maskiner runt om.

Historik_Material används för att spara anteckningar om varje enhet, reparationer, utbytt,... Samt vilket datum detta är gjort.

 

Varje enhet kan ju ha flera anteckningar med olika datum, utlånad, tillbaka i lager, monterad hos... o.s.v.

 

Nu vill jag att mitt formulär skall göra följande:

 

I Serienummer får jag välja serienummret på den enhet jag vill visa. Löst

I Modell visas vilken Modell för det valda serienummret Löst

I Datum vill jag nu se en lista av tillfällen då en anteckning gjorts för denna enhet; och sedan visa denna anteckning i Anteckningar.

 

Förslag?

MVH

Mikael B.

[MickeF]

Ett formulär (Materialsökning) med följande kontroller:

 

Kombinationsruta: Serienummer

Textruta: Modell

Kobinationsruta: Datum

Textruta: Anteckningar

 

...

 

I Datum vill jag nu se en lista av tillfällen då en anteckning gjorts för denna enhet; och sedan visa denna anteckning i Anteckningar.

 

 

Hur många tecken kan anteckningarna bestå av? 50; 255 eller är det ett PM-fält?

Kan du bifoga en skärmdump på formuläret?

[mitec]

Hejsan!

 

 

Hur många tecken kan anteckningarna bestå av? 50; 255 eller är det ett PM-fält?

Anteckningar är PM-format.

 

 

Kan du bifoga en skärmdump på formuläret?

Försöker förtvivlat, men får inte till det:(

 

 

Följande kod fyller i Modell:

 

 

Private Sub Serienummer_combo_Change()

Me.Modell_text = DLookup("[Modell]", "Artiklar", "[iD] = " & Int(DLookup("Modell", "Material", "[serienummer] = '" & Me.Serienummer_combo & " ' ")))

End Sub

 

 

Är helt grön på Access så det finns säkert nåt smartare sätt att göra det på...

 

Mikael B.

[MickeF]

Försöker förtvivlat, men får inte till det:(

 

1) PrtScreen-knappen

2) Starta Paint (windows)

3) CTRL-V

4) Spara till skrivbordet

5) Bifiga bild (strax till höger om smiley när du skriver inlägg)

[mitec]

Tack! Problemet var att filen var för stor...

Materialsökning.bmp

[MickeF]

Inte säker på hur du menar men skrev ihop ett förslag på lösning

 

 

Samt en variant med listrutor som först listar alla anteckningar

 

Hur det ser ut efter datum valts

 

Dom två olika databaserna finns i filen www.accesskonsult.se/databaser/Mitec.zip

 

Edit: la till en bild

[mitec]

Uppenbarligen förstod du exakt vad jag menade, detta var på pricken det jag var ute efter.

 

Ser att jag faktiskt var inne på rätt spår då med att ta fram datumen med en fråga.

 

Tusen tack, nu kommer jag vidare:)

MVH

 

Mikael B

[MickeF]

Uppenbarligen förstod du exakt vad jag menade, detta var på pricken det jag var ute efter.

Vilken variant gillar du bäst, komboboxarna eller listboxarna?

Fördelarna med listboxar är att det blir med överskådligt och kan hanteras med färre klick. Nackdelen är att dom tar mer plats.

 

Ser att jag faktiskt var inne på rätt spår då med att ta fram datumen med en fråga.

Mmm

 

Ofta kommer man rätt nära en bra lösning om man bara tänker på vad man vill ha för resultat:

Tex:

1. Jag vill kunna välja en komponent
2. Sedan vill jag se händelser en speciellt datum (eftersom det kan finns många händelser)

 

Såg förresten en liten bugg. Koden som körs när man väljer ett serienummer ska ha en rad till. Så att ev vald historik avmarkeras

 

Private Sub chkSerienummer_AfterUpdate()
chkDatum = Null
chkDatum.Requery
lstHistorik = Null
lstHistorik.RowSource = "qryHistorik"
End Sub

Det är den tredje raden som har lagts till

lstHistorik = Null

[mitec]

Vilken variant gillar du bäst, komboboxarna eller listboxarna?

 

Personligen gillar jag komboboxar bäst, men det ger sig nog när man börjat använda databasen vilket som blir smidigast.

 

 

 

Ofta kommer man rätt nära en bra lösning om man bara tänker på vad man vill ha för resultat:

 

Japp det gäller ju att del upp problemen.

 

Mitt problem som gröngöling är nog mest att veta när jag ska använda de olika möjligheterna. Fråga, uppslag, VBA, makro... Men det är bara att jobba på så man lär sig.