Calculate Warranty Expirary Date

[vdanelia]

Hello Rabbie, first of all thank you for the reply....
I really Needed the help!, then i try and coded something with help of you and others now my problem is solved I did my best

here is the full code for that:
Maybe someone will need it

Description: I made 3 Text boxes (WarerantyExpDate, Purchasedate, Numbers of .....) and 1 Combo box (WarrantyType) With options inside (Year, Month Day)

It works perfectly
Select Case Me.WarrentyType
Case "year"
Me.WarrantyExpDate = DateAdd("yyyy", Me.NumberOfYears, Me.PurchaseDate)
Case "Month"
Me.WarrantyExpDate = DateAdd("m", Me.NumberOfMonths, Me.PurchaseDate)
Case "Day"
Me.WarrantyExpDate = DateAdd("d", Me.NumberOfDays, Me.PurchaseDate)
Case Else
MsgBox "invalid warrenty type"
End Select