StartComputerusefull VBA & SQL Functions for MS ACCESS

usefull VBA & SQL Functions for MS ACCESS

-

tricks & functions that helped me a lot doing my praxisprogram. I also got a lot of help from the internet, so I can pay back

 

Scenario: User wants to search the Database for 1 … X tokens (like Fulltextsearch in google) –> build SQL-Search-String

‘builds a WHERE sentence consisting of several WHERE Fulltext-searchstrings 

Function KomplexesWHEREKriterium(SuchString As String, DatenbankFilterFeld As String, Optional TrennZeichen As String = ” “) As String
Dim i As Long, j As Long, a() As String, s As String, ss As String
If pos(TrennZeichen, SuchString) <> 0 Then
a = Split(SuchString, TrennZeichen)
For i = 0 To UBound(a)
s = IIf(s <> “”, s + ” AND “, “”) + “([” + DatenbankFilterFeld + “] LIKE ” + DoTK(“*” + (a(i)) + “*”) + “)”
Next
Else ‘nur ein Text
s = “[” + DatenbankFilterFeld + “] LIKE ” + DoTK(“*” + SuchString + “*”)
End If
ss = ” WHERE (” + s + “) “
KomplexesWHEREKriterium = ss
End Function

 

Google-ZENSUR!

Google zensiert meine Homepage ganz ordentlich, es ist mir tw. selber nicht möglich Artikel von mir bei Google zu finden. Desswegen bitte zum Newsletter anmelden und diesen an Freunde oder per Facebook teilen sowie die Suchfunktion innerhalb meiner Website verwenden. Folgen sie mir auch auf Twitter, dort kündige ich wichtige Artikel auch an.

Kommentieren Sie den Artikel

Bitte geben Sie Ihren Kommentar ein!
Bitte geben Sie hier Ihren Namen ein

×