In this article I would like to share with you a sample program that will ask the user to give a number and then our program will check if the given number in prime number or not using Microsoft Access. I am using Microsoft Access 2010 in writing 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 telephone number at home here in Bacolod City, Negros Occidental is (034) 4335675.
Sample Program Output
Program Listing
Option Compare Database
Public Function PrimeNumberChecker(sinput) As Boolean
PrimeNumberChecker = True
If sinput = 1 Then
PrimeNumberChecker = False
ElseIf sinput > 2 Then
For i = 2 To sinput - 1
If sinput Mod i = 0 Then
PrimeNumberChecker = False
Exit Function
End If
Next i
End If
End Function
Private Sub Command16_Click()
Dim a As Integer
If Len(Trim(Me.Text13) & vbNullString) = 0 Then
MsgBox "Enter the a Number", vbInformation
Me.Text13.SetFocus
Exit Sub
End If
a = Val(Me.Text13)
If PrimeNumberChecker(a) = True Then
Me.Label15.Caption = "The given number " + Str(a) + " is a Prime Number."
Else
Me.Label15.Caption = "The given number " + Str(a) + " is Not a Prime Number."
End If
End Sub
Private Sub Command17_Click()
Me.Text13 = ""
Me.Label15.Caption = ""
Me.Text13.SetFocus
End Sub
Private Sub Command18_Click()
DoCmd.OpenForm "frmAbout"
End Sub
