- #1
K
Kathrin
Guest
Hallo ich habe eine Schleife die mir Datensätze aus 2 Tabellen und innerhalb 2 Spalten liefert.
Nun möchte ich den ersten Datensatz in eine Textbox laden und falls dieser jedoch schon vorhanden ist einer einer Tabelle die ich zum Speichern benutze soll er den nächsten Datensatz anzeigen.
Kann mir da jemand helfen????
Nun möchte ich den ersten Datensatz in eine Textbox laden und falls dieser jedoch schon vorhanden ist einer einer Tabelle die ich zum Speichern benutze soll er den nächsten Datensatz anzeigen.
Kann mir da jemand helfen????
Code:
Dim rs As ADODB.Recordset
Dim rsVB As ADODB.Recordset
Dim SQL As String
Dim sql1 As String
Dim i As Long
Dim min As Integer
Dim max As Integer
SQL = SELECT Min, Max FROM Table
Set rsVB = goMandant.oData.rsOpenRecordset(SQL, adOpenForwardOnly, adLockReadOnly)
Do Until rsVB.EOF
min = rsMan!Min
max = rsMan!Max
For i = min To max
sql1 = SELECT Sitzplatznummer FROM Table WHERE Sitzplatznummer= & i
Set rs = goMandant.oData.rsOpenRecordset(sql1, adOpenForwardOnly, adLockReadOnly)
If rs.EOF = True And rs.BOF = True Then
txtFreierSitzplatz = i
Else
If Not rs!Sitzplatznummer = i Then
txtFreierSitzplatz = i
End If
End If
Else
Next i
rsVB.MoveNext
Loop