App
30 TopicsStrange 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.47Views0likes3CommentsCopilot, 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=64ebb3ecf7e5b19c05d1731a571b1001111Views0likes7CommentsLink a table from MS Fabric
Is it possible to link a table stored in MS Fabric Dataflow Gen2 to an Access database? The data set is roughly 500k rows of data. FYI I'm not trying to link Fabric FROM an Access database. Rather I would like to work with the data in MS Access. Any help would be appreciated.265Views0likes0CommentsVBA code copies an Excel template into a specific workbook which is in the cloud - hangs randomly
My client has a small application which effectively, using Access VBA, copies an Excel template to a systematically named excel file, populates it, and then saves the destination excel workbook file. It hangs "randomly" , claiming it cannot find the renamed destination file, at copying time - one filesys copyfile statement - before it has been populated. The Access is running on 1 PC in a lan but the excel files are stored in the cloud - OneDrive. I think that the short process is too fast - sometimes - for the cloud to find / create the destination excel file. I also discovered that a newly arrived Excel advice banner was a problem. I "upgraded" the original Excel template as advised and this issue disappeared. But the "can't find" issue is not new. Any similar experiences?232Views0likes0CommentsAccess Europe Meeting - Wed 6 Dec - Streamline Your Import/Export Spec Workflow with VBA Classes
The next online meeting of the Access Europe User Group will be onWednesday 6 Dec 2023starting at18:00 UK time (6PM UTC)and finishing at about 19:15 (7.15PM). In this month's session,Mike Wolfe (MVP)will be leading a presentation calledStreamline Your Import/Export Spec Workflow with VBA Classes. For more details about the topic and speaker together with connection details for the meeting, please visithttps://isladogs.co.uk/aeu-22/orhttps://accessusergroups.org/europe/event/access-europe-2023-12-06/ The meeting will again be held onZoom. When the time comes, you can connect using Join Zoom Meeting. If you are asked, use:Meeting ID: 924 3129 5683 ; Passcode: 661210 For other local times, please checkhttps://www.worldtimebuddy.com/ NOTE: For our friends in the USA & Canada, I recommend you do re-check time differences now that its Winter Time for you as well as in Europe.431Views0likes1CommentAccess Europe meeting on Wed 6 Sept - Database Analyzer and other tools
The next Access Europe meeting will be onWednesday 6 Sept 2023starting at18:00 UK time (6PM UTC+1)and finishing at about 19:15 (7.15PM) The start time is equivalent to 19:00 (7PM) in Central Europe and 10AM in Seattle / PST Please note that the UK is now on Summer Time (UTC+1). For local times, please checkhttps://www.worldtimebuddy.com/ In this month's session, I will be demonstrating my newDatabase Analyzer Proapplication. The free evaluation version is now available for download from the above link on my website If time permits, I will also be discussing a number of related Access examples and code samples such as: • the use of progress bars • creating a table of contents in Access reports • the undocumented SaveAsText/LoadFromText features • changing query views using command bars code For more details about this session, see:https://accessusergroups.org/europe/event/access-europe-2023-09-06/orhttps://isladogs.co.uk/aeu-19/ The meeting will again be held onZoom. When the time comes, you can connect using:Join Zoom Meeting. If you are asked, use:Meeting ID: 924 3129 5683 ; Passcode: 661210 For more connection options, please see theAccessUserGroups.orgweb page for this event All sessions are recorded and later uploaded to theAccess User Groupschannel onYouTube I hope you will join us for this month's session. As always, the session will be recorded and the video uploaded toYouTubeafter the event NOTE: I regret that the planned presentation on Better Access Charts by Thomas Moller originally scheduled for Wed 6 Sept has been postponed until further notice.884Views1like2CommentsAccess Europe meeting on Wed 2 August - An Access Developer Guide to creating applications in Blazor
The nextAccess Europemeeting will be onWednesday 2 August 2023starting at18:00 UK time (6PM UTC+1)and finishing at about19:15 (7.15PM) The start time is equivalent to 19:00 (7PM) in Central Europe and 10AM in Seattle / PST Please note that the UK is now on Summer Time (UTC+1).For local times, please checkhttps://www.worldtimebuddy.com/ In this session,Juanjo Luna(MVP) will demonstrate how to create applications for any type of platform usingBlazor. The approach used will be forVBA and MS Access developers. You will learn what the learning curve is for this technology and be able to create your first application in an hour. This means an end to limitations of being unable to offer services in the cloud and on mobile devices. For more details, see:https://accessusergroups.org/europe/event/access-europe-2023-08-02/orhttps://isladogs.co.uk/aeu-18/ The meeting will again be held onZoom. When the time comes, you can connect using:Join Zoom Meeting. I hope you will join us for what should be a very interesting session. As always, the session will be recorded and the video uploaded toYouTubeafter the event I regret that the planned follow-up presentation on Better Access Charts by Thomas Moller on Wed 6 Sept has been postponed. Details of the replacement session to follow665Views0likes2CommentsDynamic reference to array
Hi, it's been a long time since I've done any VBA code within Access. I have a situation where I globally defined 2 arrays. Dim a1() as string Dim a2() as string Within a Sub routine, I need to call another sub routine passing the an argument for either one of the two array names defined in the global area. I'm struggling to figure out how I can add values to the correct array dynamically. sub addRecs(Byval arrayName as string) arrayName(1) = "new value" end sub When I run it this way, I get an error stating it's expecting an array.1.2KViews0likes5CommentsRating system problem
To start out with, this form is used to rate things using a five-star method. I have a combo box that a user can select a category on which they wish to rate the transaction on. Once they select one and decide to add it, I have VBA that adds that selected category to the database and requeries a subform. The subform is linked to the overall record. The entry is listed in the subform and has 5 empty stars and the user can click on the star and it, as well as the previous stars, get replaced with a filled star. The images are merely placeholders and the actual rating, 1 to 5, is stored as an integer. Everything works to this point. My issue is, when the user tries to select a star, all the ratings for all the other categories are also mirrored. I am sure it is something very simple I am overlooking but I just can't put my finger on the issue. As the 5 placeholders are individually named but duplicated for each record, my code does not know specifically which entry it should stick to. Can anyone help me on this; point me to a tutorial online or help anything to help rattle my brain My continuous form looks like : This is subform in the actual form with the Rating category combobox. The Overall Rating works like it should. Any help and guidance is greatly appriciated513Views0likes0Comments