Toon posts:

[ACCESS] Veld updaten

Pagina: 1
Acties:

Verwijderd

Topicstarter
Hallo, ik zit met een klein vraagstukje waar ik niet uit kom.

Ik heb 3 velden , res : veld1 , veld2, veld3

Veld3 is een veld waar de huidige datum in komt te staan.
Nu wil ik graag dat indien ik iets in veld1 of veld2 verander, dan veld3 weer automatisch de nieuwe datum (van vandaag) meekrijgt.

Heeft iemand enig idee hoe zoiets te realiseren is?
Waarschijnlijk wel met VB

  • BtM909
  • Registratie: Juni 2000
  • Niet online

BtM909

Watch out Guys...

een stukje code attachen aan het onChange Event van veld 1 en veld2.

Ik hoop trouwens dat je wel andere beschrijvende namen hebt gekozen voor je db :X

Ace of Base vs Charli XCX - All That She Boom Claps (RMT) | Clean Bandit vs Galantis - I'd Rather Be You (RMT)
You've moved up on my notch-list. You have 1 notch
I have a black belt in Kung Flu.


Verwijderd

Topicstarter
BtM909 schreef op 04 juni 2004 @ 11:51:
een stukje code attachen aan het onChange Event van veld 1 en veld2.

Ik hoop trouwens dat je wel andere beschrijvende namen hebt gekozen voor je db :X
zijn andere name hoor,
maar wil het ff makkelijk houden betreft uitleg :P

Ik nu zoiets als : =[Aanvraagdatum]=Date()
bij onchange staan..
maar volgens mij mis ik wat

[ Voor 13% gewijzigd door Verwijderd op 04-06-2004 12:42 ]


  • Boss
  • Registratie: September 1999
  • Laatst online: 21:50

Boss

+1 Overgewaardeerd

Ke moet het in de VBA code zetten achter het event, niet direct bij de properties. (tenminste, ik denk dat je dat gedaan hebt).

The process of preparing programs for a digital computer is especially attractive, not only because it can be economically and scientifically rewarding, but also because it is an aesthetic experience much like composing poetry or music.


  • NetForce1
  • Registratie: November 2001
  • Laatst online: 27-08 22:38

NetForce1

(inspiratie == 0) -> true

Boss schreef op 04 juni 2004 @ 16:07:
Ke moet het in de VBA code zetten achter het event, niet direct bij de properties. (tenminste, ik denk dat je dat gedaan hebt).
en die = vooraan moet dan ook ff weg

De wereld ligt aan je voeten. Je moet alleen diep genoeg willen bukken...
"Wie geen fouten maakt maakt meestal niets!"


Verwijderd

Topicstarter
ik heb nu het volgende :


code:
1
2
3
4
5
6
Private Sub Kenteken_Change()

[Aanvraagdatum] = Date

 
End Sub


nu werkt dat echter wel,
alleen het veld aanvraagdatum word niet direct gewijzigd.
(dit gebeurd wel als ik even access minimaliseer en weer omhoog haal)

Is er dus ook een manier om het veld aanvraagdatum na de wijziging te refresen?

[ Voor 46% gewijzigd door Verwijderd op 07-06-2004 09:22 ]


  • NetForce1
  • Registratie: November 2001
  • Laatst online: 27-08 22:38

NetForce1

(inspiratie == 0) -> true

volgens mij kan dat met requery oid

De wereld ligt aan je voeten. Je moet alleen diep genoeg willen bukken...
"Wie geen fouten maakt maakt meestal niets!"


Verwijderd

Topicstarter
NetForce1 schreef op 07 juni 2004 @ 09:46:
volgens mij kan dat met requery oid
Ik kom alleen niet uit via welke string ik dat moet doen..
ben beetje vba noob :X

ik heb voor de refresh :

code:
1
DoCmd.Requery [Aanvraagdatum]


Maar dat werkt niet

[ Voor 19% gewijzigd door Verwijderd op 07-06-2004 10:04 ]


