Positive and Negative Number Checker in Microsoft Access

A very simple program that I wrote using Visual Basic for Application in Microsoft Access 2000 to ask the user to give a number and then our program will check if the given number is a positive and negative number.

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

'Written By Mr. Jake R. Pomperada, MAED-IT

'December 31, 2017 Sunday

' Microsoft Access 2000

Option Compare Database

Private Sub Command5_Click()

Dim val_me As Integer

val_me = val(Me.Text2)

If Len(Trim(Me.Text2) & vbNullString) = 0 Then

     MsgBox "Enter a Number Please", vbInformation

     Me.Text2.SetFocus

     Exit Sub

End If

If (val_me >= 0) Then

   MsgBox ("The given number " + Trim(Str(val_me)) + " is a Positive Number.")

   Else

   MsgBox ("The given number " + Trim(Str(val_me)) + " is a Negative Number.")

  End If

End Sub

Private Sub Command6_Click()

Me.Text2 = ""

Me.Text2.SetFocus

End Sub

Private Sub Command7_Enter()

  MsgBox ("This program was written by Mr. Jake R. Pomperada")

End Sub