Office: (Office 2003) Und Oder Gleich

Erich290607 · 21. Februar 2011

wie kann ich den Suchbgriff auch mit dem Operator =
finden?

Code:

Set db = CurrentDb
strSuchbegriffe = Split(Me.txtSuchbegriffe, " ")
If Me.ogrVerknuepfung = 1 Then
strOperator = "AND"
Else
strOperator = "OR"
End If
strSQL = "SELECT * FROM tblArtikel WHERE "
For i = 0 To UBound(strSuchbegriffe)
strKriterium = strKriterium & " " & strOperator & " ArtBezeichnung LIKE '*" & strSuchbegriffe(i) & "*'"
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Thomas Möller · 23. Februar 2011

Hallo Erich,

wie kann ich den Suchbgriff auch mit dem Operator = finden?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du ersetzt das LIKE durch ein Gleichheitszeichen und verzichtest auf die beiden Sternchen. Aber so einfach wird Deine Frage nicht gemeint sein - oder?

CU

Maxel · 23. Februar 2011

\@Erich
Code:

For i = 0 To UBound(strSuchbegriffe)
strKriterium = strKriterium & " " & strOperator & " ArtBezeichnung LIKE '*" & strSuchbegriffe(i) & "*'"
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was ergibt denn Debug.Print strKriterium?

Micha_DU · 23. Februar 2011

Aber so einfach wird Deine Frage nicht gemeint sein - oder?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

zu 90 Prozent wird es so gemeint sein... oder aber die Problemstellung ist nicht klar ausgedrückt

Erich290607 · 23. Februar 2011

Hallo Maxel,

habe es so probiert:

Code:

If Len(Nz(Me.txtSuchbegriffe, "")) > 0 Then
Set db = CurrentDb
strSuchbegriffe = Split(Me.txtSuchbegriffe, " ")
If Me.ogrVerknuepfung = 3 Then
strOperator = "="
If Me.ogrVerknuepfung = 1 Then
strOperator = "AND"
Else
strOperator = "OR"
End If
End If
strSQL = "SELECT tblArbeitsfolge.Arbeitsfolge, tblStoerungen.Stoergrund, tblStoerungen.StörDatum," & _
"tblStoerungen.StoerZeitM, tblBereiche.Bereich, tblSchichtarten.Schichtart," & _
"tblMitarbeiterNamen.Name, tblStoerungen.DS_ID, tblStoerungen.StörungID_P," & _
"tblStoerungen.NrJahr , tblMaschine.Bezeichnung " & _
"FROM tblMaschine INNER JOIN (tblMitarbeiterNamen INNER JOIN " & _
"(tblBereiche INNER JOIN (tblArbeitsfolge INNER JOIN (tblSchichtarten INNER JOIN tblStoerungen " & _
"ON tblSchichtarten.SchichtArtID_P = tblStoerungen.SchichtartID_F) " & _
"ON tblArbeitsfolge.ArbeitsfolgeID = tblStoerungen.ArbeitsfolgeID_F)" & _
"ON tblBereiche.BereichID_P = tblStoerungen.BereichID_F) " & _
"ON tblMitarbeiterNamen.MitarbeiterID_P = tblStoerungen.MitarbeiterID_F)" & _
"ON tblMaschine.MaschineID_P = tblStoerungen.MaschinenID_F WHERE "

For I = 0 To UBound(strSuchbegriffe)
strKriterium = strKriterium & " " & strOperator & " Stoergrund LIKE '*" & strSuchbegriffe(I) & "*'"
Next I
Debug.Print strKriterium
strKriterium = Mid(strKriterium, 5)
strSQL = strSQL & strKriterium
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ergebnis Debug.print

Code:

OR Stoergrund LIKE '*Bit*'
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bekomme damit alle Eintragungen ...Bit... vorkommt

bsp. Gegenhaltebit, Bit bleibt hängen usw.

ich möchte ja auch konkret einen Eintrag (Einträge finden)
Code:

strSuchbegriffe = Split(Me.txtSuchbegriffe, " ")
If Me.ogrVerknuepfung = 3 Then
strOperator = "="
If Me.ogrVerknuepfung = 1 Then
strOperator = "AND"
Else
strOperator = "OR"
End If
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Micha_DU · 23. Februar 2011

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

