Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: 69304

69304 (Level 1)

08.12.2008, aktualisiert 10.12.2008, 11047 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
VB for Applications

Access: Spalten ist Anzahl Wenn größer NULL

gelöst Frage von Pilger83VB for Applications11 Kommentare

Hallo zusammen, kurze Frage, wahrscheinlich mega simpl aber komm einfach nicht drauf auch mit google nicht. habe in Access ...

Microsoft Office

Access Abfrage Sotieren

Frage von charmeurMicrosoft Office2 Kommentare

Hallo Ihr da ich blutiger nichts wisser in Access bin wende ich mich an euch ich möchte so eine ...

Peripheriegeräte

Verwendung von drei SATA 3 LAufwerken 5,25 Zoll

gelöst Frage von Novum23Peripheriegeräte6 Kommentare

Guten Abend, ich habe derzeit drei ungenutzte Laufwerke 5,25 Zoll (alle SATA) rumliegen, ich würde diese gern in ein ...

Microsoft Office

ACCESS - Problem - Bericht - Abfrage

Frage von caschoplMicrosoft Office6 Kommentare

Hallo, ich möchte eine kleine Datenbank für unsere Handy und Mobilverträge erstellen, damit wir diese einfach besser Verwalten können. ...

Neue Wissensbeiträge
Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 8 StundenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 14 StundenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Microsoft Office

MS Office 2019 ohne OneNote - OneNote App speichert nur in Cloud

Information von Deepsys vor 1 TagMicrosoft Office4 Kommentare

Microsoft zeigt deutlich wohin alles bei Ihnen geht, OneNote 2019 wird es nicht mehr geben, und die Windows 10 ...

Humor (lol)

Warum man sein Gast-WLAN nicht beliebig nennen sollte

Erfahrungsbericht von Henere vor 2 TagenHumor (lol)5 Kommentare

Servus, mal was aus dem Alltag. Zu Hause. Eigentlich wollte ich nur einen weiteren WLAN-AP ins Netz bringen, damit ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
Server SSD: NVMe PCIe 3.0 RAID?
Frage von bouneeFestplatten, SSD, Raid15 Kommentare

Hallo liebe Admins, mir stellt sich gerade die Frage, ob ein neuer Server mit SSD NVMe PCIe 3.0 Sinn ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

Windows 10
Windows 10 Startmenü-Einstellungen Systemweit festlegen
Frage von flotautWindows 1013 Kommentare

Guten Morgen liebe Admins, wir möchten bei uns am Lehrstuhl demnächst auf Windows 10 umsteigen. Wir installieren unsere PC's ...

LAN, WAN, Wireless
OpenVPN Client Fehlermeldungen
Frage von chris84LAN, WAN, Wireless12 Kommentare

Hallo Zusammen, wir nutzen seit kurzem einen neuen Router und den OpenVPN Client. Die VPN Verbindung klappt; allerdings kommen ...