[Access] If = true

[Verwijderd]

Ik heb de volgende code welke na een input van een nummer controleert of bij Blacklist_aan een waarde staat. (Ja/Nee) en als deze dan op Ja staat (true/on) dan moet ie de messagebox geven en anders niets!

Wat heb ik fout gedaan. Volgens mij klopt het toch?
als ik = true weg laat verandert er niets aan

code:

Private Sub Zoekenopschoolpasnummer_AfterUpdate()
Dim rs As Object
On Error GoTo fout
Set rs = Me.Recordset.Clone
rs.FindFirst "[Schoolpasnummer] = '" & Me![Zoekenopschoolpasnummer] & "'"
Me.Bookmark = rs.Bookmark
Response = dataerrorcontinue
Exit Sub
fout: MsgBox "Ongeldig schoolpasnummer"

If Me.Blacklist_aan = True Then
  MsgBox "Leerling staat op de blacklist!"
  Exit Sub
End If
End Sub

[OZ-Gump]

Wat dacht je ervan om je if-statement voor de exit sub te zetten? Misschien komt 'ie dan wel in de controle terecht?

En inderdaad, een if BOOLEAN then is gelijk aan if BOOLEAN = TRUE then.

edit:
probeer de volgende keer iets aan uitlijning te doen, dat helpt niet alleen anderen, maar ook jezelf!

[ Voor 24% gewijzigd door OZ-Gump op 31-03-2003 16:13 ]

[Verwijderd]

code:

Private Sub Zoekenopschoolpasnummer_NotInList(NewData As String, Response As Integer)
MsgBox "Ongeldig schoolpasnummer"
Me![Zoekenopschoolpasnummer] = Null
Response = dataerrorcontinue

End Sub

deze code heb ik nu gekopieerd uit een andere access applicatie van me maar nu pakt ie hem niet meer terwijl ie het in die andere wel doet?!

Kijk ik nu verkeerd??

[OZ-Gump]

ga naar de listbox en klik op de event OnNotInList.
Dan koppelt Access de event ook pas werkelijk aan deze box.

Anders is het misschien verstandig dat je een keer iets meer tijd besteedt aan het in elkaar zetten van je vragen, want je bent wel erg afhankelijk van de werkzaamheid van de glazen bol van een ander...

[Verwijderd]

Maar ik heb het juist ook eerst via de listbox gedaan en dan bij event geklikt op NotInList en dan opbouwen. Vervolgens dus

code:

MsgBox "Ongeldig schoolpasnummer"
Me![Zoekenopschoolpasnummer] = Null
Response = dataerrorcontinue

erin geplakt. Maar nu geeft ie dus geen msgbox weer en hij geeft niet Null terug.

[OZ-Gump]

NotInList wordt ook alleen getriggered als er een waarde in een listbox getypt wordt die niet in de lijst staat. Als je dus bijvoorbeeld een tabel aan een listbox hangt met daarin 1, 2 en 3, en je typt er vervolgens 7 in, gevolgd door een <enter>, dan zal de NotInList getriggered worden. Verder zou ik zeggen: gebruik eens een paar breakpoints om in je code te kijken wat er gebeurt en hoe het er gebeurt...

Jou probleem is van een redelijk simpel niveau, maar je schijnt er niet uit te kunnen komen...? Hoeveel ervaring met programmeerwerk heb je? Verder vind ik het erg jammer dat je niks doet met de tips die je gegeven worden in de eerste (antwoord) post.

[Boss]

Waarom gebruik je niet gewoon DCOUNT() en dan bij >= 1 (dus hij bestaat) de melding te geven? Dan heb je geen recordset object nodig wat de boel onnodig complex maakt.

[StevenK]

Je gebruikt je form om door een recordset heen te bladeren. Je wil nu testen op één van de values uit de recordset.

Het lijkt met logischer om die msgbox dan in de AfterUpdate van het betreffende control op het form te stoppen.

[Verwijderd]

Ik heb niet veel ervaring met Access,
maar dit heb ik van mijn docent geleerd op mijn school.

Het probleem is op miraculeuze wijze opgelost. Laptop uitgezet en dag later weer aan en hij werkt. Snap dus niet hoe het komt. Maar alles werkt dus nu.

Bedankt voor alle hulp en mijn excuses voor de eventuele 'overlast'