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.
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
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.
Don't believe what we say, hear it straight from our clients.
Offered a thoughtful solution to the problem. Recommended!
[YittBox] was very quick to respond and was able to gather the requirements and get our issues fixed. We've had others try to fix the database issues and [YittBox] was the only person to deliver!
Was prompt and informative throughout entire process. Strongly recommend. Great Job!!
[YittBox] was extremely responsive and helpful with an immediate project need. Professional and capable.
[YittBox] was very helpful and thorough. He asked great questions and delivered what I asked for.
[YittBox] did an excellent job. She is a thoughtful, writer. She gets her jobs done in a timely manner, with a high level of attention to detail. Will definitely use her services again.
What a fantastic experience. [YittBox] is always prompt with communication, an excellent writer, editor, copywriter, and overall excellent at Digital Marketing. An absolute joy to work with and I'll be reaching back out to her for my next project.
Great to work with. Understood instructions and executed the best result for what could be done.
[YittBox] did a great job. Communication was excellent and the skill set was excellent. Would use again.
This is an outstanding contractor. He completed the project on the same day and followed the instructions perfectly.
[YittBox] was awesome to work with and we will be working with him again on the next project. He was excellent in several ways. He's personable. He communicates well and was willing to hop on last minute calls. He's fast. And he knows his stuff!
What a fantastic experience. [YittBox] is always prompt with communication, an excellent visual designer, report creator, VBA coder, and overall excellent at anything "Data Related". An absolute joy to work with and I'll be reaching back out to him for my next project. You are worth the money x 2!!
If I have a another similar project I will be coming to [YittBox] first
[YittBox] is knowledgeable, highly responsive and engaged. He consistently met our deadlines. We are continuing to work with [YittBox] on additional projects.
[YIttBox] continues to be a great resource. He works hard and fast and always delivers.
We're answering some of your common questions here. We're here to cater to any additional queries.
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
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
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".
You can subscribe and you will have access to the full VBA Reference Library under the "Free Code" section in the bottom left. Enjoy!
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
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).