Servus,

folgendes Script habe ich benutzt um in einer Datenzugriffseite mit Hilfe von 2 Kombinationsfeldern meherere Datensätze zu filtern.
Allerdings habe ich nach ausführen des scripts nur ein weißes feld! alle Textfelder sind weg! Kann mal jemand schauen, warum es nicht funktioniert?
Danke!
Tabelle: tbl_Datastore
Auswahl soll key1 und key2 kombifeld denjenigen Datensatz ausgeben, der das in keyword1 und keyword2 spalte der Tabelle enthält.

<SCRIPT language=vbscript event=DataPageComplete(dscei) for=MSODSC>
<!--
'fINited stellt sicher, dass dieser Code nur beim ersten LAden der Seite Ausgeführt wird

If (fInited = False And dscei.DataPage.GroupLevel.Recordsource = "tbl_Datastore") then fInited = true

'Bedingung leere Listenfelder

key1.value = ""
key2.value = ""

'Undo Startband beim Laden der Seite zu unterdrücken

MSODSC.DataPages(0).Undo

End If
-->
</SCRIPT>
<SCRIPT language=vbscript event=onchange for=key1>
<!--
OnFilterComboChange()
-->
</SCRIPT>
<SCRIPT language=vbscript event=onchange for=key2>
<!--
OnFilterComboChange()
-->
</SCRIPT>
<SCRIPT language=vbscript>
'fInited wird nur einmalig ausgeführt
Dim fInited
fInited=False

'Prozedur OnFilterComboChange-Definition
Sub OnFilterComboChange()
Dim stwhere

'Führe erst dann eine Aktion durch,wenn das Listenfeld ausgewählt
If (key1.value <> "" And key2.value <> "") Then stwhere = "Keyword1=" & key1.value & ""
stwhere = stwhere & "And Keyword2='" &key2.value&"' "

'Serverfilter auf das tbl_Datastore-Recordset einstellen
MSODSC.RecordsetDefs.Item("tbl_Datastore").ServerFilter = stwhere

End If

End Sub

alle Antworten zu dieser Frage