05. december 2009 - 14:40Der er
9 kommentarer og 1 løsning
Dato udsøgning vba
Jeg benytter i øjeblikket til at søge efter cpr nummer og oplysninger pr. en dato:
Private Sub Kommandoknap24_Click()
Dim SQLStr As String
If Me![Cpr nummer] <> "" Then SQLStr = SQLStr & "[cpr nummer] like '*" & Me![Cpr nummer] & "*' And " End If If Me![Oplysninger pr] <> "" Then SQLStr = SQLStr & "[oplysninger pr] <= #" & Format(Me![Oplysninger pr], "yyyy-mm-dd") & "# And " End If If Len(SQLStr) = 0 Then DoCmd.OpenForm "Stamoplysninger" DoCmd.Close acForm, "medarbejderudsøgning" Else SQLStr = Left(SQLStr, Len(SQLStr) - 5) DoCmd.OpenForm "Stamoplysninger", , , SQLStr DoCmd.Close acForm, "medarbejderudsøgning" End If End Sub
Problemet er, at datoudsøgningen finder alle poster som har en dato der er ældre end udsøgningsdatoen, hvor jeg vil have den kun skal finde den nyeste, så jeg får vist de gældende oplysninger pr. den dato. Hvordan skal koden se ud hvis det skal kunne lade sig gøre.
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Nej. Hvis jeg søger på datoen 1-11-09, så skal posten med nyeste dato frem til 1-11-09, komme frem. F.eks. hvis der er poster med 1-1-07, 1-1-08, 1-1-09 og 1-1-10, så skal ovenstående udsøgning finde posten 1-1-09.
And I'm still busy. Actually I think after looking at your dB it required quite a lot of work to get what you wanted.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.