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

VBA in Access - IF Verzweigung

Frage Entwicklung Datenbanken

Mitglied: EXXON

EXXON (Level 1) - Jetzt verbinden

08.02.2006, aktualisiert 09.02.2006, 6489 Aufrufe, 7 Kommentare

Probleme mit if-verzweigung

Hallo,

ich hab nen Problem mit folgender if Verzweigung:

If Me!Identcode.Value = DLookup("Identcode", "Scandaten") Then
MsgBox "Achtung: Wert ist doppelt"
Else
DoCmd.RunMacro "Speichern"
End If

Also wenn die Schleife ausgeführt wird, wird jedesmal das Makro ausgeführt egal ob der if Wert True oder False ist ohne das die Message-Box ausgeführt wird. Kann mir jemand dabei helfen das die MsgBox ausgeführt wird wenn der if wert true ist?

Vielen dank im Vorraus,

Matthias
Mitglied: verkehrsberuhigt
08.02.2006 um 16:21 Uhr
Also wenn die Schleife ausgeführt wird,
wird jedesmal das Makro ausgeführt egal
ob der if Wert True oder False ist

Das zu glauben fällt mir schwer...
Vielmehr denke ich, dass Du beim DLOOKUP-Aufruf noch ein (Vergleichs-)Kriterium angeben musst.
Aber mit einem DEBUG sollte das doch schnell zu klären sein?!
Bitte warten ..
Mitglied: EXXON
09.02.2006 um 10:12 Uhr
kannst du mir vieleicht mal den syntax mit nem beispiel geben? ich weiß nicht wo da der fehler sein könnte.

Erklärung zu den Gegebenheiten:
also in das feld identcode wird eine zahl eingegeben welche in der tabelle Scandaten im Feld Identcode nachgeschaut werden soll und mit dem identcode.value verglichen werden soll.
Bitte warten ..
Mitglied: verkehrsberuhigt
09.02.2006 um 10:28 Uhr
Hallo

kannst du mir vieleicht mal den syntax mit
nem beispiel geben? ich weiß nicht wo
da der fehler sein könnte.

Ich will es versuchen...
Zu Beginn würde ich folgendes versuchen:

Vorhanden = DLookup("Identcode", "Scandaten", "Identcode = """ & Me!Identcode.Value & """)
If Me!Identcode.Value = Vorhanden Then
MsgBox "Achtung: Wert ist doppelt"
Else
DoCmd.RunMacro "Speichern"
End If

Das geht natürlich eleganter aber ich hoffe, dass es so besser verständlich ist.
Bitte warten ..
Mitglied: EXXON
09.02.2006 um 10:45 Uhr
Vorhanden = DLookup("Identcode", "Scandaten", "Identcode = """ & Me!Identcode.Value & """)

verständlich wars schon ;)
aber da kommt ne fehlermeldung bei deinem code in der zeile oben
"Syntaxfehler"

habe aber inzwischen über ne msgbox rausgefunden das der lookup-befehl von mir immer die selbe zahl produziert die nichts mit der anderen (eingegebenen) zahl zu tun hat. Die zahl von me!identcode.value ist richtig!
Bitte warten ..
Mitglied: verkehrsberuhigt
09.02.2006 um 10:57 Uhr
a) Vermutlich fehlt in meiner Zeile ein abschliessenden Anführungszeichen
b) Geliefert bekommst Du vermutlich aus dem ersten Datensatz den Wert aus dem Feld Identcode oder?
Bitte warten ..
Mitglied: EXXON
09.02.2006 um 11:21 Uhr
a) hab ich schon probiert hat aber keinen brauchbaren ergebnisse zurückgeliefert bzw. fehlermeldung
b) nach dem code suche ich: 721427503916 herauskommt: 63604591364
die zahl die herauskommt ist mitten in der tabelle auserdem ist die zahl nur elf Stellen lang anstatt 12 wie es sein sollte (fehler in der tabelle)
so und jetzt hab ich noch fast alle fehlerhaften datensätze rausgelöscht jetzt kommt die zahl 461073421744 raus (das ist der datensatz nr. 43650)
Bitte warten ..
Mitglied: EXXON
09.02.2006 um 14:54 Uhr
so ich habs jetzt doch noch lösen können es muss heißen:
DLookup("[Identcode]", "Scandaten", "[Identcode] = '" & Me!Identcode & "'")
lag irgendwie teilweise dadran das es Text war :rolleyes:
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Datenbanken
gelöst Syntaxfehler VBA Access 2010 (6)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

VB for Applications
gelöst Xml-Datei laden bzw. auf Festplatte kopieren und per VBA in eine Access-Tabelle speichern (22)

Frage von machohunk zum Thema VB for Applications ...

Datenbanken
gelöst Access Report per Email versenden, hat jemand zufällig einen Code dafür(VBA) (7)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (22)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

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

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...