Weekday Code

rohit_ghosh · June 21st, 2007, 10:39 AM

Thanks to rob the code has finally worked...
Here is the final code

Private Sub Command1_Click()
On Error GoTo Err_Command1_Click

Dim stDocName As String
Dim stLinkCriteria As String

Dim wkday As Integer
wkday = Weekday(Date)
Dim dayNum As Integer
dayNum = Day(Date)

If dayNum = 2 Then
    If (wkday > vbMonday And wkday < vbSaturday) Then
        stDocName = "tblAshim"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If

ElseIf dayNum = 4 Then
    If wkday = vbMonday Or wkday = vbTuesday Then
        stDocName = "tblAshim"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
    ElseIf wkday = vbTuesday And dayNum = 3 Then
        stDocName = "tblAshim"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If

Else
    'Code does not meet above.
    MsgBox "Today is not SBDOM!", _
            vbCritical + vbOKOnly, _
            "Title"
End If

Exit_Command1_Click:
    Exit Sub

Err_Command1_Click:
    MsgBox Err.Description
End Sub

Many thanks once again Rob

robzyc · June 21st, 2007, 10:49 AM

EDIT: Just seen your new posts!

This code fulfills your requirements:

Code:

Private Sub Command1_Click()
On Error GoTo Err_Command1_Click

Dim stDocName As String
Dim stLinkCriteria As String

Dim wkday As Integer
wkday = Weekday(Date)
Dim dayNum As Integer
dayNum = day(Date)

If dayNum = 2 Then
    If (wkday > vbSunday And wkday < vbSaturday) Then
        stDocName = "tblAshim"
    End If
    DoCmd.OpenForm stDocName, , , stLinkCriteria

ElseIf (dayNum = 3 Or dayNum = 4) And (wkDay = vbMonday or wkDay = vbTuesday) Then
    stDocName = "tblAshim"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
    'Code does not meet above.
    MsgBox "Bad date!", _
            vbCritical + vbOKOnly, _
            "Title"
End If

Exit_Command1_Click:
    Exit Sub

Err_Command1_Click:
    MsgBox Err.Description
End Sub

Kind Regards,
Rob

rohit_ghosh · June 22nd, 2007, 02:14 AM

Rob,

Many thanks for taking out time for me and helping me with the code...

robzyc · June 22nd, 2007, 02:31 AM

rohit_ghosh,

Your very welcome, its what the forum is all about!
Glad to hear all is working fine now, best advice I was ever given is to play with your code!
See what its doing, how it works, and why!

Good luck with the rest of your project, if you need any more info, then please ask.

Best Regards,
Rob