informaticahelp
Gebruiker
- Lid geworden
- 19 jan 2011
- Berichten
- 5
Beste mensen,
wij hebben, het liefst snel, hulp nodig met een access database.
Wij willen zodra je het startnummer invoert hij gelijk de voornaam, tussenvoegsel en de achternaam zelf invult vanuit een tabel.
Ook willen wij rij "starttijd" veranderen in een keuzelijst met verschillende "series" wanneer een serie geselecteerd wordt. Dit moet zo gebeuren dat de "tijd" nog wel uitgerekend kan worden. Nu is de formule als volgt:
Private Sub Keuzelijst_met_invoervak16_AfterUpdate()
' De record zoeken die overeenkomt met het besturingselement
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Startnummer] = " & Str(Nz(Me![Keuzelijst met invoervak16], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me!Tijd = Format(Now() - [starttijd], "long time")
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub
De tijd wordt dus berekend volgens de formule Tijd = Tijd nu - Starttijd
Nu moet een bepaalde starttijd automatisch gebruikt worden voor een bepaalde serie.
Serie 1 begint bijvoorbeeld om 08:00 maar de bedoeling is dat alleen de serie ingevoerd moet worden d.m.v. een keuzelijst, de starttijd moet daar automatisch bij geselecteerd worden.
Hoe koppel je dus de serie en starttijd aan elkaar?
Alvast heel erg bedankt!
M.v.g.
wij hebben, het liefst snel, hulp nodig met een access database.
Wij willen zodra je het startnummer invoert hij gelijk de voornaam, tussenvoegsel en de achternaam zelf invult vanuit een tabel.
Ook willen wij rij "starttijd" veranderen in een keuzelijst met verschillende "series" wanneer een serie geselecteerd wordt. Dit moet zo gebeuren dat de "tijd" nog wel uitgerekend kan worden. Nu is de formule als volgt:
Private Sub Keuzelijst_met_invoervak16_AfterUpdate()
' De record zoeken die overeenkomt met het besturingselement
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Startnummer] = " & Str(Nz(Me![Keuzelijst met invoervak16], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me!Tijd = Format(Now() - [starttijd], "long time")
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub
De tijd wordt dus berekend volgens de formule Tijd = Tijd nu - Starttijd
Nu moet een bepaalde starttijd automatisch gebruikt worden voor een bepaalde serie.
Serie 1 begint bijvoorbeeld om 08:00 maar de bedoeling is dat alleen de serie ingevoerd moet worden d.m.v. een keuzelijst, de starttijd moet daar automatisch bij geselecteerd worden.
Hoe koppel je dus de serie en starttijd aan elkaar?

Alvast heel erg bedankt!
M.v.g.