Loading
IT Services  YITTBOX
Create an account and receive a discount code for any future services!
Get Discount Code Now

Small Business and Need IT help?
Custom IT Solutions for Small and mid-size businesses who can't justify spending "Big IT" money!|Startups & Financial Organizations!|Anyone who wants to streamline their growth!

EXPLORE NOW
Clients

263

Clients

Projects

319

Projects

Subscribers

36

Subscribers

WHAT WE DO

OUR SERVICES

Yittbox Is Your One-Stop Shop For Custom IT Solutions. We Aim To Create The Best Possible Solution For Your Business By Offering A Wide Range Of Services.

Who We Are

ABOUT YITTBOX

Yittbox Started With One Individual Trying Out The “Gig Economy” Freelancing. Providing Freelancing IT Services, Focusing On Small - Medium Size Business, Quickly Exploded.There Is An Inherent Void In The Small - Medium Market With Needing Customized IT Solutions, But Not Ready To Spend The “Big IT” Prices On Consulting Or “Off The Shelf” Solutions. Within A Year Of Beginning, A Team Of Individuals Had Been Hired And The Freelancing Service Evolved And Re-Branded Into Yittbox And Is Quickly Working To Fill That Void.

In Our Years Of Experiences, We Believe The Small-Mid Size Market Does Not Have Competent, Affordable, Reliable IT Partners. The Big 5 IT Consulting Firms Cater To Fortune 100 Companies As The Norm But We Believe In Challenging The Status Quo. We Believe In Thinking Outside The Box And Enabling The Small-Mid Size Market To Compete.

Know More
About Us
“People don’t buy what you do; they buy why you do it”. ~Simon Sinek.
What We are Best at

OUR Recent Works

Having worked with a host of small and medium- sized businesses, here's a glance at some of our latest works and the solutions deployed for each one. Dive in to know how we pay attention to precision when it comes to customizing solutions for our clients.

Testimonials

OUR Clients Speak

Don't believe what we say, hear it straight from our clients.

Freebies

Most Recent Free Advice

We're answering some of your common questions here. We're here to cater to any additional queries.

Report Date: 1/18/2019 5:57:44 AM Deepanjali Mall
Here’s a bit of an odd ball, but I was helping out in a forum discussion in which the user needed to be able to display the code behind procedures. He was trying to create some type of teaching tool. Now there are different ways to approach such a thing and he could have copy/pasted each procedure into a table, but that creates duplication (which is never a good thing), creates maintenance since he’ll have to update entries as code is change, … I found the question intriguing and set out to find a way to simply read the information from the VBA project. Anyone have a solution already?
                                                Hello. I found a post of similar question and the solution for it. Credit for Daniel Pineault from devhut.net.

'---------------------------------------------------------------------------------------
' Procedure : VBE_GetProc
' Author    : Daniel Pineault, CARDA Consultants Inc.
' Website   : http://www.cardaconsultants.com
' Purpose   : Return a VBA proc's text - a way to extract vba procedures
' Copyright : The following is release as Attribution-ShareAlike 4.0 International
'             (CC BY-SA 4.0) - https://creativecommons.org/licenses/by-sa/4.0/
' Req'd Refs: None, uses Late Binding
'
' Input Variables:
' ~~~~~~~~~~~~~~~~
' sModuleName : Name of the Module that contains the procedure to navigate to
' sProcName   : Name of the procedure to return the text of
' bInclHeader : True/False - whether to include the procedure header in the returned
'                   string
'
' Usage:
' ~~~~~~
' ? VBE_GetProc("Module1", "fOSUserName")
' ? VBE_GetProc("Module1", "fOSUserName", False)
'
' Revision History:
' Rev       Date(yyyy/mm/dd)        Description
' **************************************************************************************
' 1         2018-12-28              Initial Release, forum help
' 2         2018-12-28              Swicthed to Late Binding
' 3         2018-12-31              Added bInclHeader to include/exclude the proc header
'                                   Minor code optimization
'---------------------------------------------------------------------------------------
Public Function VBE_GetProc(ByVal sModuleName As String, _
                            ByVal sProcName As String, _
                            Optional bInclHeader As Boolean = True)
    Dim oModule               As Object  'CodeModule
    Dim lProcStart            As Long
    Dim lProcBodyStart        As Long
    Dim lProcNoLines          As Long
    Const vbext_pk_Proc = 0 'Req'd for Late Binding
 
    On Error GoTo Error_Handler
 
    Set oModule = Application.VBE.ActiveVBProject.VBComponents(sModuleName).CodeModule
    lProcStart = oModule.ProcStartLine(sProcName, vbext_pk_Proc)
    lProcBodyStart = oModule.ProcBodyLine(sProcName, vbext_pk_Proc)
    lProcNoLines = oModule.ProcCountLines(sProcName, vbext_pk_Proc)
    If bInclHeader = True Then
        VBE_GetProc = oModule.Lines(lProcStart, lProcNoLines)
    Else
        lProcNoLines = lProcNoLines - (lProcBodyStart - lProcStart)
        VBE_GetProc = oModule.Lines(lProcBodyStart, lProcNoLines)
    End If
 
