waarde van vorig record overnemen naar een nieuw record

[Rene71]

misschien stomme vraag
in een sub formulier heb ik een aantal velden
MateriaalID
Aantal
Dikte
eenheid
daarvan wil ik bij een nieuw record de laatst opgeslagen (vorige) waarde overnemen

hoe doe je dat?

als ik bij standaardwaarde van het veld MateriaalId b.v =[MateriaalD] opgeef krijg ik een fout #Fout

 

[OctaFish]

Dat lijkt mij ook, want dat kan natuurlijk niet. Je kunt nooit naar een veld verwijzen, want welk record moet het formulier dan nemen? Ik doe dit soort dingen door de DefaultValue van een veld aan te passen. Met VBA uiteraard.

 

[Rene71]

zou je een voorbeeld kunnen geven? in vba

of moet het iest zijn als

Forms!SubfrmPlaatmateriaal!MateriaalID.DefaultValue = ""[MateriaalID]""

 

[OctaFish]

Beetje lange verwijzing (Me. Is echt korter) en volgens mij een beetje verkeerd gebruik van quootjes, maar dat is wel het idee ja.

 

[Rene71]

dus dan wordt het dit

Me.MateriaalID.DefaultValue = [MateriaalID]

Mag ik dan ook nog vragen bij welke gebeurtenis in het subform dit zou moeten komen te staan
of zet je dit bij elk veld na bijwerken

 

[OctaFish]

Bij de gebeurtenis <Na bijwerken>:

Me.MateriaalID.DefaultValue = Me.MateriaalID

 

[Rene71]

Bedankt OctaFish,

echter ik doe nog iets verkeerd
twee van de vier velden werken
MateriaalID
Aantal

Ditke en Eenheid
geven Na Bijwerken een foutmelding #Naam?

Bij Dikte is het vreemd (althans voor mij) als ik de waarde 1 in geen werkt de code wel,
maar als ik een waarde 1,5 ingeef krijg ik de foutmelding #Naam?

zit er nu een tijdje mee te stoeien maar kom er niet uit
zie jij misschien wat er mis gaat
Bekijk bijlage defaultvalue.rar

 

[Rene71]

Bekijk bijlage defaultvalue2.rar

ik heb tijdje zitten proberen (lees klooien ) maar kom er niet uit

in het formulier werken 2 velden goed
matreriaalID
en aantal
bij dikte, werkt het wel wanneer ik een 1of 2 of 3 ingeef maar wanneer is 1.5 in geef krijg ik een fout #naam?. ??
en Eenheid werkt ook niet

ziet iemand wat ik verkeert doe

 

[OctaFish]

Ik had er al naar gekeken, en ik vermoed dat het komt door de veldinstellingen. Maar ik kijk zo wel even naar je nieuwe voorbeeldje, want die is wellicht anders dan het eerste voorbeeld.

 

[OctaFish]

Om te beginnen is 'verkeert' met een 'd', maar dat lost je Access probleem niet op . Dit wel:

    Me.Dikte.defaultvalue = Replace(Me.Dikte.Value, ",", ".")

 

[Rene71]

t is ook nooid goet

dank u wel OctaFish
werkt perfect

ik ga voor de Eenheid de veld instellingen nog maar eens goed nakijken.

 

[OctaFish]

Eenheid is tekst, dus die moet je met kwootjes opmaken denk ik.

 

[OctaFish]

En dan krijg je dit (wat uiteraard) werkt:

    Me.Eenheid.defaultvalue = """" & Me.Eenheid.Value & """"

 

[Rene71]

Bedankt OctaFish
ik had Me.Eenheid.Value als m,n volgende optie

uiteraard dat je oplossing werkt, daar heb ik nog nooit aan getwijfeld
thanx