How 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!Moving 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!
Transitioning 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. Jeff
Strange 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.
IsMissing 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?
Access to Word Document
Office 365. I have an Access report with one image (logo) and 4 subreports as a Print Preview. I need to save it as a Word .docx. Would it be best to just use the export to word command on the Print Preview tab or should I try to set it up as a merge document? It would require subdocuments, I believe. I will need to give it a unique name, based on the data in the report. Once it is in Word, can I make changes from Access? Can I re-open the Word document from Access at a later date to edit it? OR is there a better way??? Please help. Thanks in advance.
Access - how to joining two queries with different data without doubling data
I'm not sure how to phrase my issue, which makes finding a solution also difficult I'm trying to combine two different queries so I can run a report that shows all of the crops FarmerID is growing as well as the number of livestock . One query is labeled qryCrops and the other qryLivestock. Both queries have the same FarmerID (the unique key). The problem is I have a variety of scenarios: some farmers have multiple crops and only one type of livestock, other farmers have one crop and multiple types of livestock, some have multiples of both, etc. Whenever I try connecting the data, Access automatically doubles the information (see example below). I've tried joining data which hasn't worked. A query with a left join won't duplicate the crops, but will duplicate livestock. A query with a right join won't duplicate the livestock, but will duplicate the crops. I've tried running a left and right join query separately, and then combining both queries into a Union query, and my data still is getting doubled (I suspect that's not the right option as I'm not comparing apples to apples). Nothing seems to work! I've tried searching the internet and have been unsuccessful at finding a solution. Here is what I want; I want access to leave fields blank if there is no data: FarmerID Acres CropType LivestockNum LivestockType Farmer A 6 Pasture 3 Cows Farmer A 10 Hay Farmer B 15 Pasture 2 horses Farmer B 100 chickens This is what I get when I combine the data: FarmerID Acres CropType LivestockNum LivestockType Farmer A 6 Pasture 3 Cows Farmer A 10 Hay 3 Cows Farmer B 15 Pasture 2 horses Farmer B 15 Pasture 100 chickens Any thoughts? Our reports are currently set up to show the farmers and all of their crops, then the next section has the farmers and all of their livestock. I want a report that's grouped by the farmer so it shows all of their information in one place (without doubling data), then moves on to the next farmer. I'm hoping the query solution mentioned above will solve that. Thanks in advance!
ODBC Timeout Problem
Hi, I am calling a SQL Server stored procedure from my MS Access program and am getting the ODBC timeout error. When I run the stored procedure from SSMS, it executes in less than one second. I am passing no input parameters and the results are not returned from the stored procedure - they are written to a table instead. How can I avoid the timeout error? Dim cnn As New ADODB.Connection Dim cmd As New ADODB.Command connString = <all the usual stuff> cnn.Open (connString) With cmd .ActiveConnection = cnn .CommandType = adCmdStoredProc .CommandText = "usp_GetUnbilledItems" .Execute ---Times out here. End With
