route99
Meubilair
- Lid geworden
- 5 aug 2017
- Berichten
- 7.876
- Besturingssysteem
- Windows & Linux
:thumb:Voorbeeldje hier neer zetten wellicht?
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
:thumb:Voorbeeldje hier neer zetten wellicht?
Ik loop het formulier wel een keer goed door.Ultieme oplossing?? laat maar komen hoor
Dim dt As Date
Dim tmp
Dim aantal As Integer
Dim RS As Recordset
dt = DateSerial(Year(g!Beh_datum), Month(g!Beh_datum), Day(g!Beh_datum))
SQL = "SELECT DATA.*, DATA.KODELANG, DATA.DATUM FROM data WHERE Kodelang= """ & g!KODELANG & """ AND DATUM=CDate(" & CDbl(dt) & ");"
Set RS = db.OpenRecordset(SQL)
RS.MoveFirst
RS.MoveNext
RS.MoveFirst
aantal = RS.RecordCount
Do Until RS.EOF
RS.Edit
RS!GETUIGTHER = f!peut
RS!OFFEUSTHER = f!beh
RS.Update
RS.MoveNext
Loop
UPDATE DATA SET CODE = "560011", GETUIGTHER = "A", OFFEUSTHER = "A" WHERE Kodelang= "210312490061" AND DATUM=CDate(43227);
SELECT CODE, GETUIGTHER, OFFEUSTHER FROM DATA WHERE [Kodelang] = "210312490061" AND [DATUM]=CDate(43227)
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.