Schleife From "Montag" to "Sonntag"
25.10.2004 16:07:49
Soniqe
Habe 7 Funktionen die dafür sorgen das ich das ich alle Termine der ganzen woche(Montag,Dienstag,u.s.w....) angezeigt bekomme !
Wie bekomme ich diese 7 Funktionen zusammengefasst zu einer!!!
(Schleife)
##########################################################################
Function Montag()
On Error Resume Next
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim sSql As String
Dim SuchDatum As String
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "M:\Themen\PROJEKT\Organizer\Organizer\Daten.mdb"
cn.Open
rs.ActiveConnection = cn
rs.Source = "Termine"
SuchDatum = Worksheets("Wochenansicht").Cells(2, 5).Text
SuchDatum = Format(CDate(SuchDatum), "\#mm\/dd\/yyyy\#")
sSql = "SELECT * FROM Termine WHERE Datum=" + SuchDatum + "ORDER BY Zeit"
rs.Open (sSql)
Worksheets("Wochenansicht").Cells(3, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(3, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(4, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(4, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(5, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(5, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(6, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(6, 3) = rs![Thema]
End Function
##########################################################################
Function Dienstag()
On Error Resume Next
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim sSql As String
Dim SuchDatum As String
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "M:\Themen\PROJEKT\Organizer\Organizer\Daten.mdb"
cn.Open
rs.ActiveConnection = cn
rs.Source = "Termine"
SuchDatum = Worksheets("Wochenansicht").Cells(16, 5).Text
SuchDatum = Format(CDate(SuchDatum), "\#mm\/dd\/yyyy\#")
sSql = "SELECT * FROM Termine WHERE Datum=" + SuchDatum + "ORDER BY Zeit"
rs.Open (sSql)
Worksheets("Wochenansicht").Cells(17, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(17, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(18, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(18, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(19, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(19, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(20, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(20, 3) = rs![Thema]
End Function
##########################################################################
Function Mittwoch()
On Error Resume Next
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim sSql As String
Dim SuchDatum As String
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "M:\Themen\PROJEKT\Organizer\Organizer\Daten.mdb"
cn.Open
rs.ActiveConnection = cn
rs.Source = "Termine"
SuchDatum = Worksheets("Wochenansicht").Cells(30, 5).Text
SuchDatum = Format(CDate(SuchDatum), "\#mm\/dd\/yyyy\#")
sSql = "SELECT * FROM Termine WHERE Datum=" + SuchDatum + "ORDER BY Zeit"
rs.Open (sSql)
Worksheets("Wochenansicht").Cells(31, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(31, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(32, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(32, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(33, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(33, 3) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(34, 2) = rs![Zeit]
Worksheets("Wochenansicht").Cells(34, 3) = rs![Thema]
End Function
##########################################################################
Function Donnerstag()
On Error Resume Next
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim sSql As String
Dim SuchDatum As String
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "M:\Themen\PROJEKT\Organizer\Organizer\Daten.mdb"
cn.Open
rs.ActiveConnection = cn
rs.Source = "Termine"
SuchDatum = Worksheets("Wochenansicht").Cells(2, 11).Text
SuchDatum = Format(CDate(SuchDatum), "\#mm\/dd\/yyyy\#")
sSql = "SELECT * FROM Termine WHERE Datum=" + SuchDatum + "ORDER BY Zeit"
rs.Open (sSql)
Worksheets("Wochenansicht").Cells(3, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(3, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(4, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(4, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(5, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(5, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(6, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(6, 9) = rs![Thema]
End Function
##########################################################################
Function Freitag()
On Error Resume Next
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim sSql As String
Dim SuchDatum As String
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "M:\Themen\PROJEKT\Organizer\Organizer\Daten.mdb"
cn.Open
rs.ActiveConnection = cn
rs.Source = "Termine"
SuchDatum = Worksheets("Wochenansicht").Cells(16, 11).Text
SuchDatum = Format(CDate(SuchDatum), "\#mm\/dd\/yyyy\#")
sSql = "SELECT * FROM Termine WHERE Datum=" + SuchDatum + "ORDER BY Zeit"
rs.Open (sSql)
Worksheets("Wochenansicht").Cells(17, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(17, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(18, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(18, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(19, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(19, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(20, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(20, 9) = rs![Thema]
End Function
##########################################################################
Function Samstag()
On Error Resume Next
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim sSql As String
Dim SuchDatum As String
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "M:\Themen\PROJEKT\Organizer\Organizer\Daten.mdb"
cn.Open
rs.ActiveConnection = cn
rs.Source = "Termine"
SuchDatum = Worksheets("Wochenansicht").Cells(30, 11).Text
SuchDatum = Format(CDate(SuchDatum), "\#mm\/dd\/yyyy\#")
sSql = "SELECT * FROM Termine WHERE Datum=" + SuchDatum + "ORDER BY Zeit"
rs.Open (sSql)
Worksheets("Wochenansicht").Cells(31, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(31, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(32, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(32, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(33, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(33, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(34, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(34, 9) = rs![Thema]
End Function
##########################################################################
Function Sonntag()
On Error Resume Next
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
Dim sSql As String
Dim SuchDatum As String
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "M:\Themen\PROJEKT\Organizer\Organizer\Daten.mdb"
cn.Open
rs.ActiveConnection = cn
rs.Source = "Termine"
SuchDatum = Worksheets("Wochenansicht").Cells(37, 11).Text
SuchDatum = Format(CDate(SuchDatum), "\#mm\/dd\/yyyy\#")
sSql = "SELECT * FROM Termine WHERE Datum=" + SuchDatum + "ORDER BY Zeit"
rs.Open (sSql)
Worksheets("Wochenansicht").Cells(38, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(38, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(39, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(39, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(40, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(40, 9) = rs![Thema]
rs.MoveNext
Worksheets("Wochenansicht").Cells(41, 8) = rs![Zeit]
Worksheets("Wochenansicht").Cells(41, 9) = rs![Thema]
End Function
##########################################################################
MFG
Soniqe