Need direction

[yashuaking]

I have a headache am trying to solve I hope someone helps me with this one. I have a code which autopopulate dates based on a selection criteria. What I want to is that it should skip all weekends whiles it populates the fields. I have tried the Weekend functions but it simply does not work. am hoping that someone helps me out. this is my code

If MsgBox("Are you SURE? This will erase all payment data and create a new schedule?", vbYesNoCancel + vbCritical, "Falcon Engine") <> vbYes Then Exit Sub
 
    If IsNull(Forms!LoanF!PaymentAmount) Then
        MsgBox "You need to calculate the payment amount first"
        Exit Sub
    End If
 
    DoCmd.SetWarnings False
 
    DoCmd.RunSQL ("DELETE * FROM ScheduleT WHERE LoanID=" & Forms!LoanF!LoanID)
    Me.Requery
    DoCmd.GoToControl "PaymentNumber"
 
    Dim BBal As Currency
    Dim Counter As Long
    Dim CurDate As Date
    Dim X As Integer
    Dim TotalPrin As Currency, Correction As Currency
 
    BBal = Forms!LoanF!TotalAmountDue
    Counter = 1
    CurDate = Forms!LoanF!FirstPaymentDate
 
    While BBal > 0
        DoCmd.GoToRecord , , acNewRec
        PaymentNumber = Counter
        [ClientName] = Forms!LoanF!ClientName
        [AccountNumber] = Forms!LoanF!AccountNumber
        Counter = Counter + 1
        DueDate = CurDate
        CurDate = IIf(Forms!LoanF!RepaymentFrequency = "Daily", (DateAdd("d", 1, CurDate)), IIf(Forms!LoanF!RepaymentFrequency = "Weekly", DateAdd("ww", 1, CurDate), IIf(Forms!LoanF!RepaymentFrequency = "Fortnightly", DateAdd("ww", 2, CurDate), IIf(Forms!LoanF!RepaymentFrequency = "Monthly", DateAdd("m", 1, CurDate), IIf(Forms!LoanF!RepaymentFrequency = "Quarterly", DateAdd("q", 1, CurDate), IIf(Forms!LoanF!RepaymentFrequency = "Semi Annually", DateAdd("yyyy", 1, CurDate) / 2, IIf(Forms!LoanF!RepaymentFrequency = "Yearly", DateAdd("yyyy", 1, CurDate), "Invalid Reapayment Frequency")))))))
        AmountPaid = 0
        InterestPaid = (Forms!LoanF!TotalAmountDue - Forms!LoanF!Principal) / (Forms!LoanF!TotalAmountDue) * AmountPaid
        PrincipalPaid = AmountPaid - InterestPaid
        RegularPayment = 0
        ExtraPayment = 0
        Penalty = 0
        BeginningBalance = BBal
        AmountDue = Forms!LoanF!PaymentAmount
        InterestDue = Round(BeginningBalance * ((Forms!LoanF!InterestPerMonth) / (Forms!LoanF!NumberOfPayments)), 2)
        PrincipalDue = AmountDue - InterestDue
        If BBal < Forms!LoanF!PaymentAmount Then
            EndingBalance = 0
            AmountDue = AmountDue
            PrincipalDue = PrincipalDue
        Else
            EndingBalance = BeginningBalance - AmountDue
 
        End If
 
        BBal = EndingBalance
    Wend
 
    DoCmd.GoToRecord , , acNewRec
 
    Forms!LoanF.Requery
    DoCmd.SetWarnings True
 

Every thing is fine with the exception of weekends included in the DUEDATE. Please i need help.

I seems to be asking more questions because I have not even stepped in a programming class before!

[zmbd]

yashuaking
Please, new question, new thread - we respectfully ask that each thread be kept to a single question. This makes it easier to stay focused on the goal and for others with a similar problem to find the help they need.
I’ve gone ahead and split this out to a new thread for that reason; however, the title is somewhat generic and can be changed should you desire.

[yashuaking]

Ok thanks Zmbd. I would do well to comply to the guidelines

[yashuaking]

But please I need help with the post