Office: Probleme mit dlookup

sodah · 14. Oktober 2003

Hi,

habe wieder Syntaxschwierigkeiten:

Code:

Private Sub Form_Current()
Dim strKey As String
Dim varRes As Variant
strKey = "Aktionsdarstellung = '" & Me.Aktionsdarstellung & "' "
varRes = DLookup("ID", "TEventSubZeiten", strKey)
If Not IsNull(varRes) Then
Me!Aktionsname.BackColor = RGB(255, 255, 255)
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bleibt bei DLookup mit folgender Fehlermeldung hängen:
Datentypen in Kriterienausdruck unverträglich. *confused.gif*

Das Formular, wo die Procedure ausgeführt werden soll beruht auf einer SQL-Abfrage:

Code:

SELECT TEventSubZeiten.Datum, TEventSubZeiten.Aktionsdarstellung, TEventSubZeiten.EventID, TEvent.Aktionsname, TEvent.Ort, TKunden.FirmaKurz, TEvent.KundenID, TEvent.Operatoren FROM (TEventSubZeiten INNER JOIN TEvent ON TEventSubZeiten.EventID=TEvent.ID) INNER JOIN TKunden ON TEvent.KundenID=TKunden.ID;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Weiß echt nicht mehr weiter. Ein ähnlicher Syntax läuft bereits erfolgreich in diversen anderen Forms.

:)

Johnny Loser · 16. Oktober 2003

Handelt es sich bei dem Feld Aktionsdarstellung möglicherweise um ein Zahlenfeld? Dann laß die Hochkommata raus.

Code:

strKey = "Aktionsdarstellung = '" & Me.Aktionsdarstellung & "'" 'bei Text
strKey = "Aktionsdarstellung = " & Me.Aktionsdarstellung 'bei Zahl
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

sodah · 16. Oktober 2003

Danke. Hab ich wiedermal vergessen. Funktioniert. *biggrin.gif*

sodah · 16. Oktober 2003

Gewußt wie spart Energy. Eigentlich war ich auf der Suche, nach doppelten bzw. mehrfachen gleichen Einträgen, um diese dann Grafisch hervorzuheben. Hatte die ganze Zeit den falschen Denkansatz.
Und hier ist, Gott sei Dank, die funktionierende Lösung. Nachdem ich mit Dlookup und Findfirst völlig danebenlag *bawling :

Code:

If DCount("*", "TEventSubZeiten", "Aktionsdarstellung =" & Me!Aktionsdarstellung & "And Datum = #" & Format(Me!Datum, "dd\/mm\/yyyy") & "#") > 1 Then
Me!Aktionsname.BackColor = RGB(255, 255, 255)
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Probleme mit dlookup

Probleme mit dlookup

Probleme mit dlookup

Probleme mit dlookup

Probleme mit dlookup - Similar Threads - Probleme dlookup

Probleme mit dem automatisches Inhaltsverzeichnis

Probleme mit bedingter Formatierung

Probleme mit Formatierung in geschütztem Word-Dokument – Schriftstil nicht änderbar

VBA-Makro zur Zellenformatierung Syntax probleme

Probleme mit Makro das jede Zeile in der ein "Text" steht löscht?!

Probleme mit dem Kopieren aus Daten aus OneNote 2016

Dlookup- Probleme