Results 1 to 5 of 5

Thread: Access: Day of week query [Resolved]

  1. #1

    Thread Starter
    Ex-Super Mod RobDog888's Avatar
    Join Date
    Apr 2001
    Location
    LA, Calif. Raiders #1 AKA:Gangsta Yoda™
    Posts
    60,709

    Resolved Access: Day of week query [Resolved]

    I need to create a query where it will take a field and place that value
    into some fields based upon were that related date field fits into
    the next 4 dynamically calculated Mondays.

    So basically I need to be able to calculate from the current day
    the current weeks Monday and the next 4 Mondays after that
    and alias those fields as below. Then compare the records date
    to where it would be less than the aliased fields but not less than
    the previous Mondays date.



    Ex. convert hard coded dates to dynamic IIFs somehow.

    Code:
    Table1:
    PO = Text; dDate = PO's Date
    
    PO      dDate
    ----------------
    222.01  11-05-04
    333.05  11-12-04
    111.01  11-21-04
    444.01  11-23-04
    555.02  11-30-04
    
    Report:
    PO       11-08-04     11-15-04     11-22-04     11-29-04     12-06-04
    ---------------------------------------------------------------------
    222.01   100
    333.05                150
    111.01                             200
    444.01                                          1000
    555.02                                                       50
    Thanks for any assistance on this.
    Last edited by RobDog888; Nov 11th, 2004 at 11:55 AM.
    VB/Office Guru™ (AKA: Gangsta Yoda®)
    I dont answer coding questions via PM. Please post a thread in the appropriate forum.

    Microsoft MVP 2006-2011
    Office Development FAQ (C#, VB.NET, VB 6, VBA)
    Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
    If a post has helped you then Please Rate it!
    Reps & Rating PostsVS.NET on Vista Multiple .NET Framework Versions Office Primary Interop AssembliesVB/Office Guru™ Word SpellChecker™.NETVB/Office Guru™ Word SpellChecker™ VB6VB.NET Attributes Ex.Outlook Global Address ListAPI Viewer utility.NET API Viewer Utility
    System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6

  2. #2
    Don't Panic! Ecniv's Avatar
    Join Date
    Nov 2000
    Location
    Amsterdam...
    Posts
    5,343
    Code:
    SELECT 
     tblRobDog.PO, 
     tblRobDog.dDate, 
     Weekday([dDate],2) AS [TheWeekday], 
     [dDate]+(8-Weekday([dDate],2)) AS [NextMonday]
    FROM tblRobDog;
    Mighht give you an idea?


    Vince

    BOFH Now, BOFH Past, Information on duplicates

    Feeling like a fly on the inside of a closed window (Thunk!)
    If I post a lot, it is because I am bored at work! ;D Or stuck...
    * Anything I post can be only my opinion. Advice etc is up to you to persue...

  3. #3

    Thread Starter
    Ex-Super Mod RobDog888's Avatar
    Join Date
    Apr 2001
    Location
    LA, Calif. Raiders #1 AKA:Gangsta Yoda™
    Posts
    60,709
    Thanks. I will try some variations from this.
    Would creating
    this query in SQL 2k as a view be better? Can the view be linked
    to the Access db?
    VB/Office Guru™ (AKA: Gangsta Yoda®)
    I dont answer coding questions via PM. Please post a thread in the appropriate forum.

    Microsoft MVP 2006-2011
    Office Development FAQ (C#, VB.NET, VB 6, VBA)
    Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
    If a post has helped you then Please Rate it!
    Reps & Rating PostsVS.NET on Vista Multiple .NET Framework Versions Office Primary Interop AssembliesVB/Office Guru™ Word SpellChecker™.NETVB/Office Guru™ Word SpellChecker™ VB6VB.NET Attributes Ex.Outlook Global Address ListAPI Viewer utility.NET API Viewer Utility
    System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6

  4. #4
    Don't Panic! Ecniv's Avatar
    Join Date
    Nov 2000
    Location
    Amsterdam...
    Posts
    5,343
    Never done it - but if its a query/view in theory it would appear in Access... Whether it does and whether it works dunno

    Try n see? Post up if it does - it'd be useful for the future.


    Vince

    BOFH Now, BOFH Past, Information on duplicates

    Feeling like a fly on the inside of a closed window (Thunk!)
    If I post a lot, it is because I am bored at work! ;D Or stuck...
    * Anything I post can be only my opinion. Advice etc is up to you to persue...

  5. #5

    Thread Starter
    Ex-Super Mod RobDog888's Avatar
    Join Date
    Apr 2001
    Location
    LA, Calif. Raiders #1 AKA:Gangsta Yoda™
    Posts
    60,709
    I got it finally. I used allot of nested IIF's to determine if the
    dDate was a datediff of no more than 7 of the weekday of the
    current date's Monday. Then 14, 21, 28, etc.

    So I end up with a column of Nulls if they are out of the 5 week
    range. The ones that are left are the Monday's date. I filter those
    dates in 5 repeated columns in a report. Then I applied filtering
    again to only show that weeks date's quantity. Messy query and
    report, but its working now.

    I didnt get the time to write the SQL View for it for testing, but
    maybe at a later time. Need to stay on budget.

    Thanks.
    VB/Office Guru™ (AKA: Gangsta Yoda®)
    I dont answer coding questions via PM. Please post a thread in the appropriate forum.

    Microsoft MVP 2006-2011
    Office Development FAQ (C#, VB.NET, VB 6, VBA)
    Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
    If a post has helped you then Please Rate it!
    Reps & Rating PostsVS.NET on Vista Multiple .NET Framework Versions Office Primary Interop AssembliesVB/Office Guru™ Word SpellChecker™.NETVB/Office Guru™ Word SpellChecker™ VB6VB.NET Attributes Ex.Outlook Global Address ListAPI Viewer utility.NET API Viewer Utility
    System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width