Kein Exit Sub , obwohl Bedingungen erfüllt sind

[Umbauwfb]

Hallo,

ich beiße mir gerade wieder an einem Problem die Zähne aus...

Eigentlich müsste im nachfolgenden Code die MessageBox geöffnet werden und Exit Sub greifen...
macht es aber nicht...das Formular wird geöffnet...
Was mache ich falsch??? Ich habe alles mögliche durchprobiert...auch mit "" oder mit dem auskommentierten varResult...

Vielen Dank für die Hilfe
Harry

Code [Auswählen] Erweitern

Private Sub cmdEmailFirma_Click()

'Dim varResult As Variant'
' varResult = IIf(IsNull(Me.cboSelectFirmaEmail), Me.cboSelectFirmaEmail.Value, Null)
                 
       
        If Me.cboSelectFirmaEmail.Value = Null Then     'Die ComboBox hat den Wert Null
            MsgBox "Kein Unternehmen vorhanden"      'Trotzdem läuft der Code durch...mit oder ohne .Value
            Exit Sub
        End If
           
        DoCmd.OpenForm "frmMailsMitAttachmentEinzelFirmaF"      'Das Formular wird geöffnet
       
End Sub

[Beaker s.a.]

Hallo,
Da NULL das Unbestimmte ist, kannst du damit nichts vergleichen. Du
kannst nur feststellen ob dieser Zustand vorliegt oder eben nicht.

Code [Auswählen] Erweitern

If IsNull(Me.cboSelectFirmaEmail) Then
gruss ekkehard

[Umbauwfb]

Tja...
Danke für die schnelle Antwort ekkehard

Schöne Grüße aus Lüneburg
Harry