Hej!

Om vi säger att i databasen har jag fasta tider från 07:00 step 15 16:30 och jämföra dessa med upptagna tider och bara visa lediga tider i tex, en tabell


Har denna funktion i ett vanligt vb program:

Private Sub FillList3()
On Error GoTo err:
Dim rsCount As Long, cboCount As Long, i As Long, j As Long
Dim dbs As Database
Dim rs As Recordset
MousePointer = vbHourglass

ComboFill1 "Fyller list3 med alla fasta tider från databasen"

Set dbs = OpenDatabase(sDataS2kb, False, False, _
";pwd=data@wd")

Set rs = dbs.OpenRecordset("select tid from Tidserv where Avd ='" & lblAvd.Caption & "'and Sman1 ='" & Label3.Caption & "' and Datum ='" & LBLDATE.Caption & "'", dbOpenSnapshot)
Do Until rs.EOF
List2.AddItem rs!tid
rs.MoveNext
Loop

rs.Close
dbs.Close
Set rs = Nothing
Set dbs = Nothing

'Jämför tiderna i list2 med list3 plockar bort redan upptagan tider
rsCount = List2.ListCount - 1
cboCount = List3.ListCount - 1

For i = 0 To rsCount
For j = 0 To cboCount
If List2.list(i) = List3.list(j) Then List3.RemoveItem j
Next j
Next i

MousePointer = vbNormal
Exit Sub
err:
MsgBox err.number
End Sub

Hälsningar
Tobbe