Josef Pötzl hat geschrieben:Der Code zur Optimierung wären dann Prozeduren wie:
- Code: Alles auswählen
dim rst as dao.recordset
dim strSQL as String
strSQL = "Select ... & " _
" from ..." & _
" inner join ... ON ... " & _
" where ... AND " & FilterStringFromDateValue("FeldName", Datumsvariable) & " ..."
set rst = currentdb.openrecordset(strSQL, ....)
...
Hallo Josef,
ich sehe schon du willst mich locken meine Lösung vorzustellen. Ich hatte ja beim letzten Mal schon kurz gezeigt,
daß mein Code im Augenblick so aussieht:
- Code: Alles auswählen
With SQL.SelectSQL(tblAufträge)
.Joins "", tblKundenstamm, "KundenNr"
.AddColumns "AuftragsNr", "AuftragsDatum, GesamtBetrag" , "GesamtGewicht"
.AddColumnsFromTable "Kundenstamm", "KundenNr, Firmenname, PLZ, Ort"
.Where "AuftragsDatum", IsGreater, Now - 14 * Tage
.Where "Kundenstamm.Firmenname", IsLike, "Pötzl"
.OrderBy "AuftragsDatum, AuftragsNr"
Set col = .ToCollection
Set rsADO = .ToADORecordset
Set rsDAO = .ToDAORecordset
set hsh = .ToHashOfString
Me.cboFeld.RowSource = .ToCBOString
End With
aber das ganze ist noch nicht fertig, da fehlt noch ein bisschen Feinschliff..
Klaus