If Me.ogrVerknuepfung = 3 Then
strOperator = "="
If Me.ogrVerknuepfung = 1 Then
strOperator = "AND"
Else
strOperator = "OR"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aus diesem If-Konstrukt würde ich erstmal ein Select-Case machen...

Du zeigst hier mal wieder, dass du eigentlich überhaupt nicht verstehst was du hier machst. AND und OR sind logische Verknüpfungen mit denen du Bedingungen verknüpfst.

Ansonsten hat Thomas dir alles geschrieben was du für dein Problem brauchst. Und es kann nicht dein Ernst sein, dass man dir das auch noch als fertigen Code präsentieren muss.

Thomas Möller · 23. Februar 2011

Hallo Erich,

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

If Me.ogrVerknuepfung = 3 Then
strOperator = "="
If Me.ogrVerknuepfung = 1 Then
strOperator = "AND"
Else
strOperator = "OR"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

IMHO brauchst Du zwei Optionsgruppen zur Erstellung Deines Kriterien-Strings:

In der ersten Optionsgruppe entscheidest Du, ob die Suchbegriffe durch AND oder OR verknüpft werden sollen.

In der zweiten Optionsgruppe lässt Du auswählen, ob die suche mit "=" oder mit "Like" erfolgen soll.

CU

Micha_DU · 23. Februar 2011

In der zweiten Optionsgruppe lässt Du auswählen, ob die suche mit "=" oder mit "Like" erfolgen soll.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jetzt hab ich auch verstanden, was Erich erreichen wollte...

Erich290607 · 24. Februar 2011

Ich Danke euch, nun soll das Ergebniss nach Excel exportiert werden

ich kann Excel öffnen, die erste Seite erstellen und habe nur eine Zeile im Loop*eek.gif*

Code:

Dim tmp, TTD, Addr, rs As DAO.Recordset, _
TransP As Boolean, j As Long, B As Long, St As Long
Dim ANZ6 As Long
Dim ENDEJ As Long
Dim I As Long
Dim I1 As Long
Dim DATNA As String
Dim FELDNA As String
Dim ARA As String
Dim Mysql As String
'######################
Dim Suchbegriffe() As String
Dim strOperator As String
Dim strSQL As String

Dim strKriterium As String
Dim strSuchbegriffe() As String
Dim rst As DAO.Recordset
Dim strKategorie As String
Dim strNummer As String
On Error GoTo FehlerEx2
Err.Clear

On Error Resume Next
Me!DATEINAME2 = "\\SB\Bereich05\SB_Ergebniss.xls"
DATNA = "SB_GC"
Set oExcel = GetObject(, "Excel.Application")
If Err.Number 0 Then
Set oExcel = CreateObject("Excel.Application")
End If
On Error GoTo 0
If Len(Nz(Me.txtSuchbegriffe, "")) > 0 Then
Set db = CurrentDb
strSuchbegriffe = Split(Me.txtSuchbegriffe, " ")
If Me.ogrVerknuepfung = 2 Then
strOperator = "="
If Me.ogrVerknuepfung = 1 Then
strOperator = "AND"
Else
strOperator = "OR"
End If
End If
End If
Mysql = "SELECT tblArbeitsfolge.Arbeitsfolge, tblStoerungen.Stoergrund, tblStoerungen.StörDatum," & _
"tblStoerungen.StoerZeitM, tblBereiche.Bereich, tblSchichtarten.Schichtart," & _
"tblMitarbeiterNamen.Name, tblStoerungen.DS_ID, tblStoerungen.StörungID_P," & _
"tblStoerungen.NrJahr , tblMaschine.Bezeichnung " & _
"FROM tblMaschine INNER JOIN (tblMitarbeiterNamen INNER JOIN " & _
"(tblBereiche INNER JOIN (tblArbeitsfolge INNER JOIN (tblSchichtarten INNER JOIN tblStoerungen " & _
"ON tblSchichtarten.SchichtArtID_P = tblStoerungen.SchichtartID_F) " & _
"ON tblArbeitsfolge.ArbeitsfolgeID = tblStoerungen.ArbeitsfolgeID_F)" & _
"ON tblBereiche.BereichID_P = tblStoerungen.BereichID_F) " & _
"ON tblMitarbeiterNamen.MitarbeiterID_P = tblStoerungen.MitarbeiterID_F)" & _
"ON tblMaschine.MaschineID_P = tblStoerungen.MaschinenID_F WHERE "

