Verwenden von DLOOKUP mit Formatdate

Ich versuche, dlookup zu verwenden, um zu sehen, ob ein Datum bereits in einer Tabelle ist, das Format korrekt ist, wie ich überprüft habe und es richtig eingibt, kann es einfach nicht richtig für DLOOKUP.Verwenden von DLOOKUP mit Formatdate

Datelookup = DLOOKUP ("[todays_date]", "119_review", "[todays_date] = Format ("" & Me.Combo87 & " " & Me.Combo89 &" 20" & Me.Combo91 & "", medium)")

Combo87 ist der Tag des Monats Combo89 ist der Monat Combo91 ist die letzten zwei Ziffern des Jahres

Quelle

2017-09-11 user2002716

Try this:

Sub DL() 
    Dim d As Date 
     d = DateSerial(Me.Combo91.Value, Me.Combo89.Value, Me.Combo87.Value) 
    Datelookup = DLookup("[todays_date]", "119_review", "[todays_date] = #" & Format(d, "Medium") & "#") 
End Sub

Quelle

2017-09-11 18:11:09

Typ stimmt nicht überein. Wäre das, weil das Jahr nur die letzten 2 Ziffern zeigt? Also setzt es 17 und nicht 2017. – user2002716

Versuchen Sie jetzt, hatte die Datumsteile (Jahr, Monat, Datum) inkorrekt. Das 2-stellige Jahr wird automatisch hinzugefügt, aber Sie müssen das Datum möglicherweise als "MM/TT/JJJJ" formatieren. –

Sie verwenden können:

Datelookup = DLookup("[todays_date]", "119_review", "[todays_date] = DateSerial(" & Me.Combo91 & ", " & Me.Combo89 & ", " & Me.Combo87 & ")")

wo DateLookup wird Null für "nicht gefunden" sein.

Und benennen Sie Ihre Steuerelemente zu etwas sinnvoll.

Quelle

2017-09-11 20:09:51 Gustav

Ich endete mit 'code'If DLookup (" [todays_date] "," 119_review "," [todays_date] = # "& Format (" "& Me.Combo87 &" "& Me.Combo89 &" 20 " & Me.Combo91 & "", Medium) & "#")> 0 Dann 'code' was für mich funktioniert, es sucht die Tabelle und findet heraus, ob das Datum schon in der Tabelle ist. – user2002716

wenn ich debugge das sofortige Fenster zeige 'Code UPDATE 119_review SET Earned_Income = 262 UND Earned_income_withcal = 258,4 WO [todays_date] = 9/13/2017; 'aber es ist nicht die Tabelle aktualisieren überhaupt, was ich denke, ist, weil das Datum in der Tabelle als 13-Sep-17 und nicht 9/13/2017 – user2002716

Verwenden Sie die Antwort zur Verfügung gestellt wird. Es funktioniert - wie das Kriterium liest "" [todays_date] = DateSerial (17, 9, 13) ". – Gustav

Verwenden von DLOOKUP mit Formatdate

Antwort

Verwandte Themen