VBA in Access - IF Verzweigung
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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 25512
Url: https://administrator.de/contentid/25512
Printed on: April 24, 2024 at 17:04 o'clock
7 Comments
Latest comment
Also wenn die Schleife ausgeführt wird,
wird jedesmal das Makro ausgeführt egal
ob der if Wert True oder False ist
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?!
Hallo
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.
kannst du mir vieleicht mal den syntax mit
nem beispiel geben? ich weiß nicht wo
da der fehler sein könnte.
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.