How To Make A VBA Function
by admin on Monday, September 24th, 2012 | No Comments
This video will cover the following:
–How to call built-in and custom vba functions in an application.
–How to create a custom vba function.
Here’s the video:
There are 2 types of functions, “Built-in” and “Custom” functions. Buit-in functions are functions Access provides. Custom functions are vba functions you create because Access doesn’t provide a suitable built-in vba function.
'-> How to call built-in and custom vba functions in an application. '-> How to create a custom vba function. Private Sub btnConvert_Click() 'Built-in - convert text to upper case Me.txtUCase = UCase(Me.txtUCase) End Sub Private Sub btnDate_Click() 'Built-in - enter today's date Me.txtStartDate = Date End Sub Private Sub btnLeft_Click() Dim strText As String 'Built-in - return the left 4 characters from the textbox entry. strText = Left(Me.txtLeft, 4) MsgBox strText End Sub Private Sub btnValidate_Click() 'Built-in - example of using a function in an If statement. If Not IsNull(Me.txtValidate) Then MsgBox "Thanks for your entry" Else MsgBox "Blank entries are not allowed, try again" End If End Sub Private Sub btnCalculate_Click() 'Custom - calculate the due date Me.txtEndDate = NetThirty(Me.txtStartDate) End Sub Function NetThirty(StartDate As Date) As Date 'return 30 days beyond the date passed Dim dteNewDate As Date dteNewDate = StartDate + 30 NetThirty = dteNewDate End Function