Error_Handler_Exit:
    On Error Resume Next
    If Not oModule Is Nothing Then Set oModule = Nothing
    Exit Function
 
Error_Handler:
    'Err 35 is raiised if proc not found
    MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Error Source: VBE_GetProc" & vbCrLf & _
           "Error Description: " & Err.Description & _
           Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
           , vbOKOnly + vbCritical, "An Error has Occurred!"
    Resume Error_Handler_Exit
End Function
                                            
Report Date: 1/30/2019 12:40:27 PM Admin
Ever wanted to minimize/close the Navigation Pane/Shutter Bar? Not hide it completely, just make it minimize/close/collapse. Please share any code you have for this.
                                                Welcome to YittBox. Thanks for posting this question. 
To minimize the navigation pane, but not hide it completely, you can try this code:
     DoCmd.NavigateTo "acNavigationCategoryObjectType": DoCmd.Minimize
                                            
Report Date: 9/22/2019 6:40:01 PM admin
For years I have created Access databases, reports, queries (intermediate level)...since the 90's. I have always had problems with inserting random page breaks after report sections so the data isn't on one page and the totals on the next page. I know how to insert a hard page break, but since reports (as repeatedly edited) may not always break at the same place, I need to be able to set up a page break after a completed section of data (so totals aren't on next page, for instance). Can you help?
                                                To break page on a specific section, you can open the report in design view, select the section on property pane, then change "Force New Page" setting to "before section" or "after section".
                                            
Report Date: 9/23/2019 5:40:07 PM admin
This is a very great source of code. Is there a complete VBA Library that you can share? Thanks!
                                                You can subscribe and you will have access to the full VBA Reference Library under the "Free Code" section in the bottom left. Enjoy!
                                            
Report Date: 9/29/2019 7:28:15 AM admin
How can I move a file from one directory to another?
                                                Here is a possible solution:
 'Ensure properly formatted paths were supplied, adjust as req'd
    If Right(sPathSource, 1) <> "\" Then sPathSource = sPathSource & "\"
    If Right(sPathDest, 1) <> "\" Then sPathDest = sPathDest & "\"
    'Build fully qualified path\filenames for the move process
    sSourceFile = sPathSource & sFile
    sDestFile = sPathDest & sFile
 
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    'Ensure the supplied paths (Source/Destination) actually exist
    If oFSO.FolderExists(sPathSource) = False Then
        If bDisplayErrMsg = True Then
            sMsg = "Source path '" & sPathSource & "' does not exist."
            Debug.Print sMsg
            Call MsgBox(sMsg, vbInformation Or vbOKOnly, "FSO_MoveFile Error")
        End If
        FSO_MoveFile = False
        GoTo Error_Handler_Exit
    End If
    If oFSO.FolderExists(sPathDest) = False Then
        If bDisplayErrMsg = True Then
            sMsg = "Destination path '" & sPathDest & "' does not exist."
            Debug.Print sMsg
            Call MsgBox(sMsg, vbInformation Or vbOKOnly, "FSO_MoveFile Error")
        End If
        FSO_MoveFile = False
        GoTo Error_Handler_Exit
    End If
    'Ensure the File to be copied actually exists
    If oFSO.FileExists(sSourceFile) = False Then
        If bDisplayErrMsg = True Then
            sMsg = "Source file '" & sSourceFile & "' does not exist."
            Debug.Print sMsg
            Call MsgBox(sMsg, vbInformation Or vbOKOnly, "FSO_MoveFile Error")
        End If
        FSO_MoveFile = False
        GoTo Error_Handler_Exit
    End If
 
    'Check to see if the file already exist in the Destination folder
    If oFSO.FileExists(sDestFile) = True Then
        If bAutomaticOverwrite = False Then
            GoTo Error_Handler_Exit
        Else
            Kill sDestFile
        End If
    End If
    oFSO.MoveFile sSourceFile, sDestFile
    FSO_MoveFile = True
 
Error_Handler_Exit:
    On Error Resume Next
    If Not oFSO Is Nothing Then Set oFSO = Nothing
    Exit Function
 
Error_Handler:
    MsgBox "The following error has occured" & vbCrLf & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Error Source: FSO_File_Move" & vbCrLf & _
           "Error Description: " & Err.Description & _
           Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
           , vbOKOnly + vbCritical, "An Error has Occured!"
    Resume Error_Handler_Exit
End Function
                                            
Report Date: 9/29/2019 7:31:06 AM admin
I have inherited a database that has a number of queries that have fields defined like: IIf(IsNull([Table1.Field1]), 0, [Table1.Field1]) AS [New Field Name] Your code will only return the “New Field Name” portion (ie: the field name). Is there a way to get the underlying “IIf…..” statement from the field? Thanks in advance.
                                                I'm not sure I understand this question; First, instead of the "IIF" function, I would use the "Nzz" custom function (which can be found via the "VBA Reference Library" in the YittBox Free Code section). 
                                            
Let’s Work together

Start your Project