For I = 0 To UBound(strSuchbegriffe)
strKriterium = strKriterium & " " & strOperator & " Stoergrund LIKE '*" & strSuchbegriffe(I) & "*'"
Next I
strKriterium = Mid(strKriterium, 5)
Mysql = Mysql & strKriterium
Set db = CurrentDb
Set BD = db.OpenRecordset(Mysql, dbOpenDynaset)

With oExcel

Do While Not BD.EOF
' strKategorie = DLookup("KatKategorie", "tblKategorien", "KatID = " & rst!KatID)
strNummer = DLookup("Stoergrund", "tblStoerungen", "StörungID_P = " & BD!StörungID_P)

' Fortschrittsanzeige auf sichtbar setzen

' Erzeugung des Excel-Sheets sichtbar !!!!!!
.Visible = True

' Erzeugung des Excel-Sheets unsichtbar !!!!
'.Visible = false

On Error Resume Next
tmp = ""
tmp = .ActiveWorkbook.Name
On Error GoTo FehlerEx2
.Workbooks.Add
.ActiveSheet.Name = DATNA

j = 1
B = 1
' Lesen ersten Datensatz des Recordsets

If I = 0 Then
j = j + 1
I = 9
j = 4
.Cells(j, 1) = "Nummer"
.Cells(j, 2) = "Eintrag"
.Cells(j, 3) = "Tag"
.Cells(j, 4) = "Schicht"
.Cells(j, 5) = "Station"
.Cells(j, 6) = "Minuten"
.Cells(j, 7) = "Jahr"

j = j + 1

End If
.Cells(j, 1) = BD!StörungID_P
.Cells(j, 2) = BD!Stoergrund
.Cells(j, 3) = BD!StörDatum
.Cells(j, 4) = BD!Schichtart
.Cells(j, 5) = BD!Arbeitsfolge
.Cells(j, 6) = BD!StoerZeitM
.Cells(j, 7) = BD!NrJahr

j = j + 1

Loop

BD.MoveNext

FELDNA = Dir(Me!DATEINAME2)
If Not IsNull(FELDNA) And FELDNA "" Then
Kill Me!DATEINAME2
End If
.ErrorCheckingOptions.OmittedCells = False
.ActiveWorkbook.SaveAs Me!DATEINAME2

.ErrorCheckingOptions.OmittedCells = True
.Quit

MsgBox "Ergebnis SB unter: " & vbCrLf & _
Me!DATEINAME2 & vbCrLf & _
"gespeichert", vbInformation, "Ergebnisdaten SB"
End With

Set oExcel = Nothing
EndeEX2:
Exit Sub
FehlerEx2:
If Err 91 Then
FEHKZ = 9
MsgBox Err.Number & " " & Err.Description
End If
MsgBox Err.Number & " " & Err.Description
Resume EndeEX2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Micha_DU · 24. Februar 2011

Ohne mich jetzt näher mit deinem Code zu beschäftigen... aber

und habe nur eine Zeile im Loop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

könnte daran liegen, dass dein BD.MoveNext erst nach dem Loop steht... und hier vermute ich jetzt eher ne Endloschleife.

Maxel · 24. Februar 2011

\@Erich

Du bist nun schon so lange im Geschäft:

Warum gelingt es Dir nicht, den Code optisch logisch zu gestalten?

Der Beginn (Do) und das Ende (Loop) einer Schleife gehören auf eine vertikale Linie, genau wie die über- und untergeordneten Schleifen. Das hilft sehr viel dabei, die Logik nachzuvollziehen und Fehler zu vermeiden.

Erich290607 · 24. Februar 2011

Danke Maxel,

ich zeige heute abend die Lösung!

Toast78 · 7. Januar 2021

von Thomas Möller

Hallo Erich,

IMHO brauchst Du zwei Optionsgruppen zur Erstellung Deines Kriterien-Strings:

In der ersten Optionsgruppe entscheidest Du, ob die Suchbegriffe durch AND oder OR verknüpft werden sollen.

In der zweiten Optionsgruppe lässt Du auswählen, ob die suche mit "=" oder mit "Like" erfolgen soll.

