durchgeschummelt … 
Werde dein code nachher nochmal durchtesten aber im mom „verstehe“ ich das hier einfach besser:/ (Auch wenn es immer nochnicht der beste weg ist aber wie gesagt heute morgen wollte ich mir noch nen 2D Array basteln.
Im Mom habe ich das Datenbankfile 2x geöffnet und vergleiche.
Wie kann ich zu einem bestimmten datensatz springen der bestimmte informationen enthält und den mit findnext with… den ausgang anzeigen lassen. Um das ganze mal vb6 nahe zu bringen:
Ich möchte in der Data2 nach diesem eintrag suchen:
Data2.Recordset(„DATE“) = Datecheck And Data2.Recordset(„NAME“) = PErsCheck And Data2.Recordset(„ACCESS“) = „Hintereingang innen“
und von diesem mit findnext nach:
Data2.Recordset(„DATE“) = Datecheck And Data2.Recordset(„NAME“) = PErsCheck And Data2.Recordset(„ACCESS“) = „Hintereingang außen“
springen.
Noch eine andere frage: ich bekomme aus Data1.Recordset(1) die Zeit welche ich an Zeitcheck (String) übergebe. integer ging wegen 00:00:00 nicht. am ende kommt Zeit = Data2.Recordset(1) - Timecheck wie rechne ich mit einer Zeit ? Variablentyp TIME gibt es nicht 
danke mfg joe
Option Explicit
Dim MyFSO
Dim pfd As String
Dim Datecheck As String
Dim TImeCheck As String
Dim PErsCheck As String
Dim Türcheck As String
Private Sub Command1\_Click()
rausrein
End Sub
Private Sub rausrein()
Data1.Recordset.MoveFirst
While Data1.Recordset.EOF = False
If Data1.Recordset("ACCESS") = "Hintereingang au¯en" Then
Datecheck = Data1.Recordset(0)
TImeCheck = Data1.Recordset(1)
PErsCheck = Data1.Recordset(2)
Türcheck = Data1.Recordset(4)
checkout
End If
Data1.Recordset.MoveNext
Wend
End Sub
Private Sub checkout()
Data2.Recordset.MoveFirst
While Data2.Recordset.EOF = False
If Data2.Recordset("DATE") = Datecheck And Data2.Recordset("NAME") = PErsCheck And Data2.Recordset("ACCESS") = "Hintereingang innen" Then
If Data2.Recordset(1) \> TImeCheck Then
List1.AddItem Data2.Recordset(0) & Chr(9) & Data2.Recordset(2) & Chr(9) & " kommt: " & TImeCheck & Chr(9) & " geht: " & Data2.Recordset(1) & Chr(9) & "summe: " '& 'Data2.Recordset(1) - TImeCheck
End If
End If
Data2.Recordset.MoveNext
Wend
End Sub
Ich kann eben nichts testen, weil ich keine DBase-Datei habe. Auch andere Tippfehler in meinen Codes sind immer möglich, weil bei mir ja nichts läuft. Ich kann nur drauf los tippen, wie ich mir das denke. Fehler können mir nicht auffallen, weil ich kein Programm starten kann.
Nun sein Project nochmal umstricken, waere ja wahnsinn und wenn er keine Aenderung in absehbarer zeit machen möchte, ist es fraglich nun nochmal alles auf dem Kopf zu stellen!