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, 10799 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
Microsoft Office
Access Abfrage Sotieren (2)

Frage von charmeur zum Thema Microsoft Office ...

VB for Applications
gelöst Abhängige Dropdown Menüs in Excel (2)

Frage von Zentralenteufel zum Thema VB for Applications ...

Datenbanken
gelöst Access 2010 Abfrage erster Werktag (10)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Server-Hardware
HP DL380 G7: Booten vom USB via USB 3.1-PCI-e Karte möglich? (24)

Frage von Paderman zum Thema Server-Hardware ...

Windows 7
Bluesreens unternehmensweit (19)

Frage von SYS64738 zum Thema Windows 7 ...

LAN, WAN, Wireless
IP Adressen - Modem - Switch - Accesspoint (18)

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

Windows Netzwerk
gelöst DNS ins mehreren Subnetzen (15)

Frage von joerg zum Thema Windows Netzwerk ...