Problemstilling: Jeg skal have lavet en funktion, som kan tjekke om 11-timersreglen er overholdt. I tabellen TURNUS er der gemt oplysninger omkring hvornår arbejdsdagene afvikles:
Jeg forestiller mig af posterne læses ind i et array via en forespørgsel, hvor posterne sorteres efter UGE, DAG og START. Herefter jeg tjekker om der minimum 11 timer mellem sluttidspunktet i række ”n” og starttidspunktet i række ”n+1”. (i den sidste række sammenlignes SLUT med START i første række)
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
SELECT passende_vb_funktion(TURNUS1.SLUT,TURNUS2.START) FROM TURNUS AS TURNUS1, TURNUS AS TURNUS2 WHERE TURNUS1.UGE=TURNUS2.UGE AND (TURNUS1.DAG+1)=TURNUS2.DAG;
Det er ikke forespørgslen der volder mig problemer, men det at få data fra forespørgslen via et recordset over i et array, hvor jeg herefter kan bruge data i en række beregninger!!
Du vil altså have at vide hvordan du i VB: - erklærer et antal arrays - åbner et recordset med en simpel SELECT * FROM tabel - laver en løkke der så længe der er data læser fra record over i arrays ?
Dim a(10) As Integer Dim b(10) As Integer Dim ix As Integer Dim rs as RecordSet Set rs = CurrentDb.OpenRecordset("SELECT * FROM tabel") ix = 0 While Not rs.EOF a(ix) = rs!a b(ix) = rs!b ix = ix + 1 rs.MoveNext Wend
vil hente to integer felter a og b over i et array.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
