NT 4.0, Excel 2000.
Hat jemand Erfahrungen mit Parameterabfragen in Query mit
Platzhaltern??
z.B. ich möchte über eine Parameterabfrage den Teil eines
Ortes eingeben, will aber nicht den Ort genau
ausschreiben, sondern event. nur den Anfang.
Ich führe also die Abfrage aus, werde aufgefordert den
Anfang des Ortes einzugeben:
Eingabe: Ma Ergebnis: Mainz
Mannheim usw.
Nächste Abfrage:
Fr Frankfurt
Frauenaurach usw.
Vielen Dank für Eure Mühe!
Gruß Helmut
in Kurzform:
FR* steht in Zelle A1
QuerryOrt=Range("A1")
dann in der Querry Syntax FR durch " & QuerryOrt & "
ersetzen, mit den Anführungszeichen, da ja der SQL in
Anführungszeichen eingeschlossen ist und an dieser Stelle
quasi unterbrochen wird durch den Platzhalter.
z.B. "WHERE (((ORT) = " & QuerryOrt & ")) " _
Grus
Ulrich
vielen Dank für Deine Antwort!
aber: wo definiere ich QuerryOrt=Range("A1")??
in der SQL Abfrage ? oder im VBA Editor? oder ???
Herzlichen Dank
Helmut
>-----Originalnachricht-----
>.
>
--
Grus
Ulrich
Mail to MDLLe...@aol.com
WinXP
OfficeXP
u.v.a.
Rechtschreibfehler sind gewollt und dienen der Belustigung des Lesers
"Helmut" <helmut...@stadt.erlangen.de> schrieb im Newsbeitrag
news:c5e701c25358$54ace680$9ee62ecf@tkmsftngxa05...
> Hat jemand Erfahrungen mit Parameterabfragen in Query mit
> Platzhaltern??
>
> z.B. ich möchte über eine Parameterabfrage den Teil eines
> Ortes eingeben, will aber nicht den Ort genau
> ausschreiben, sondern event. nur den Anfang.
> Ich führe also die Abfrage aus, werde aufgefordert den
> Anfang des Ortes einzugeben:
Hallo Helmut,
ich habe sowas mit VBA folgendermaßen gelöst
---------- 8< ----------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strCell As String
Dim strSQL As String
strCell = "$B$1"
If Target.Address = strCell Then
strSQL = ActiveSheet.Range("$B$1").Value
With ActiveSheet.QueryTables("qryBirthday")
.Sql = Array("SELECT strName, strFirstname, dtmBirthday FROM
tblBirthday WHERE (tblBirthday.strName Like '" & strSQL & "%') ORDER BY
tblBirthday.strName, tblBirthday.strFirstname")
.Refresh BackgroundQuery:=False
End With
End If
End Sub
---------- 8< ----------
Dabei ist zu beachten, daß der Name der Abfrage in meinem Fall "qryBirthday"
heisst. Außerdem mußt Du die Zeilenumbrüche in der .Sql-Zeile entfernen.
Gruß
Thomas
--
__________________________________________________
Thomas Juretzky
D-83134 Prutting
ne...@juretzky.net
http://www.juretzky.net