Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

größere frage
Autor: Junior Proggi
Datum: 06.06.02 10:43
Private Sub Form_Load() CenterForm Me Dim m1 As Integer Dim m2 As Integer Dim sDatum As String Dim eDatum As String Dim iWeekDay As Integer sDatum = Format$(DateAdd("d", -7, Date), "dd.mm.yyyy") eDatum = Format$(Now, "dd.mm.yyyy") mSQL = "SELECT * FROM tbl_smd_angebote WHERE Eingangsdatum BETWEEN '" & sDatum & "' AND '" & eDatum & "'" Set dyS = mdbSMD.OpenRecordset(mSQL, dbOpenDynaset) lfliste.AddItem "ID Eingang Abgabe Kurzbezeichnung Angebot Ansprechpartner Umsatz" lfliste.AddItem "-----------------------------------------------------------------------------------------------------------------------" If dyS.RecordCount > 0 Then Do ' Wochentag prüfen iWeekDay = Weekday(CDate(dyS("Eingangsdatum"))) If iWeekDay <> 1 And iWeekDay <> 7 Then m1 = Len(dyS!kurzbez_angebot) m2 = Len(dyS!ansprechpartner_kunde) lfliste.AddItem CStr(dyS("ID")) & Space(2) & dyS!eingangsdatum & Space(2) & dyS!soll_abgabetermin & Space(4) & dyS!kurzbez_angebot & Space(40 - m1) & dyS!ansprechpartner_kunde & Space(25 - m2) & Format(dyS!Umsatz_über_Laufzeit, "0.00 €") End If dyS.MoveNext Loop Until dyS.EOF End If Set dyS = mdbSMD.OpenRecordset("tbl_smd_angebote", dbOpenDynaset) bfDatum.Caption = "Datum : " & Space(4) & Format$(Now, "dd.mm.yyyy") End Sub Ok das is mal der Code *g* Also mein Problem ist das ich hier die letzten 7 Tage als Wochenbericht ausgeben will in einem Listenfeld. Nur irgendwie gibt er mir Daten aus die nicht stimmen. z.Bsp. den 08.04.2002 obwohl das ein uralter Eingangstermin ist. Vielen Dank im Vorraus Gruß JP

größere frage	59	Junior Proggi	06.06.02 10:43
Re: größere frage	215	Dieter	06.06.02 10:59
Re: größere frage	27	Junior Proggi	06.06.02 11:04
Re: größere frage	33	Junior Proggi	06.06.02 11:07
OK...	207	Dieter	06.06.02 11:08

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen