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
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
Hallo,
Da NULL das Unbestimmte ist, kannst du damit nichts vergleichen. Du
kannst nur feststellen ob dieser Zustand vorliegt oder eben nicht.
If IsNull(Me.cboSelectFirmaEmail) Then
gruss ekkehard
Tja...
Danke für die schnelle Antwort ekkehard
Schöne Grüße aus Lüneburg
Harry