[alex]

Καλησπέρα Τάσο

Τελικά αυτό και αν δεν είναι ζωγραφιά.Είναι φανταστικό.Δεν το περίμενα ότι θ΄'βγαινε τόσο ωραίο.Ευχαριστώ πολύ.
Να σε ρωτήσω κάτι άλλο.Επειδή έχω ένα Μodule που το καλώ με την εκκίνηση του Login βρίσκει την τρέχουσα ημερομηνία του υπολογιστή και ανοίγει η φόρμα με τις παγκόσμιες ημέρες.Για να με πηγαίνει όμως κατευθείαν στην παγκόσμια ημέρα της τρέχουσας ημερομηνίας τι κώδικα θέλει να συμπληρώσω.
Ο κώδικας του Μοdule είναι
[CODE]Option Compare Database
Option Explicit

Ρουτίνες που ενεργοποιούνται με την έναρξη της εφαρμογής
Private Const CnstNameTable As String = "TblInternationalDays"
Public Function FAutoexec()
'Ρουτίνα που ρυθμίζει τις αρχικές τιμές
Application.SetOption "Confirm Action Queries", False
End Function
Public Sub sShowInternationalDays()
'Ρουτίνα που εφαρμόζει τις παγκόσμιες ημέρες
Dim CurrentSysDate As Date, CurrentSysMonth, CurrentSysDay As Integer
Dim i As Integer, TmpName As String
CurrentSysDate = Date
CurrentSysMonth = month(CurrentSysDate)
CurrentSysDay = Day(CurrentSysDate)
i = 0
Dim RcdNames As New ADODB.Recordset
RcdNames.Open "Select * From " & CnstNameTable & " Where day=" & CurrentSysDay _
& " and Month=" & CurrentSysMonth, CurrentProject.Connection, adOpenDynamic
If Not RcdNames.EOF And Not RcdNames.BOF Then
RcdNames.MoveFirst
Do While Not RcdNames.EOF
i = i + 1
If i > 1 Then
TmpName = TmpName & " , " & RcdNames.Fields("Fname")
Else
TmpName = RcdNames.Fields("Fname")
End If
RcdNames.MoveNext
Loop
Dim Response As Integer
If i > 1 Then

Else

Response = MsgBox("Καλημέρα, σήμερα είναι η : " & TmpName _
& vbNewLine & "Θέλετε να ανοίξετε την φόρμα με τις παγκόσμιες ημέρες", vbYesNo + vbDefaultButton1, " ΠΑΓΚΟΣΜΙΕΣ ΗΜΕΡΕΣ")
End If
If Response = vbYes Then
DoCmd.OpenForm ("frmMain")
'Εδώ τι πρέπει να συμπληρώσω ώστε με το YES να ανοίγει κατευθείαν στο θέμα της Παγκόσμιας
End If
End If
RcdNames.Close
End Sub[CODE]

Φιλικά/Αλέξανδρος