Label verschijnen/verdwijnen

[royvdh65]

Vraagje wat betreft het laten verschijnen of verdwijnen van een Label.
Ik wil een label hebben dat verschijnt met de tekst 'niet toegestaan' als de waarde van het textveld 01 of 05 is, in alle andere gevallen moet dit tekstveld niet verschijnen. De code die ik nu heb is:

If Not recJob.EOF Then
Status = recJob.Fields("CODEPOSITION")

If Status = "01" Or "05" Then
LabelNietToegestaan.Visible = True
Else: LabelNietToegestaan.Visible = False
End If

Else
MsgBox "Geen records gevonden"
End If

Ik heb de eigenschappen van het tekstveld al aangepast als niet zichtbaar wanneer het form op is gestart, dit werkt ook. Maar wanneer ik een opdracht uitvoer dan verschijnt het Label elke keer ook wanneer het niet hoort.
Verder heb ik ook al andersom beredeneerd, maar dit werkte dus ook niet, dus:

If Status <> "01" or "05" then
LabelNietToegestaan.Visible = False
Else: LabelNietToegestaan.Visible = True

 

[Tardis]

Het belangrijkste vertel je niet.
En wel welke gebeurtenis(sen) je gebruikt.

PS ik zou hier zeker geen apart tekstveld/label voor gebruiken maar een MsgBox.

Tardis

 

[royvdh65]

Ik heb een form met een Invoerveld/combobox hierbij kun je een serviceordernr invoeren en op een knop klikken en adhv hiervan wordt gezocht wat de status is (via een sql join). Deze status verschijnt in een tekstvak, wanneer de status 01 of 05 is moet er geen mgsbox verschijnen en in alle andere gevallen wel. Een Msgbox is trouwens beter en mooier ja. Het probleem dat ik heb is dat er wel een msgbox verschijnt maar deze verschijnt ook als de status 01 of 05 is, dus in alle gevallen. Code:

Dim dbs As Database
Dim recJob As Recordset
Dim strSQL As String

Set dbs = CurrentDb()

strSQL = "SELECT dboServiceOrder.No_, dboMasterData_1.CODEPOSITION " & _
"FROM (dboServiceOrder INNER JOIN dboMasterData ON dboServiceOrder.No_ = dboMasterData.[NAV ItemCode]) INNER JOIN dboMasterData AS dboMasterData_1 ON dboMasterData.LinkedJobNo = dboMasterData_1.[NAV ItemCode] " & _
"WHERE dboMasterData.TableCode = 'SERV_ORD' AND dboMasterData_1.TableCode = 'JOB_QZI' AND dboServiceOrder.No_ = '" & ServOrdNr & "'"


Set recJob = dbs.OpenRecordset(strSQL, dbOpenDynaset)

If Not recJob.EOF Then
Status = recJob.Fields("CODEPOSITION")
If Status <> "01" Or "05" Then
'LabelNietToegestaan.Visible = True
'Else: LabelNietToegestaan.Visible = False
'End If
'If Status <> "01" Or "05" Then
'MsgBox "Niet Toegestaan"
'End If


Else
MsgBox "Geen records gevonden"
End If

 

[Tardis]

Dit

If Status <> "01" Or "05" Then

gaat qua constructie never nooit niet werken.
Probeer zelf eens te verzinnen wat de juiste constructie zou moeten zijn.

Tardis