Verwijderd

Me.Aanvraagdatum.Repaint ?

Verwijderd

Topicstarter
Verwijderd schreef op 07 juni 2004 @ 11:51:
Me.Aanvraagdatum.Repaint ?
ook dat werkt niet

  • Boss
  • Registratie: September 1999
  • Laatst online: 21:50

Boss

+1 Overgewaardeerd

code:
1
DoCmd.RunCommand acCmdSaveRecord
misschien?

The process of preparing programs for a digital computer is especially attractive, not only because it can be economically and scientifically rewarding, but also because it is an aesthetic experience much like composing poetry or music.


Verwijderd

Topicstarter
Boss schreef op 07 juni 2004 @ 13:17:
code:
1
DoCmd.RunCommand acCmdSaveRecord
misschien?
nee, werkt ook niet

  • Lustucru
  • Registratie: Januari 2004
  • Niet online

Lustucru

26 03 2016

een omweg die -volgens mij- werkt: werk ipv van het veld direct het tekstvak bij:
in het onchangeevent:

ipv
me.aanvraagdatum=date()
me!aanvraagdatum=date().

Nog duidelijker: standaard geeft access de besturingselementen de naam van het onderliggende veld. Verander de naam van het tekstvak in bv ctlAanvraagdatum en maak van je code
me!ctlAanvraagdatum=date()

[ Voor 3% gewijzigd door Lustucru op 07-06-2004 14:34 ]

De oever waar we niet zijn noemen wij de overkant / Die wordt dan deze kant zodra we daar zijn aangeland


  • NetForce1
  • Registratie: November 2001
  • Laatst online: 27-08 22:38

NetForce1

(inspiratie == 0) -> true

Verwijderd schreef op 07 juni 2004 @ 09:52:
[...]


Ik kom alleen niet uit via welke string ik dat moet doen..
ben beetje vba noob :X

ik heb voor de refresh :

code:
1
DoCmd.Requery [Aanvraagdatum]


Maar dat werkt niet
code:
1
2
3
4
5
6
Private Sub Kenteken_Change()

[Aanvraagdatum] = Date
Me.requery
 
End Sub

De wereld ligt aan je voeten. Je moet alleen diep genoeg willen bukken...
"Wie geen fouten maakt maakt meestal niets!"


Verwijderd

Topicstarter
NetForce1 schreef op 07 juni 2004 @ 17:48:
[...]

code:
1
2
3
4
5
6
Private Sub Kenteken_Change()

[Aanvraagdatum] = Date
Me.requery
 
End Sub
ja, maar dan refreshd hij toch de huidige sub? dus het veld "Kenteken"?
Of zie ik dat verkeerd?
Hij moet namelijk wel het veld Aanvraagdatum refreshen.

Overigens krijg ik als ik dat gebruik gezeur over het invoerfilter van het veld Kenteken.

[ Voor 13% gewijzigd door Verwijderd op 08-06-2004 08:41 ]


  • NetForce1
  • Registratie: November 2001
  • Laatst online: 27-08 22:38

NetForce1

(inspiratie == 0) -> true

Me verwijst naar het form waar de code achterhangt. Me.Requery vraagt dus alle velden op het form opnieuw op uit de db

Ik heb eea ff getest, en het volgende moet werken (de datum veranderd ook):
code:
1
2
3
4
5
Private Sub kenteken_BeforeUpdate(Cancel As Integer)

[datum] = Date

End Sub


Dat 'ie bij de vorige oplossing begint te zeuren over het invoermasker klopt, want de sub Kenteken_Change wordt bij iedere verandering uitgevoerd, dus ook als je nog maar een teken getypt hebt.

[ Voor 66% gewijzigd door NetForce1 op 08-06-2004 09:14 ]

De wereld ligt aan je voeten. Je moet alleen diep genoeg willen bukken...
"Wie geen fouten maakt maakt meestal niets!"

Pagina: 1