developer
182 TopicsHow to restore selected ribbon tab after report with a custom ribbon is closed?
We have a database which has two ribbons. A Switchboard ribbon with multiple tabs and a hidden PrintPreview ribbon used through report “Ribbon Name” property. The PrintPreview ribbon has startFromScratch="true". The tabs of Switchboard ribbon have multiple buttons use for opening a corresponding report. The problem is that each time a user opens and closes a report the Switchboard ribbon jumps back to first tab. Example: Switchboard has tab1, tab2. The tab1 has button1 and button2 to open report1 and report2 correspondently. The tab2 has button3 and button4 to open report3 and report4 correspondently All 4 reports have “Ribbon Name” property set to PrintPreview ribbon. User clicks report3 from tab2. The report3 is opens, Switchboard ribbon is hidden and PrintPreview ribbon is visible. User close report3. The Switchboard ribbon became visible and tab1 is an active tab. Now user need to click on tab2 again if he/she want to open report4 or even report3 again. If we extrapolate this situation for 17 tabs on Switchboard ribbon with each tab having ~20 reports we can see user frustration with moving focus back to first tab. Is where a way to remember which tab in Switchboard ribbon was active before opening PrintPreview ribbon and make it active after report is closed? Note: the only possible solution I found was with use of Ribbon Accessibility here www.wordarticles.com/Shorts/RibbonVBA/RibbonVBADemo.php It is a quite complicated and does not works under Access 365 too. Any help would be appreciated! Thank you!Solved62Views0likes4CommentsMoving Away from MS Access
The organization I work for is wanting to move away from Microsoft Access databases where possible, and we have started exploring what tools our current Access databases could be moved to. Is there a standard for what works best (Powerapps, Sharepoint, etc)? What have you found to be a good resource for guidance on this topic? Thanks!120KViews2likes81CommentsTransitioning From Access To Web Sites
I have a question for the individuals out there that are moving to a web interface from Access What it the best app/program to use to make the move from using Access to using web pages? I've been tasked with converting the Access app that I have been working with for years to make it a web "site", which would be converting the entire application - forms, reports, etc. so that it can be used via web browser instead of MS Access. I am in no means a website developer, but I'm always open to learning new things. Mind you, one of the databases has in excess of 12K lines of VBA. I want to be able to use some of the same techniques as what I've done with VBA and to be able to create a good user experience on the front end plus create some additional enhancements. Al of my searches have not yielded anything helpful. Thanks in advance. Jeff2.1KViews0likes25CommentsStrange chraracters in the powershell command PS_GetOutputFile("netsh wlan show interfaces")
I´m creating a sub that lay out in a textbox of a form with strange chrs. my sub is as follow: Private Sub Form_Load() 'Redondear las esquinas del formulario Call UISetRoundRect(Me, 40, False) 'This sets an exact position using MoveSize if form´s parent is loaded, otherwiseccenter de form on screen If IsLoaded("frmDashBoard") Then DoCmd.MoveSize 15050, 2400 Else Call gfncCenterForm(Me) With Me 'Encabezado de la información de la red Wi-Fi If Not IsNull(Me.OpenArgs) Then Me!lblInfo.Caption = "INFORMACIÓN " & Me.OpenArgs 'Cargar la información de la red Wi-Fi !txtInfo.Value = PS_GetOutputFile("netsh wlan show interfaces") '!lblTitle.Caption = PS_GetOutputClipBoard("(Get-NetConnectionProfile).Name") End With End Sub Public Function PS_GetOutputFile(ByVal sPSCmd As String, _ Optional sTxtFile As String = vbNullString, _ Optional bDelTxtFile As Boolean = True) As String 'If no Text file was specified create one in the Temp folder If sTxtFile = vbNullString Then sTxtFile = Environ$("temp") & "\PSTemp.txt" 'Build the basic PowerShell command sPSCmd = "powershell -command " & sPSCmd 'Add the Out-File so the output generates a text file sPSCmd = sPSCmd & " | Out-File '" & sTxtFile & "' -Encoding Default" 'Run the PowerShell command CreateObject("WScript.Shell").Run sPSCmd, 0, True 'Retrieve the content of the generated Text file With CreateObject("Scripting.FileSystemObject") 'Read the contents of the text file into memory PS_GetOutputFile = .OpenTextFile(sTxtFile).ReadAll() 'Delete the text file if so desired If bDelTxtFile = True Then .DeleteFile sTxtFile End With End Function Public Function PS_GetOutputClipBoard(ByVal sPSCmd As String) As String 'Setup the powershell command properly sPSCmd = "powershell -command " & sPSCmd & "|clip" 'Execute the command which is being pushed to the clipboard CreateObject("WScript.Shell").Run sPSCmd, 0, True 'Get an instance of the clipboard to capture the save value With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .GetFromClipboard PS_GetOutputClipBoard = .GetText(1) End With End Function the result was: Hay 1 interfaz en el sistema: Nombre : Wi-Fi Descripci+¦n : Realtek 8822CE Wireless LAN 802.11ac PCI-E NIC GUID : Direcci+¦n : Tipo de interfaz : Principal Estado : conectado SSID : Redmi Note 12 Pro 5G AP BSSID Banda : 2,4-áGHz Canal: 6 Tipo de red : Infraestructura Tipo de radio : 802.11n Autenticaci+¦n : WPA2-Personal Cifrado : CCMP Modo de conexi+¦n : Conexi+¦n autom+ítica Velocidad de recepci+¦n (Mbps) : 144.4 Velocidad de transmisi+¦n (Mbps) : 144.4 Se+¦al : 100% Perfil : Redmi Note 12 Pro 5G MSCS de QoS configurado: 0 Asignaci+¦n de QoS configurada: 0 Asignaci+¦n de QoS permitida por la directiva : 0 Estado de la red hospedada: No disponible this character +¦ it suposed to be a vocal with acent ´cause is in spanish language, also could be ñáéíóú Could someone help me please!! Thanks in advance.95Views0likes3CommentsBar Code label problems
Office 365. I have labels (reports) with fields that are printed in a bar code font (Code 128 or 3 of 9). After automatic updates, these bar codes do not print properly. Is this a known problem? If not, what is causing these repeated problems? Thanks in advance,93Views0likes7CommentsCopilot, Access, and VBA
I don't know how many of you use Copilot to assist you with Access. I developed my own application using Copilot and it was extremely helpful. I recommend you give it a try to see if it can help you. Here is an article I wrote on it in case you're interested: https://medium.com/@jmsp4home/did-my-own-spending-income-tracking-software-using-microsoft-copilot-heres-why-and-how-it-went-1aa8b4814cca?source=friends_link&sk=64ebb3ecf7e5b19c05d1731a571b1001179Views0likes7CommentsIsMissing not working since last update
I use a few optional parameters here and there, and check to see if they have a value with the IsMissing function. As of the last update (around 11/5/24) it's no longer working. I can check to see if there is a value, and in the case of a string I can check for an empty string, but I would like not to have to recode my database. Anyone else have this issue, or is it just me? Solutions?42Views0likes4CommentsStock Tracking Form and DB
Hiall, I'veattacheda DB/Form im compiling to doa simple intake form for stock holding, Consignment Number needs to be unique, when inputting the TM_Carton_ID on the subform i want it to look upagainst the DBand bring back if its Pure or mixed, but i cant seem to get it to happen for multiple lines. See myattached DB,any help on this would be useful, feel free toaddanyadditions too, once this is live the TM_Carton_ID will be scanned in viaa deviceand we need to tell the user if that carton isa pure carton ora mixed carton. any help would be great on this thanks. DB is below. https://drive.google.com/file/d/1UgD7rwVlKIe_0EHKlDQ2TWqhkbwyLzBx/view?usp=sharing472Views0likes9CommentsAmazing What MS Access is capable of
Having been preparing financial statements for the last 15 years, I have come to appreciate the value of information, and how it helps reflect on your activities and planning for the future through strategy formulation and effective management decision-making. To achieve this efficiently, an organization needs to invest in Information Management Systems, no matter how small. Over the years, I have developed a desktop database using Microsoft Access and I must say this is really one of Microsoft’s most powerful tools but still very much underutilized in business. Below is my “Business Assist” Accounting Package model which I use for recording my transactions. It aims to address the basic needs of an organization such as: Invoicing Batch Invoicing Inventory Management Debtors and Creditors Statements Income Statement Balance Sheet Transaction Reports and more The beauty of it, I have customized it to suit my needs and I have all my information in 1 place. There is no need to continue using the counterbook in the 21st century. Let your business evolve.486Views0likes2CommentsHow to Dynamically Control Debug.Print in MS Access VBA for Optimized Performance
Hello Microsoft Community, I’m Sasha Froyland, and I run an MS Access consultancy where we focus on optimizing performance while maintaining flexibility in debugging. I’ve recently developed a strategy for dynamically controlling Debug.Print to gain up to a 30% performance boost, which we use in our projects. What follows is this performance best practice that has helped us improve efficiency. Would a post like this be of interest to the community? If this isn't the appropriate place for such content, please accept my apologies in advance. My only goal is to facilitate communication and knowledge-sharing of best practices across the Access development space. Looking forward to hearing your thoughts! Below, please find the details of the best practice: At Help4Access, we know how important it is to balance performance with debugging. MS Access developers rely on Debug.Print to track their code, but excessive use can slow your application—sometimes by as much as 30%. To solve this, we’ve designed a dynamic method to enable or disable Debug.Print, giving you a performance boost without sacrificing debugging flexibility. Step 1: Global Variable for Control Start by adding a global variable: vba Copy code Public gDebugEnabled As Boolean This will allow you to toggle Debug.Print on and off globally in your app. Step 2: Configuration Table Create a system configuration table, tblSystemConfig, with a field DebugEnabled (Yes/No). This table will store the setting for whether Debug.Print is active. Step 3: Initialize on Startup At the start of your application, pull the DebugEnabled value into the global variable: vba Copy code gDebugEnabled = DLookup("DebugEnabled", "tblSystemConfig") Step 4: Conditional Debug.Print Wherever you use Debug.Print, wrap it in a conditional statement: vba Copy code If gDebugEnabled Then Debug.Print "Your debug message" Step 5: Real-Time Debugging Control You can toggle the DebugEnabled flag in your config table to turn debugging on or off, and then refresh gDebugEnabled—no need to restart the application. This gives you up to a 30% performance boost during production while retaining the ability to debug when necessary. By following this approach, you get both better debugging and improved performance. At Help4Access, we implement strategies like this to ensure that your Access applications run faster and more efficiently.337Views0likes0Comments