Jeg må indrømme at jeg nu har kastet håndklædet i ringen. -Er ikke god til
det her Access.
Her er hvad jeg skal kunne:
Felt 1 : "indtaste EAN stregkodenummer for en varer"
Felt 2 : "indtaste serienummer for varen"
Sådan bliver man så ved...
Derefter skal det være muligt at indtaste EAN nummeret, og derefter få en
kommasepareret rapport med serienumrene.
Tænker det burde være ligetil, med må erkende at jeg ikke kender nok til
det.
Kan nogen hjælpe?
// Baldrian
Dækker EAN nummeret over flere serienumre...???
Kommasepareret rapport !!! - er det ikke ok bare at få en rapport
udskrevet...
Kommasepareret - så tænker jeg på en fil...
>
> Kan nogen hjælpe?
Ja mon ikke...
Bjarne
> Dækker EAN nummeret over flere serienumre...???
Ja. Skal registrere nogle kameramodeller, hvor alle har unike serienumre.
Tænkte at man startede med at oprette varen et sted.
FELT1 : EAN FELT2: Varenavn
Derefter så efterfølgende at registrere
FELT1 : EAN FELT2: Serienummer.
> Kommasepareret rapport !!! - er det ikke ok bare at få en rapport
> udskrevet...
> Kommasepareret - så tænker jeg på en fil...
Skal efterfølgende bruger alle serienumrene for en vare som en lang streng
der er delt af et kamma.
Resultatet skulle f.eks se således ud:
Canon model AX : 1234,1235,1236,1237 osv
Nikon model AB : 2345,2346,2347,2348 osv.
Håber meget på hjælp.
// Baldrian
Har sendt en database til dig...
Bjarne
Nu spørger jeg måske om for meget, men vil du have ulejlighed med at sende
den til en anden mail adresse, da jeg ikke har mulighed for at se den her
angivne før om et par dage?
germojones snabela gmail com
Tak, glæder mig.....
// Baldrian.
Tak Bjarne!
Du har fat i noget, men er ikke helt brugbart, desværre.
Tabellen hvori jeg opretter varerne i, er der ikke noget problem med.
Det kører fint, og skal jo også kun gøres én gang.
Jeg savner en formular med kun 2 felter.
FELT1: EAN FELT2: serienummer
Jeg skal scanne en masse varer med en stregkodescanner for at registrere
serinumrene på de enkelte enheder.
Jeg kan godt lave tabelen og formularen, men forstår ikke helt hvordan jeg
får de to tabeller til at tale sammen.
Det er vigtigt for mig at jeg kan se i rapporten hvilke varenavn der er tale
om. (kan ikke huske stregkoderne for samtlige produkter i hovedet) samt alle
serienumrene for den enklte vare. Disse serienumre skal være adskilt af
komma, da de skal copy/pastes ind i et prg. der udelukkende vil læse det
sådan.
Savner altså et resultat der kunne se sådan ud:
---
Canon model AA:
12345,12346,12347,12348,12389,
Canon model AB:
23456,2347,2348
---
Nu har jeg (igen) kæmpet i flere timer, og er blevet en smule klogere, men
der er desværre al for lang vej for mig.
Har du mod på at kigge på det igen?
//baldrian
Har lavet sådan, at dine data ligges i en fil...c:\ean.txt
Klik på knappen i den form der åbnes...
Bjarne
Det er super.
Eneste problem er at jeg ikke kan indtaste EAN numre på de normale 13 cifre.
Kan få lov til at taste EAN på 10 cifre (hvis tallet ikke er for stort)
Kan man ikke i den ean.txt der bliver genereret få vist varenavn i stedet
for EAN?
Jeg takker mange gange for den fine hjælp!
//baldrian
Har ændret datatypen til Tekst, da du jo ikke skal beregne på tallene...
Så kan du indtaste 50 tal eller bogstaver...
> Kan man ikke i den ean.txt der bliver genereret få vist varenavn i stedet
> for EAN?
Jo, det er lavet i den fil jeg sender til dig...
> Jeg takker mange gange for den fine hjælp!
Selv tak...
Bjarne
Dog har jeg et ønkse som nu er opstået.
I rapporten ean.txt ; er det muligt at man kan se antallet af serienumre, så
man ikke skal tælle dem manuelt.
I min videre brug af disse serienumre, skal jeg nemlig angive antal enheder,
samt serienumre til disse.
Der kan f.eks være flere hundre serienumre tilknyttet en vare. Det ville
være lidt besværligt at skulle tælle dem manulet.
Jeg ved godt at det er uden for opgaven, men desværre først noget jeg har
tænkt på nu.
Eksempel:
VareNavn-kamera2 (antal:5)
2222,2223,2224,2225,2226
Kan det lade sig gøre?
Sætter virkelig pris på din hjælp!
//baldrian
Ja, er lavet...
> Eksempel:
> VareNavn-kamera2 (antal:5)
> 2222,2223,2224,2225,2226
>
> Kan det lade sig gøre?
Ja, er lavet...
> Sætter virkelig pris på din hjælp!
Hvad skal du egentlig bruge dette lille projekt til...???
Bjarne
>> Eksempel:
>> VareNavn-kamera2 (antal:5)
>> 2222,2223,2224,2225,2226
>>
>> Kan det lade sig gøre?
>
> Ja, er lavet...
Så lader det til at virke efter hensigten. Det er bestemt brugbart, og vil
være en kæmpe hjælp.
> Hvad skal du egentlig bruge dette lille projekt til...???
Skal bruges i salgskonkurrence rapportering. Vi skal indrapoortere antal
solgte enheder (kameraer) med tilhørende serienumre.
I dag skriver vi disse i hånden på et stykke papir, hvorefter vi
efterfølgende indtaster dem (når tiden haves) i et onlineskema fra f.eks.
Canon.
Der er mange modeller, og endnu flere serienumre at holde styr på. Med dette
værktøj scannes EAN samt Serienummer ved salget, og kan derefter copy/paste
alle serienumrene til indrapportering. Det letter arbejdsdagen en hel del.
Endnu engang mange tak for din store hjælp!
//baldrian.
Selv tak, sender lige en optimeret udgave til dig...
Bjarne
Tak.
Er det muligt at lave linieskift efter hver vare. Mere for overskuelighedens
skyld.
Altså som f.eks:
Varenavn=kamera1(2)
11111111111111111111,22222222222222222222,
Varenavn=kamera2(1)
22222222222222222222,
Varenavn=kamera3(1)
3333333333333333333,
Jeg vil gerne undvære EAN i rapporten ean.txt. Varenavnet er tilstrækkeligt,
og EAN nummeret fylder derfor unødigt.
Men som sagt ville et linieskift gøre det nemmere at aflæse.
Ovenstående er kun hvis du har tid og lyst, da det andet du har lavet for
mig er fint brugbart. Jeg er meget taknemmelig.
// baldrian
Her er koden...
Sql = "Select * From tblVareNavn"
Rs.Open Sql, Cnn
Do Until Rs.EOF
Sql = "Select * From tblSerieNummer Where EAN_='" & Rs("EAN") & "'"
Rs1.Open Sql, Cnn
Tael = 0
Do Until Rs1.EOF
Tael = Tael + 1
Kommastreng = Kommastreng & Rs1("SerieNummer") & ","
Rs1.MoveNext
Loop
If FSO.FileExists(FilePath) Then
Set FSOFile = FSO.OpenTextFile(FilePath, ForAppending, True)
FSOFile.WriteLine ("Varenavn=" & Rs("VareNavn") & "(" & Tael &
")" & vbCrLf & Kommastreng & vbCrLf)
FSOFile.Close
End If
Kommastreng = ""
Rs1.Close
Rs.MoveNext
Loop
Rs.Close
Bjarne
Så skulle den ged være barberet...
Bjarne