Showing posts with label factorial in ms access. Show all posts
Showing posts with label factorial in ms access. Show all posts

Monday, January 1, 2018

Factorial Solver in Microsoft Access

A simple program that will ask the user to give a number and then our program will compute the factorial value of the given number by our user. I am using Microsoft Access 2003 in developing this program.

I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental is (034) 4335675.






Sample Program Output


Program Listing

Option Compare Database

Function Factorial(Num As Integer)
Dim i As Integer, answer As Double
answer = 1
For i = 1 To Num
answer = answer * i
Next i
Factorial = answer
End Function

Private Sub Command12_Enter()
Me.txtvalue = ""
Me.Label9.Caption = ""
Me.txtvalue.SetFocus
End Sub

Private Sub Command13_Click()
Dim Sure As Integer

Sure = MsgBox("Are you sure?", vbOKCancel)
If Sure = 1 Then
DoCmd.Quit
Else
 DoCmd.OpenForm "frmFactorial"
 Me.txtvalue.SetFocus
End If
End Sub

Private Sub Command7_Click()
Dim val_solve As Integer


If Len(Trim(Me.txtvalue) & vbNullString) = 0 Then
     MsgBox "Kindly give a number", vbInformation
     Me.txtvalue.SetFocus
     Exit Sub
End If

Label9.Visible = True

val_solve = Factorial(Val(Me.txtvalue))

Label9.Caption = "Factorial value is " + Str(val_solve) + "."

End Sub