How To Make A VBA Function

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

<< MS ACCESS FORM VALIDATION – PT4 | VBA Variable Scope >>




By the way, if you got or are getting value from the VBA information, please give me a tip, thanks!


These posts may help answer your question too...

How To Escape Apostrophe In SQL Update Query

If you are looping a table with thousands of records, you’ll probably run into at least one that has an apostrophe in the field name. Like “Mike’s” or “M’cormick”, or something else. Anyway, here is one way to escape the string when you are doing your update query. Option Compare Database Sub YDriveLoop() ‘4/23/24 erik@loeblcomservices.com […]

How To Make An Access Form Time Picker

Here is a relatively easy way to select times for your time entry text boxes. It’s a reusable form that allows you to pick a time from an Access form. There are probably different ways to do this but here is the way I would do it. On the form that has the time fields, […]

How To Parse A Flat File In Excel VBA

In another post I demonstrated how to access a file on your computer using the MS Office Library. Here it is if you don’t know what I’m talking about. In this post, I am going to show you how to access the file and load it into your spreadsheet. I will do the same thing […]

How to pick a file to load In VBA

Picking a file to load in your Microsoft App is a very important skill to know. In this blog post you will see how to do it. First you need to set a reference to the MS office object library From VBE editor –> select Tools > MS office object library (click check mark) Sub […]

Previous Post

A Variable Scope

Next Post

MS ACCESS FORM VALIDATION – PT4

Leave a Reply

Your email address will not be published. Required fields are marked *