AsEeL
Legacy Member
Private Sub Knop47_Click()
Dim rstTblfacturen As New ADODB.Recordset
Dim teller As Byte
rstTblfacturen.ActiveConnection = CurrentProject.Connection
rstTblfacturen.CursorType = adOpenKeyset
rstTblfacturen.LockType = adLockOptimistic
rstTblfacturen.Open "Tblfacturen"
rstTblfacturen.MoveFirst
Do While Not rstTblfacturen.EOF
teller = teller + 1
If rstTblfacturen!Nr = Null Then
rstTblfacturen!Nr = teller
rstTblfacturen.MoveNext
Else
rstTblfacturen.MoveNext
End If
Loop
End Sub
Dus de bedoeling is dat, als er geen waarde in het Veld !Nr staat, hij het nummertje van de teller gaat zetten...
Nu dat werkt allemaal maar volgens access is Null niet gelijk aan Null... dus hij springt altijd naar else voorwaarde, gewoon movenext en vult dus nergens iets in ook al staat er niks in het veld Nr ?????
Dus hoe kan ik dit duidelijk maken:
If rstTblfacturen!Nr = Null Then
rstTblfacturen!Nr = teller
ook al staat er bij de waarde van !Nr Null toch zegt hij dat da niet gelijk is????
Dim rstTblfacturen As New ADODB.Recordset
Dim teller As Byte
rstTblfacturen.ActiveConnection = CurrentProject.Connection
rstTblfacturen.CursorType = adOpenKeyset
rstTblfacturen.LockType = adLockOptimistic
rstTblfacturen.Open "Tblfacturen"
rstTblfacturen.MoveFirst
Do While Not rstTblfacturen.EOF
teller = teller + 1
If rstTblfacturen!Nr = Null Then
rstTblfacturen!Nr = teller
rstTblfacturen.MoveNext
Else
rstTblfacturen.MoveNext
End If
Loop
End Sub
Dus de bedoeling is dat, als er geen waarde in het Veld !Nr staat, hij het nummertje van de teller gaat zetten...
Nu dat werkt allemaal maar volgens access is Null niet gelijk aan Null... dus hij springt altijd naar else voorwaarde, gewoon movenext en vult dus nergens iets in ook al staat er niks in het veld Nr ?????
Dus hoe kan ik dit duidelijk maken:
If rstTblfacturen!Nr = Null Then
rstTblfacturen!Nr = teller
ook al staat er bij de waarde van !Nr Null toch zegt hij dat da niet gelijk is????