Area of the Circle Solver in Microsoft Access

A very simple program that I wrote using Visual Basic for Application in Microsoft Access to compute the area of the circle. Our program will ask the user to give the radius of the circle and then it will compute then area. The code is very easy to understand and use.

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_radius, display As Double

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

     MsgBox "Enter the Radius Please", vbInformation

     Me.Text2.SetFocus

     Exit Sub

End If

val_radius = val(Me.Text2)

 area = 3.14 * (val_radius * val_radius)

 display = Round(area, 2)

 Label8.Caption = "The area of the circle is " + Trim(Str(display)) + "."

End Sub

Private Sub Command6_Click()

Me.Label8.Caption = ""

Me.Text2 = ""

Me.Text2.SetFocus

End Sub

Private Sub Command7_Enter()

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

End Sub