Dan probeer ik dat nog even uit te leggen
. Het gaat, neem ik aan, om dit stukje:
Code:
Do While Not MijnBestand = ""
ReDim Preserve DB(i)
DB(i) = MijnBestand
i = i + 1
MijnBestand = Dir
Loop
De variabele DB is een
matrix variabele. Dat is een variabele die meerdere waarden (in 'lagen' zeg maar) kan bevatten. Zie het als een flatgebouw, waar voor elke nieuwe bewoner (waarde) een nieuwe etage (dimensie) bovenop wordt gebouwd. Een matrix moet altijd worden gedefinieerd. Dat doe je met het Dim commando. Dus met Dim (DB(2) geef je aan dat de matrix 2 of 3 waarden kan bevatten. Die laatste opmerking kun je alleen snappen als je weet hoe die variabele begint met vastleggen. Daarvoor zijn twee opties: met 0 of met 1. Dat moet je specifiek vastleggen in de db. Als je wilt dat de matrix met 1 begint, moet je bovenaan in de module de regel
Option Base 1 neerzetten. Dan levert DB(2) dus 2 plaatsen op. Laat je de Option Base weg, dan begint de matrix bij 0, en heb je dus 3 waarden (DB(0), DB(1) en DB(2)).
Vaak weet je van tevoren niet hoeveel plekken je nodig hebt. In een functie die op een query is gebaseerd, kan het aantal records wisselen en lees je een map uit, zoals nu, dan kan het aantal bestanden variëren. In dat geval heb je een matrix nodig die je kan aanpassen. Dat doe je door de matrix iets anders te definiëren, namelijk met
Dim DB() (As Variant). Nu heeft de matrix nog geen dimensie, en ga je die zelf bepalen. Meestal doe je dat door in een lus zaken uit te lezen, en de dimensie steeds met één te verhogen, zoals ook in de code gebeurt.
Dat opnieuw bepalen doe je met ReDim en een getal. Redim heeft één nadeel: het gooit alle oude waarden ook gelijk weg. Dus als je een variabele vult, en steeds de waarde verhoogt, is dat niet handig want dan kun je op het eind weer opnieuw beginnen. Vandaar dat je de opdracht moet uitbreiden met Preserve. Hiermee geef je aan dat de matrix moet worden vergroot, met behoud van de eerdere waarden.
Je begint dus met een platte variabele, met één opslagplaats. i is namelijk 0 als je begint met de code. De regel
ReDim Preserve DB(0) doet dan in beginsel dus hetzelfde als
ReDim DB(0). Bij de volgende bestanden
moet je
ReDim Preserve DB(1) en
ReDim Preserve DB(2) gebruiken, omdat de matrix dus anders geleegd wordt.
Fouten hierbij onstaan op het moment dat je niet precies weet of je met 0 of met 1 moet beginnen. Je kunt nooit buiten de maximale of minimale dimensie werken, dus als je DB(1) probeert te vullen in een matrix die alleen DB(0) kent, dan gaat het fout. Andersom ook: als je
Option Base 1 gebruikt
moet i met 1 beginnen en niet met 0.
Hopelijk is het nu wat duidelijker!
