Ik zit met nogal een ambetant probleemke. ik ken dus niets, de ballen van programeren.
En ik moet in access een aantal zaken veranderen.

De prijs van onze artikelen staat op een etiket die wij inscannen in een access database.
Dit werkt perfect, behalve dat de prijs in een soort CODE wordt ingescand.  ANTIOCHUSE, waar A staat voor 1, N voor 2 enz.
nu moet dit automatisch worden aangepast.
Dus ik moet een scriptje proberen te maken om dit getal in letters om te zetten in het respectievelijke getal in cijfers.
Kan iemand mij hier meehelpen ?

Het veld noemt [PRIJS]

mvg

Véronique Brysse

Hi softaid,

de database die bij ons gebruikt wordt is pas nieuw, en wordt door mezelf gemaakt.
Van access heb ik wel genoeg kaas gegeten om zoiets te maken,
daar ben ik zeker niet aan mijn proefstuk toe.
Enkel het gedeelte programmatuur, dus vbscripting dàt gaat mijn petje te boven.

xxx
veronique

Heys,

Hier is het ook zo een beetje leek in access, nog nooit met die databank gewerkt wel met andere.

Ik kan wel een vbscriptje schrijven die dat kan maar om dat dan in te passen in de databank weet ik niet.

is er hier dan niemand die mij kan helpen ?


 

Bedankt Spyder,

ik heb mijn vraag ook daar gepost..

groeten
Véronique

Hoi Véronique,

als ik het goed begrijp staat in je access table een veldje [PRIJS] en daarin staat dan de prijs in die ANTIOCHUSE code. Je zegt

waar A staat voor 1, N voor 2

dus voor het cijfer 7 staat in je table de letter N. Juist?

De bedoeling is om die code om te zetten naar een getal. Maar waar of waneer moet dat gebeuren? Moet er in je table een veldje bijgevoegd worden of moet die prijs in een rapport of etiket vermeld worden?

Laat dat eerst eens weten.
Guido

Dat zijn trukken hé SoftAid, speciaal om te zien of er wel opgelet wordt. (een drukfout bij mij)

Maar ik denk dat Véronique het niet meer nodig heeft want ze reageert zelf niet. Of ze zit ook ergens aan 't strand voor een paar weken.

Guido

Hoi Véronique,

ik heb iets in elkaar geflanst.

In je tabel moet je een veldje bijvoegen "prijscijfers"
Dan moet je een module bijvoegen die de conversie doet van letters naar cijfers. In deze module moet je volgende code zetten:
=====================================
Public Function PrijsC(PrijsL As String) As String
   Dim i             As Integer
   PrijsC = ""
      For i = 1 To Len(PrijsL)
      Select Case Mid$(PrijsL, i, 1)
         Case "A"
            PrijsC = PrijsC & "1"
         Case "N"
            PrijsC = PrijsC & "2"
         Case "T"
            PrijsC = PrijsC & "3"
         Case "I"
            PrijsC = PrijsC & "4"
         Case "O"
            PrijsC = PrijsC & "5"
         Case "C"
            PrijsC = PrijsC & "6"
         Case "H"
            PrijsC = PrijsC & "7"
         Case "U"
            PrijsC = PrijsC & "8"
         Case "S"
            PrijsC = PrijsC & "9"
         Case "E"
            PrijsC = PrijsC & "0"
         Case Else
            GoTo Foutbehandeling
      End Select
   Next i
     Debug.Print PrijsL; " "; PrijsC

   Exit Function
Foutbehandeling:
End Function
=====================================

Vervolgens voeg je een Query toe met volgende code:
=====================================
UPDATE Artikels SET Artikels.prijscijfers = prijsc([prijs]);
=====================================

Als je nu deze query uitvoert dan wordt de inhoud van het veld PRIJS geconverteerd naar cijfers en die waarde wordt in het veld prijscijfers.

In de module kun je enkele statements bijvoegen die uitgevoerd worden indien er foutieve waarde staat in het veld PRIJS.

Ik hoop dat je hier iets mee kunt aanvangen.
Guido