CU
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich lese hier auch schon sehr lange Zeit mit und kann immer wieder nur mit dem Kopf schütteln. Irgendwo so zwischen *biggrin.gif* und *entsetzt

@Thomas Müller: Ich danke dir für deinen Beitrag, denn ich muss heute auch mal eine Suchmaske programmieren und dein Vorschlag ist doch eine sehr gute Ergänzung.

Erich290607 · 25. Februar 2011

#12, nachher ist man immer etwas schlauer doch in meinem Fall noch nicht ganz

mein jetziges Konstrukt sieht so aus:

Code:

Set oXL = CreateObject("Excel.Application")
Set oWb = oXL.Workbooks.Add
oXL.Visible = True
Set db = CurrentDb
Set rsID = db.OpenRecordset("SELECT DISTINCT Year([StörDatum]) & ' ' & Format(DKW([StörDatum]),'00') AS KW," & _
"Year([StörDatum]) AS J " & _
" FROM tblStoerungen AS ST " & _
"WHERE Year([StörDatum]=" & strJNummer, dbOpenForwardOnly)

With rsID
Do While Not .EOF

On Error Resume Next
Me!DATEINAME2 = "\\SB\Bereich05\SB_Ergebniss.xls"
'//DATNA = "SB_GC"
Set oExcel = GetObject(, "Excel.Application")
If Err.Number 0 Then
Set oExcel = CreateObject("Excel.Application")
End If

On Error GoTo 0
If Len(Nz(Me.txtSuchbegriffe, "")) > 0 Then
Set db = CurrentDb
strSuchbegriffe = Split(Me.txtSuchbegriffe, " ")
If Me.ogrVerknuepfung = 2 Then
strOperator = "="
End If
If Me.ogrVerknuepfung = 1 Then
strOperator = "AND"
Else
strOperator = "OR"
End If
End If

Mysql = "SELECT tblArbeitsfolge.Arbeitsfolge, tblStoerungen.Stoergrund, tblStoerungen.StörDatum," & _
"tblStoerungen.StoerZeitM, tblBereiche.Bereich, tblSchichtarten.Schichtart," & _
"tblMitarbeiterNamen.Name, tblStoerungen.DS_ID, tblStoerungen.StörungID_P," & _
"tblStoerungen.NrJahr , tblMaschine.Bezeichnung " & _
"FROM tblMaschine INNER JOIN (tblMitarbeiterNamen INNER JOIN " & _
"(tblBereiche INNER JOIN (tblArbeitsfolge INNER JOIN (tblSchichtarten INNER JOIN tblStoerungen " & _
"ON tblSchichtarten.SchichtArtID_P = tblStoerungen.SchichtartID_F) " & _
"ON tblArbeitsfolge.ArbeitsfolgeID = tblStoerungen.ArbeitsfolgeID_F)" & _
"ON tblBereiche.BereichID_P = tblStoerungen.BereichID_F) " & _
"ON tblMitarbeiterNamen.MitarbeiterID_P = tblStoerungen.MitarbeiterID_F)" & _
"ON tblMaschine.MaschineID_P = tblStoerungen.MaschinenID_F WHERE "

For I = 0 To UBound(strSuchbegriffe)
strKriterium = strKriterium & " " & strOperator & " Stoergrund LIKE '*" & strSuchbegriffe(I) & "*'"
Next I
strKriterium = Mid(strKriterium, 5)
Mysql = Mysql & strKriterium

Set db = CurrentDb
Set rsDat = db.OpenRecordset(Mysql, dbOpenDynaset)

Set oSh = oWb.Worksheets.Add
oSh.Name = "Woche " & .Fields(0) '//Objektvariabel oder With-Blockvariabel
' nicht festgelegt
For I = 0 To rsDat.Fields.count - 1
oSh.Cells(4, I + 1) = rsDat.Fields(I).Name
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Problem,
Objektvariabel oder With-Blockvariabel nicht festgelegt
wie komme ich da raus?
ich verfolge das Ziel, eine Arbeitsmappe zu erstellen Tabellenblätter sollen aus der Woche gewähltem Jahr (strJNummer = InputBox) ausgeben werden.

also jedes Blatt soll eine Woche aus 2010 Bspw. ausgeben, und dann die Suchen Ergebnisse zur Woche ausgeben

