Office: (Office 2007) Materialdatenbank

Stadtbub · 10. April 2016

Und wieder funktioniert es nicht -,-

Ich merke das ist definitiv nur was für Profis *frown.gif*

Das Suchformular in 10 Minuten ist bei mir nach 2 Stunden noch immer nicht am Laufen....

ich habe es angepasst und nun sieht der Code so aus :

Code:

Option Compare Database
Option Explicit

Private myCriteria As String

Private Function Filterbedingung() As String
Dim ArgCount As Integer

' Initialisiere die Argumentenzahl.
ArgCount = 0
myCriteria = ""
'*************************************************************************
' Nur hier muß man die Zeilen anpassen:
' Variable1 = Feldname im Formular in dem das Suchwort eingegeben wird
' Variable2 = Feldname im Formular der gefiltert werden soll
' (Feld aus der Datenbank)
' Variable3 = Typ zum Angeben des Datenfeldes
' 1 = Datum
' 2 = String, alle die das Suchwort entahlten, egal wo
' 3 = Zahl
' 4 = String, findet nur die die genau übereinstimmen
' 5 = ja/nein vom Typ Boolen
' Optional bAnd = Hier kann man dann noch angeben ob man die Kriterien mit
' AND (True) oder OR (False) verknüpfen möchte.
' Wenn Argument bAnd weggelassen => mit AND verküpft.
' Beispiel:
' SQLString Me!Sucheingabefeld, "Datenfeld", mycriteria, ArgCount, _
' 2, False
' => Hier wird mit OR (Oder) verknuept.
' Beliebig erweiterbar, wenn man beispielsweise 5 Felder filtern
' will muß man die folgende Zeile gerade 5 mal kopieren und anpassen
'*************************************************************************
' SQLString Variable1, Variable2, mycriteria, ArgCount, Variable3
'*************************************************************************
SQLString Me!ArtikelnummerSuchen, "Artikelnummer", myCriteria, ArgCount, 4

' Falls kein Kriterium spezifiziert wurde, gebe alle Datensätze zurück.
If myCriteria = "" Then myCriteria = "True"
Filterbedingung = myCriteria
End Function

Private Sub BtnFilterOff_Click()
Me.FilterOn = False
myCriteria = "" 'Nur wenn ihr die Variable Global speichert
Me!ArtikelnummerSuchen = Null
Me!GrundartikelSuchen = Null
Me!SpenderSuchen = Null
Me!LagerortSuchen = Null
Me!AusgabeortSuchen = Null
End Sub

Private Sub BtnFilterOn_Click()
Me.Filter = Filterbedingung
Me.FilterOn = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider kommt ein Fehler :

Gelb hinterlegt ist Private Function Filterbedingung() As String und es steht da :

Fehler beim Kompilieren : Sub oder Function nicht definiert

Weiß wer einen Rat ?

MaggieMay · 10. April 2016

Und wo und wie hast du die Prozedur "SQLString" gespeichert?

Stadtbub · 10. April 2016

Äh... wie ?

ich hab den Code aus dem Forum.... da stand jetzt nichts von SQL speichern oder so ??

*EDIT*
ERLEDIGT....ich hab das Modul vergessen zu kopieren -.-

aaaargh !!!

Stadtbub · 10. April 2016

Gut leider dann doch noch eine Nachfrage zu diesem Suchformular...

wie bekomme ich es nun hin, das die Sucher "verfeinert" wird....sozusagen er mit die Ergebnisse aus mehreren Suchkriterien anzeigt ?

Ich möchte zb. Artikel 1 nur im Lagerort 2 anzeigen lassen.... ich habe leider von VBa nicht viel Ahnung und bin im Trial and Error Verfahren.

fredfred · 10. April 2016

SQLString Me!ArtikelnummerSuchen, "Artikelnummer", myCriteria, ArgCount, 4
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Indem du eine weitere Zeile in der gleichen Art und Weise für den Lagerort hinzufügst.

Stadtbub · 12. April 2016

Dankeschön allen Helfern *biggrin.gif*

Es klappt wie gewünscht *wink.gif*

*** Thread closed ***