PDA

Vollständige Version anzeigen : nach mehreren kriterien suchen


Hanna
26.01.2001, 11:22
hallo

also mein problem:
ich will in meiner datenbank nach verschiedenen kriterien in verschiedenen feldern suchen und dazu auch
platzhalter verwenden können.
wär für hilfe sehr dankbar!

hanna :-)

Sascha Heller
26.01.2001, 11:36
Hallo, es gibt unter VBA den Befehl DoCmd.ApplyFilter siehe Hilfe.

DoCmd.ApplyFilter, "[Name] = Sascha" & "[Nachname] = Heller" & "....." & "....."

Hanna
26.01.2001, 11:42
danke,
hätt da aber noch eine frage:
kann ich diese kriterien auch per formular
eingeben, und wenn ja, wie?

Nockenwelle
26.01.2001, 12:14
Hallo,

klar kannst du. Mit dem Formularbasierten Filter. Schau in der Symbolleiste nach dem Trichter. Links daneben liegt normlerweise das Icon für den Formularfilter.
Da kannst du eingeben was du willst
*Meier*
Null
Nicht Null

etc.

Cu

Hanna
26.01.2001, 12:28
danke, habs gleich probiert funktioniert leider nicht! gibts nicht irgendwo eine beispieldatenbank wo dies gezeigt wird? oder
was könnt ich sonst noch machen?

Sascha Heller
26.01.2001, 12:51
Also wenn du über ein formular gehen willst - wäre es am besten, wenn du ein zweites Formular anlegen würdest mit all deinen SuchFeldern. (Ja/nein) (Textfelder) usw. dieses Formular darf aber keine Beziehung zur Tabelle haben! Wenn du die Oberfläche gestalltet hast geht es in VBA. Setzte dem Formular einen Such-Bouton hinzu und wenn dieser gedrückt wird - wird der Filter zusammen gestezt. etwa so

Private Sub Suchen_Click()
Dim Abfrage As Boolean
Dim strFilterText As String

Const Fehler_keinKreterium = "No Companies Selected!"

Abfrage = False


'Abfrage des Kombifeldes Firma
If cboFirmaSuche <> "" Then
'Filter definieren
strFilterText = "[Company Name] = '" & cboFirmaSuche & "'"
'Abfrage starten
Abfrage = True
End If

'Abfrage starten?
If (Abfrage = True) Then
'SuchMaske schliessen
DoCmd.Close

'FormularKontrolle offen oder geschlossen?
If Not (SysCmd(acSysCmdGetObjectState, acForm, SuchForm) <> 0) Then
DoCmd.OpenForm SuchForm
End If

'MsgBox strFilterText

'Filter aktivieren
DoCmd.ApplyFilter , strFilterText

Else
MsgBox Fehler_keinKreterium, vbOKOnly + vbSystemModal + vbCritical, "i2-b"
End If
End Sub

Hoffe dass, du damit etwas anfangen kannst!

Sasch

Hanna
27.01.2001, 15:55
vielen dank für die mühe, werds gleich mal probieren!

cu hanna