Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Access 2003 - Unzulässige Verwendung von Null - Abfrage von 3 DropDown

Frage Microsoft Microsoft Office

Mitglied: 69304

69304 (Level 1)

08.12.2008, aktualisiert 10.12.2008, 10733 Aufrufe, 5 Kommentare

Ein Formular hat 3 DropDows, die von einer anderen Tabelle gefüllt werden. Klappt soweit Prima.

Es soll eine Mail an die User aus den DropDown geschickt werden. Würde auch soweit klappen, aber!

Wenn Feld 2 und/oder 3 leer ist, bekomm ich immer die Meldung "Unzulässige Verwendung von Null"...

Hier mein VBA-Code, vllt sieht ja jemand die Lösung sofort...


01.
Dim Empfaenger1 As String 'Zwischenvariablen 
02.
Dim Empfaenger2 As String 'Zwischenvariablen 
03.
Dim Empfaenger3 As String 'Zwischenvariablen 
04.
   
05.
Dim Empfaenger As String 'Der eigentliche SendTo-String 
06.
   
07.
Empfaenger1 = Me!Bearbeiter1.Value 'Wert aus Formular auslesen 
08.
Empfaenger2 = Me!Bearbeiter2.Value 'Wert aus Formular auslesen 
09.
Empfaenger3 = Me!Bearbeiter3.Value 'Wert aus Formular auslesen 
10.
   
11.
If Not IsNull(Empfaenger1) Then 
12.
  MsgBox ("Bitte mindestens einen Bearbeiter auswählen!!!") 'Sicherheitsabfrage, dass mindestens einer ausgewählt ist! 
13.
Else 
14.
  If Not IsNull(Empfaenger2) Then 
15.
      If Not IsNull(Empfaenger3) Then 
16.
          Empfaenger = Empfaenger1 + ";" + Empfaenger2 + ";" + Empfaenger3 
17.
      Else 
18.
          Empfaenger = Empfaenger1 + ";" + Empfaenger2 
19.
      End If 
20.
  Else 
21.
      Empfaenger = Empfaenger1 
22.
  End If 
23.
End If 
24.
   
25.
DoCmd.SendObject , "", "", Empfaenger, "mail@adresse.de", Null, "Betreff", "!!! TEST TEST TEST !!!", False
Gruß,
René.
Mitglied: dog
08.12.2008 um 20:42 Uhr
Das letzte mal, dass ich mit VB gearbeitet hat war das Concatenation-Zeichen noch &:

01.
  Empfaenger = Empfaenger1 & ";" & Empfaenger2 
Vielleicht hilft das?
Bitte warten ..
Mitglied: 69304
09.12.2008 um 08:07 Uhr
Hallo!

Danke erstmal für die Antwort.

Ich habe alle "+" in "&" geändert - trotzdem noch die selbe Fehlermeldung...

Sonst noch jemand einen Idee?
Bitte warten ..
Mitglied: Bolle97
09.12.2008 um 08:40 Uhr
Hallo,

Variablen vom Type "String" können keine NULL-Werte speichern, eine nicht gefüllte String-Variable prüft man mit <> "" (2 Anführungszeichen hintereinander). Nur Variablen vom Type Variant können Null-Werte speichern.

Gruß - René
Bitte warten ..
Mitglied: Logan000
09.12.2008 um 08:59 Uhr
Moin Moin

01.
... 
02.
If Not IsNull(Empfaenger1) Then  
03.
  MsgBox ("Bitte mindestens einen Bearbeiter auswählen!!!") 'Sicherheitsabfrage, dass mindestens einer ausgewählt ist!  
04.
... 
Müste da nicht das NOT weg? Oder wie mus ich mir das vorstellen?

Später prüfst du zwar ob Empfänger2 & 3 nicht NULL sind, aber Empfänger 1 kann eigentlich nur NULL sein (da ELSE Zweig des obrigen IFs) und das wird bei der Stringverkettung diesen Fehler auslösen.

Gruß L.
Bitte warten ..
Mitglied: 69304
10.12.2008 um 08:38 Uhr
Tja, waren dann doch mehrere Faktoren.

Erstmal alle Variablen als Typ "Variant" deklariert

01.
Dim Nachricht As Variant
Den Code an sich hab ich auch noch so umgestellt:

01.
If IsNull(Empfaenger1) Then 'Wenn Empfaenger1 leer... 
02.
    MsgBox ("Bitte mindestens einen Bearbeiter auswählen!!!") 'Sicherheitsabfrage, dass mindestens einer ausgewählt ist! 
03.
  Else 'Wenn mindestens 1 Empfänger gesetzt ist... 
04.
    If Empfaenger2 <> "" Then 
05.
        If Empfaenger3 <> "" Then 
06.
            Empfaenger = Empfaenger1 & ";" & Empfaenger2 & ";" & Empfaenger3 
07.
        Else 
08.
            Empfaenger = Empfaenger1 & ";" & Empfaenger2 
09.
        End If 
10.
    Else 
11.
        Empfaenger = Empfaenger1 
12.
    End If 
13.
    MsgBox ("DEBUG: Empfaenger: " & Empfaenger) 
14.
    DoCmd.SendObject , "", "", Empfaenger, CC, Null, Betreff, "!!! TEST TEST TEST !!!", False 'SendObejct aus Access (Zum Emails senden) 
15.
  End If
Bitte warten ..
Ähnliche Inhalte
Datenbanken
Access 2010 Pivot Table Export keine Werte (3)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

LAN, WAN, Wireless
Rogue Access Point (21)

Frage von Axel90 zum Thema LAN, WAN, Wireless ...

Neue Wissensbeiträge
Administrator.de Feedback

Umgangsformen auf der Seite

(7)

Information von Frank zum Thema Administrator.de Feedback ...

Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(11)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst Dir tc Befehl unter Windows 10 macht Probleme (14)

Frage von sugram zum Thema Batch & Shell ...

Windows Server
Windows Server 2016 RDS Remoteapp Anzeigefehler (11)

Frage von qlnGenius zum Thema Windows Server ...

Windows Server
Festplatten Ruhezustand Windows Server 2016 (10)

Frage von ahaeuser zum Thema Windows Server ...