CptChaos · 25. Februar 2011

Ich bin leider genauso unverbesserlich wie Du Erich, ich poste doch wieder in einem Thread von Dir *stupid
Hier mal der von Dir gepostete, unstrukturierte Code etwas bereinigt: Code:

Set oXL = CreateObject("Excel.Application")
Set oWb = oXL.Workbooks.Add
oXL.Visible = True
Set db = CurrentDb
Set rsID = db.OpenRecordset("SELECT DISTINCT Year([StörDatum]) & ' ' & Format(DKW([StörDatum]),'00') AS KW," & _
" Year([StörDatum]) AS J" & _
" FROM tblStoerungen AS ST" & _
" WHERE Year([StörDatum]=" & strJNummer, dbOpenForwardOnly)

With rsID
Do While Not .EOF

On Error Resume Next
Me!DATEINAME2 = "\\SB\Bereich05\SB_Ergebniss.xls"
'//DATNA = "SB_GC"
Set oExcel = GetObject(, "Excel.Application")
If Err.Number 0 Then
Set oExcel = CreateObject("Excel.Application")
End If

On Error GoTo 0
If Len(Nz(Me.txtSuchbegriffe, "")) > 0 Then
Set db = CurrentDb
strSuchbegriffe = Split(Me.txtSuchbegriffe, " ")

If Me.ogrVerknuepfung = 2 Then
strOperator = "="
End If

If Me.ogrVerknuepfung = 1 Then
strOperator = "AND"
Else
strOperator = "OR"
End If

End If

Mysql = "SELECT tblArbeitsfolge.Arbeitsfolge, tblStoerungen.Stoergrund, tblStoerungen.StörDatum," & _
" tblStoerungen.StoerZeitM, tblBereiche.Bereich, tblSchichtarten.Schichtart," & _
" tblMitarbeiterNamen.Name, tblStoerungen.DS_ID, tblStoerungen.StörungID_P," & _
" tblStoerungen.NrJahr , tblMaschine.Bezeichnung" & _
" FROM tblMaschine INNER JOIN (tblMitarbeiterNamen INNER JOIN" & _
" (tblBereiche INNER JOIN (tblArbeitsfolge INNER JOIN (tblSchichtarten INNER JOIN tblStoerungen" & _
" ON tblSchichtarten.SchichtArtID_P = tblStoerungen.SchichtartID_F)" & _
" ON tblArbeitsfolge.ArbeitsfolgeID = tblStoerungen.ArbeitsfolgeID_F)" & _
" ON tblBereiche.BereichID_P = tblStoerungen.BereichID_F)" & _
" ON tblMitarbeiterNamen.MitarbeiterID_P = tblStoerungen.MitarbeiterID_F)" & _
" ON tblMaschine.MaschineID_P = tblStoerungen.MaschinenID_F WHERE "

For I = 0 To UBound(strSuchbegriffe)
strKriterium = strKriterium & " " & strOperator & " Stoergrund LIKE '*" & strSuchbegriffe(I) & "*'"
Next I

strKriterium = Mid(strKriterium, 5)
Mysql = Mysql & strKriterium

Set db = CurrentDb
Set rsDat = db.OpenRecordset(Mysql, dbOpenDynaset)

Set oSh = oWb.Worksheets.Add
oSh.Name = "Woche " & .Fields(0) '//Objektvariabel oder With-Blockvariabel nicht festgelegt

For I = 0 To rsDat.Fields.count - 1
oSh.Cells(4, I + 1) = rsDat.Fields(I).Name
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was ist daran so schwer, einen Code so aufzubereiten?
Du machst Dir (und uns) das Leben mit dem Codechaos nur unnütz schwer...

Ausserdem ist der Code wieder nicht vollständig wie man durch die Einrückungen nun auf den ersten Blick sieht... *rolleyes.gif*

Zur weiteren Analyse empfehle ich, Dir mal den Inhalt von Mysql ausgeben zu lassen, bevor Du das RecordSet öffnest.
Diese Ausgabe kopierst Du in eine neue Abfrage und führst diese aus.

Liefert sie ein Ergebnis? Wenn Ja, welches?
Dieses Vorgehen sollte Dir mittlerweile bekannt sein, da bereits zigfach von verschiedenen Leuten genau diese Empfehlung an Dich gegeben wurde!