Vullen van meerdere velden in frm
- Onderwerp starter bverhoof
- Startdatum
- Status
OctaFish
Verenigingslid
- Lid geworden
- 6 feb 2009
- Berichten
- 43.695
- Besturingssysteem
- Windows 10/MacOS
- Office versie
- Office 365
Je wilt de prijs zien in een los tekstveld als je een artikel kiest? Daarvoor zijn 2 oplossingen, waar je in ieder geval even over moet nadenken.
Wat is het probleem? als je artikelen verkoopt, heb je in beginsel genoeg aan het artikelID in de bestellingentabel. Op basis van ArtikelID kun je namelijk altijd de prijs opzoeken van het artikel. Probeem echter, is dat je daarmee de prijs dynamisch maakt. Als je dus de prijs verhoogt of verlaagt, dan gebeurt dat automatisch ook in de eerder geleverde orders. En dat mag uiteraard niet, want dan klopt je boekhouding niet meer.
Dat kun je dus op 2 manieren oplossen: a) door de prijs die op het moment van bestellen geldt op te nemen in de order tabel, of b) een tabel te gebruiken waarin je de prijsmutaties bijhoudt. In het laatste geval kun je de juiste prijs altijd terugvinden van de bestelling.
De tweede oplossing is het lastigst te maken, dus meestal kiezen mensen voor de eerste oplossing. Die houdt dus in dat je in je tabel Orders twee velden gebruikt: ArtikelID en Prijs. De prijs moet dan gevuld worden op het moment van artikel kiezen. Dus een actie <Bij Klikken> van de keuzelijst cboArtikel die in de actie het veld Prijs vult met bijvoorbeeld deze opdracht:
(2) is uiteraard een gok; normaal gesproken is de eerste kolom het ArtikelID, de tweede de Artikelnaam en de derde de prijs.
Wat is het probleem? als je artikelen verkoopt, heb je in beginsel genoeg aan het artikelID in de bestellingentabel. Op basis van ArtikelID kun je namelijk altijd de prijs opzoeken van het artikel. Probeem echter, is dat je daarmee de prijs dynamisch maakt. Als je dus de prijs verhoogt of verlaagt, dan gebeurt dat automatisch ook in de eerder geleverde orders. En dat mag uiteraard niet, want dan klopt je boekhouding niet meer.
Dat kun je dus op 2 manieren oplossen: a) door de prijs die op het moment van bestellen geldt op te nemen in de order tabel, of b) een tabel te gebruiken waarin je de prijsmutaties bijhoudt. In het laatste geval kun je de juiste prijs altijd terugvinden van de bestelling.
De tweede oplossing is het lastigst te maken, dus meestal kiezen mensen voor de eerste oplossing. Die houdt dus in dat je in je tabel Orders twee velden gebruikt: ArtikelID en Prijs. De prijs moet dan gevuld worden op het moment van artikel kiezen. Dus een actie <Bij Klikken> van de keuzelijst cboArtikel die in de actie het veld Prijs vult met bijvoorbeeld deze opdracht:
Code:
Me.Prijs.Value = Me.cboArtikel.Column(2)test db
zie voor bijlage resultaat ben ik bijna tevreden mee echter vraag: is het mogelijkBekijk bijlage test.rarBekijk bijlage test.rar in de valuta velden een euro teken erbij te krijgen
gr en thnx bernard
zie voor bijlage resultaat ben ik bijna tevreden mee echter vraag: is het mogelijkBekijk bijlage test.rarBekijk bijlage test.rar in de valuta velden een euro teken erbij te krijgen
gr en thnx bernard
OctaFish
Verenigingslid
- Lid geworden
- 6 feb 2009
- Berichten
- 43.695
- Besturingssysteem
- Windows 10/MacOS
- Office versie
- Office 365
Ik kan geen rar bestanden openen op het werk, dus als ik er overdag naar moet kijken, dan graag een zipje maken. Je vraag zelf lijkt mij simpel op te lossen door het tekstveld waar de berekeningen in staan op te maken met de Valuta notatie. Al dan niet zelf ingetypt.
test db
Bekijk bijlage test.zip
vlgs mij had ik alle eigenschap velden aangepast voor euro teken
maar op een of andere reden lukt het me niet dit visueel te krijgen
Bekijk bijlage test.zip
vlgs mij had ik alle eigenschap velden aangepast voor euro teken
maar op een of andere reden lukt het me niet dit visueel te krijgen
OctaFish
Verenigingslid
- Lid geworden
- 6 feb 2009
- Berichten
- 43.695
- Besturingssysteem
- Windows 10/MacOS
- Office versie
- Office 365
Hardnekkig, inderdaad 
Je kunt dit eens proberen, waarbij je de tekstvelden dus niet-afhankelijk maakt.
In het voorbeeld heb ik dus 2 nieuwe tekstvelden erbij gezet met de resp. objectnamen.
Overigens zag ik dat je in de db gebruik maakt van een berekend veld..... Daarmee scoor je bij mij geen pluspunten.
Je kunt dit eens proberen, waarbij je de tekstvelden dus niet-afhankelijk maakt.
Code:
Private Sub Keuzelijst0_Click()
Me.txtPrijs = Format(Me.Keuzelijst0.Column(1), "Currency")
Me.txtPrijsEx = Format(Me.Keuzelijst0.Column(2), "Currency")
End SubOverigens zag ik dat je in de db gebruik maakt van een berekend veld..... Daarmee scoor je bij mij geen pluspunten
.
OctaFish
Verenigingslid
- Lid geworden
- 6 feb 2009
- Berichten
- 43.695
- Besturingssysteem
- Windows 10/MacOS
- Office versie
- Office 365
Dat is een belangrijke reden; een andere is dat je nu dataredundantie hebt (dubbele gegevens), wat nergens voor nodig is, en (zeker niet de minst belangrijke) je raakt in één keer alle compatibiliteit met andere database systemen kwijt. Upgraden naar SQL server bijvoorbeeld kan nu niet. Hou alles netjes genormaliseerd en volgens de officiële database structuren. Het Microsoft Access Ontwikkelteam heeft geen flauw benul van hoe een database hoort te werken... Ik verdenk ze ervan dat er een vette bonus staat op de ontwikkelaar die de grootste onzin in de volgende nieuwe versie weet te krijgen. We hebben daar in ieder geval al een hoop flauwekul aan overgehouden .
.- Status
