Null en toch waarde

[JEPEDEWE]

ik schrijf:

Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.scan) = True Then
Me.Scanknop.Enabled = False
End If
End Sub

op het formulier staat effectief een waarde in "Scan" en toch blijkt de waarde Null te zijn

Hoe leg je zo iets uit

Merci

 

[edmoor]

En wat voor een object is Me.scan?

 

[JEPEDEWE]

Me.scan is een tekstveld dat met een veld gelinkt is

 

[edmoor]

Ik vind het een vreemde test.
Waarom niet zo:
Me.Scanknop.Enabled = Not IsNull(Me.scan)

Of:
Me.Scanknop.Enabled = Me.scan <> ""

 

[JEPEDEWE]

ook dat werkt niet...

 

[NoellaG]

En je kan altijd kijken wat er werkelijk in Me.scan zit door voor de testlijn in de code:

Debug.print me.scan

toe te voegen

 

[JEPEDEWE]

me.scan blijkt null te zijn
terwijl ik de inhoud zie staan in het formulier

Hoe zot is dat
Zeker door die corona

 

[edmoor]

Al Me.scan een tekst veld is moet je dan niet me.scan.Text gebruiken?

 

[JEPEDEWE]

als ik schrijf

Private Sub Form_Open(Cancel As Integer)
Debug.Print Me.scan.Text
Me.Scanknop.Enabled = Not IsNull(Me.scan.Text)
End Sub

dan krijg ik
"U kan alleen verwijzen naar een eigenschap of een methode voor een besturingselement als het besturingselement de focus heeft"

 

[edmoor]

Ik bedoel dit:
Me.Scanknop.Enabled = Me.scan.Text <> ""

Dat zou in Excel zo zijn.

 

[Pletter]

Zou het bij aanwijzen doen

Private Sub Form_Current()
If IsNull(Me.Scan) Then
Me.Scanknop.Enabled = False
Else: Me.Scanknop.Enabled = True
End If
End Sub

 

[NoellaG]

in access heeft een control geen eigenschap .text, wel .value, maar ik denk niet dat daar het probleem zit. Als je de inhoud ziet staan en me.scan is leeg vermoed ik dat de control waar de tekst in staat een andere naam heeft.
Probeer eens de inhoud van me.scan aan te passen. Bv. maak een knop met in het event Onclick: me.scan = "blablabla" en kijk op je formulier wat er gebeurt.

 

[edmoor]

Ok, weer wat geleerd

 

[OctaFish]

Private Sub Form_Current()
     Me.Scanknop.Enabled = Not Me.Scan.Value = VbNullstring
End Sub

Al geprobeerd?
Of:

Private Sub Form_Current()
     Me.Scanknop.Enabled = Not Me.Scan.Value & "" = VbNullstring
End Sub