What's the Problem in this code

[Mehvan]

Hello Everyone
this code is gives me the problem , and this code is working with me in other project


I'm using Ms Access 2010 , and also I'm using Ms Access 2010 in other project who is working without problem and the same code
I created this project and used this code also , its doesn't work

[Minty]

You haven't declared the first three variables you have used ;

Sales_Cost
Fisrt_Date_Of_Payment
Number_Of_Installments

The reason is that the local version of the database has Option Explicit in the definition of the module.
This is a GOOD thing as it forces you to declare your variables. And would also probably have picked up on the spelling mistake.

[moke123]

did you dim Sale_Cost, First_Date_of_Payment, and Number_of_Installments?

[Mehvan]

thanks a lot
but its gives me a problem in here

[Minty]

Correct.

You need to declare those variables. https://msdn.microsoft.com/en-us/vba...or=-2147217396

Dim    Sale_Cost                      as Currency
Dim    Fisrt_Date_Of_Payment    as Date
Dim    Number_Of_Installments  as Integer

I have guessed at the type of data you want to use.

[orange]

Mehvan,

Always include Option Explicit in your modules.

When posting code, please post the entire sub or function.

[Mehvan]

this is part of project


111.zip

[Minty]

Yes and as I advised you needed to declare those variables ;

Private Sub CmdInstalAmount_Click()
    On Error GoTo err_CmdInstalAmount_Click
    
    Dim rst As DAO.Recordset
    
    Dim i As Integer
    
    Set rst = Me.RecordsetClone
    
    Dim Sale_cost As Currency
    Dim Fisrt_Date_of_Payment As Date
    Dim Number_Of_Installments As Integer
    
    Sale_cost = Forms![InstalmentInvoiceF]![InstalmentTotal]
    Fisrt_Date_of_Payment = Forms![InstalmentInvoiceF]![InstalDate]
    Number_Of_Installments = Forms![InstalmentInvoiceF]![InstalQy]


    For i = 1 To Number_Of_Installments
    
        rst.AddNew
        rst![Forms]![SubInstalmentF1]![SubInstalmentID] = Forms![InstalmentInvoiceF]![InstalmentInvoiceID]
        rst![Forms]![SubInstalmentF1]![Instalment] = i
        rst![Forms]![SubInstalmentF1]![InstalmentAmount] = Sale_cost / Number_Of_Installments
        rst![Forms]![SubInstalmentF1]![InstalDate] = DateAdd("m", i - 1, Fisrt_Date_of_Payment)
        rst.Update
    
    Next i
    
    rst.Close: Set rst = Nothing
    
exit_CmdInstalAmount_Click:
    Exit Sub
    
err_CmdInstalAmount_Click:
    MsgBox Err.Description
    Resume exit_CmdInstalAmount_Click
End Sub

[Mehvan]

thanks a lot
but also gives me another problem

[Mehvan]

I have solved it by using command in SubForm , not in Main from

thanks for all

[Minty]

Glad you solved it.
For future posts it helps to post the actual code (Use the # mark in the editor to preserve its layout), not a picture, and show use the line the error occurs on.

[Mehvan]

thanks a lot
I will do it next time , I didn't know that