Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Microsoft Microsoft Office

Mitglied: 69304

69304 (Level 1)

08.12.2008, aktualisiert 10.12.2008, 10915 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
gelöst Abhängige Dropdown Menüs in Excel (2)

Frage von Zentralenteufel zum Thema VB for Applications ...

Peripheriegeräte
gelöst Verwendung von drei SATA 3 LAufwerken 5,25 Zoll (6)

Frage von Novum23 zum Thema Peripheriegeräte ...

Batch & Shell
gelöst Führende Nullen hinzufügen (6)

Frage von Erik72 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Multimedia

Raspberry Pi als Digital-Signage-Computer

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Freigabe aus anderem Netz nicht erreichbar (21)

Frage von McLion zum Thema Router & Routing ...

Windows Server
Kennwort vergessen bei Hyper vserver 2012r (20)

Frage von jensgebken zum Thema Windows Server ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...

Festplatten, SSD, Raid
Raidcontroller funktioniert nur, wenn unter Legacy-Boot gestartet wird (13)

Frage von DerWoWusste zum Thema Festplatten, SSD, Raid ...