Datesatz finden in VBA

[Dirk Malissa]

Einfach die Daten über eine Query abfragen:

Dim db_Data As Database
Dim strSQL As String
Dim tbl_Record As Recordset
Dim Zähler As Long

Set db_Data=CurrentDb
strSQL = "SELECT * FROM [Tabelle] WHERE [Kriterium_A]='XYZ' AND
[Kriterium_B]='ABC'"
Set tbl_Record = db_Data.OpenRecordset(strSQL, dbOpenDynaset)

** Sollen mehere Datensätze gelesen werden diesen Teil nochhinzufügen **

tbl_Record.MoveLast ** Datensatzanzahl bestimmen
tbl_Record.MoveFirst **
For Zähler = 1 To tbl_Record.RecordCount - 1
tbl_Record.MoveNext ** Nächster Datensatz
Next

FindFirst / FindNext ist sehr langsam.

mfg dirk malissa

"Michael Müller" <ver...@outbreak.de> schrieb im Newsbeitrag
news:ecz2Z5xn$GA.1844@cppssbbsa06...
> Hallo,
>
> Wie kann ich in VBA mittels des "FindFirst" Befehls Nach einem Datensatz
> suchen, der ZWEI Kriterien erfüllen muß.
> z.B. Baustelle = "Holzhausen" und Datum ="06.04.2000"
>
> --> Ausgegeben werden soll also der Datensatz der Baustell Holzhausen vom
> 06.04.2000.
>
> Ich habe Probleme mit der SQL Anweisung des FindFirst Befehles.
>
> Nach einem Feld kann ich suchen, aber wie suche ich nach 2
übereinstimmenden
> Feldern ???
>
>
> Vielen Dank
>
> Michael Müller
>
>

[Wolfgang Haese]

Hi Michael,
das Problem liegt im Datumsformat. Der Suchstring sollte

rs!FundFirst "Baustelle = '" & Wert1 & " And Datum = DateValue('" &
Datumswert & "')"

lauten, dann soltest Du auch finden, was Du suchst.
Gruß Wolfgang

Michael Müller <ver...@outbreak.de> schrieb in im Newsbeitrag:

[Michael Müller]

[Helmut Schmalzl]

Hallo Michael

Ich habe das Gefühl, Du hast ein Problem mit dem SQL_String.

Setze den Suchstring wie folgt zusammen:

dim strSQL as String
dim datSuchDatum as Date
dim strSuchbaustelle as String

datSuchDatum = #06.04.2000#
strSuchbaustelle = "Holzhausen"

strSQL = "Baustelle = '" & strSuchbaustelle & "'"

'nun das Datum hinzufügen
strSQL = strSQL & " And [Datum]= #" & Format(datSuchDatum, "mm\/dd\/yy") &
"#"

**********************

Ich habe mir eine kleine Funktion geschrieben, die ein datum in ein
SQL-gültiges Datum umwandelt:

Function SqlDate(Datum as Date) As String
' ergibt Datum (zB. 6. 4. 2000) im Format #04/06/2000#
SqlDate = "#" & Format(Datum, "mm\/dd\/yyyy") & "#"
End Function

Dann funktioniert der zweite Teil zum Zusammenfügen von strSQL:
strSQL = strSQL & " And [Datum] = " & SqlDate(datSuchDatum)

Ich hoffe, das hats gebracht!
Ciao
Helmut Schmalzl
Michael Müller schrieb in Nachricht ...

[Henry Habermacher]

vielleicht hilft auch das beispiel in der online hilfe unter der
funktion buildcriteria()
gruss
henry

--
Ich beantworte keine Fragen per E-Mail auf Postings

Wolfgang Haese schrieb in Nachricht ...

>Hi Michael,
>das Problem liegt im Datumsformat. Der Suchstring sollte
>
>rs!FundFirst "Baustelle = '" & Wert1 & " And Datum = DateValue('" &
>Datumswert & "')"
>
>lauten, dann soltest Du auch finden, was Du suchst.
>Gruß Wolfgang
>
>Michael Müller <ver...@outbreak.de> schrieb in im Newsbeitrag:
>ecz2Z5xn$GA.1844@cppssbbsa06...