Hoe kan ik zien of een query geen records bevat in VBA

Status
Niet open voor verdere reacties.

neleke

Terugkerende gebruiker
Lid geworden
10 okt 2000
Berichten
1.482
Hallo,

De situatie:

Een formulier met subformulier
In het hoofdformulier heb ik enkel niet afhankelijke besturingselementen(hier worden afstanden berekend, een datum opgegeven e.d. en een besturingselement waar een willekeurig getal in komt te staan als IDnummer voor de te bewerken tabellen.

In het subformulier een doorlopend formulier, waar bij ieder record een selectievakje is.
De kopelling van de formulieren is datum<>datum

In het hoofdformulier is een knop die een gebeurtenis in werking stelt.
  • een willekeurig getal aanmaken voor het IDnummer
  • en 2 toevoeg query's uitvoeren.

De eerste query voegt het IDnummer toe aan een tabel.
De tweede query voegt de gegevens van de geselecteerde records + het IDnummer toe aan een 2de tabel.

Tot zover gaat het goed, wanneer er netjes één of meer records in het subformulier zijn aangevinkt.

Nu mijn probleem;
Wanneer er geen record geselecteerd is mogen beide query's niet uitgevoerd worden. Hoe kan ik een controle hierop uitvoeren?

En hoe kan ik controleren voordat de eerste query uitgevoerd wordt of het IDnummer inderdaad uniek is?

Groetjes,
Neleke
 
Laatst bewerkt:
Als je gebruik maakt van een recordset:
Code:
Do while not rst.eof
 ... 'Do your stuff
loop
Testen op "end of file" dus.
 
Het heeft mij even wat gepuzzel gekost, maar jouw manier is wel zo netjes. Ik had zelf een constructie bedacht met DCount, maar dan moest ik de toevoegquery's nog uitvoeren en dat was wat knullig.
Mijn dank is groot :love::D

Groetjes,
Neleke
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan