[VBA] Access veldwaarde = null

Pagina: 1
Acties:

  • KeeZ
  • Registratie: Februari 2001
  • Laatst online: 25-04-2022

KeeZ

Deze plek is te koop.

Topicstarter
In mijn databeest heb ik devolgende tabel opgenomen :

[sporttypes]
SportID (integer waarden met autonummering)
Sprtnaam (tekst)
[/sporttypes]

om het aantal sporten te tellen maak ik gebruik van een loop met een while do structuur. Om nu deze loop te laten eindigen wil ik graag als voorwaarde sprtnaam = null gebruiken.

Maar, nu mijn probleem. Hij kent Null niet, en ook "" werkt niet... is er een vaste functie voor het tellen van het aantal records, of, is het op een andere manier mogelijk de null waarde vast te leggen ??

Deze plek is te koop.


  • Janoz
  • Registratie: Oktober 2000
  • Laatst online: 28-08 12:00

Janoz

Moderator Devschuur®

!litemod

Waarom gebruik je geen count?

Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'


Verwijderd

edit:

stop je ze in een recordset? Zo ja : recordset.EOF
Laat je while do eens zien


Inderdaad count ja

[ Voor 0% gewijzigd door Verwijderd op 07-11-2002 13:36 . Reden: te snel gelezen ]


  • KeeZ
  • Registratie: Februari 2001
  • Laatst online: 25-04-2022

KeeZ

Deze plek is te koop.

Topicstarter
Verwijderd schreef op 07 november 2002 @ 13:35:
stop je ze in een recordset? Zo ja : recordset.EOF
Laat je while do eens zien
mijn while do loop gebruikt inderdaad als voorwaarde de Recordset.EOF..

Mijn loopje

code:
1
2
3
4
5
6
7
8
9
10
11
12
Function telaantalsporten()
 sportteller = 0
 DoCmd.GoToRecord , , acFirst
 While Not (Me.RecordsetClone.EOF) Or SportNaam = Null
    If Not SportNaam = "" Then
        sportteller = sportteller + 1
    End If
    DoCmd.GoToRecord , , acNext
 Wend
 MsgBox (sportteller)
 
End Function

Deze plek is te koop.


  • KeeZ
  • Registratie: Februari 2001
  • Laatst online: 25-04-2022

KeeZ

Deze plek is te koop.

Topicstarter
oké bedankt...

* KeeZ schaamt zich enorm..

dat had ik zelf ook nog kunnen doen... ben ik anderhalf uur bezig om dit uit te zoeken...

modje, slotje !!

Deze plek is te koop.


  • Force
  • Registratie: Januari 2000
  • Laatst online: 31-07-2023

Force

Kan iemand ff me neus afvegen?

waarom gebruik je geen recordcount
code:
1
2
3
4
5
6
7
8
9
10
11
12
dim db as database
dim tb as recorset
dim sportteller

set db=currentdb
set tb=db.openrecordset("tabelnaam")

sportteller = tb.recordcount

msgbox sportteller

tb.close

Leven is als een pijpkaneel, iedereen zuigt eraan en krijgt zijn deel.

Pagina: 1