VBA
Hello everyone, I'm new here, so please be kind! This happens every time I create a new file, and Visual Basic Editor won't open in Access. When I click on 'Visual Basic', a pop-up box appears and I'm told that the database cannot be opened because the VBA project contained in it cannot be read. The database can be opened only if the VBA project is first deleted. Deleting the VBA project removes all codes from modules, forms and reports. You should backup your database before attempting to delete the VBA project. Note: To create a backup copy, click Cancel and then make a backup copy of your database. To open the database and delete the VBA project without creating a backup copy, click OK. Well, I have no database to read in the first place because I haven't made one, so what does it mean, and how do I fix this, please?
MS Access Database Decommissioning
Hi folks, We have the following version of the MS Access Database and we are not sure when MicroSoft is decommissioning this version of MS Access Database. We have the latest version of MicroSoft Application installed as a part of our environment, but the actual MS Access Database is the following for one of the databases. Do we need to update this database called Pontiac to the latest version of database. The database itself is showing Access 2007-2016 file format - Access. Do we need to update this database to the latest version of database. We really appreciate your recommendations. Thank you
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.
Copilot, 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=64ebb3ecf7e5b19c05d1731a571b1001Link 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.
VBA 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?Access 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 on Wednesday 6 Dec 2023 starting at 18: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 called Streamline Your Import/Export Spec Workflow with VBA Classes. For more details about the topic and speaker together with connection details for the meeting, please visit https://isladogs.co.uk/aeu-22/ or https://accessusergroups.org/europe/event/access-europe-2023-12-06/ The meeting will again be held on Zoom. 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 check https://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.Access Europe meeting on Wed 6 Sept - Database Analyzer and other tools
The next Access Europe meeting will be on Wednesday 6 Sept 2023 starting at 18: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 check https://www.worldtimebuddy.com/ In this month's session, I will be demonstrating my new Database Analyzer Pro application. 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/ or https://isladogs.co.uk/aeu-19/ The meeting will again be held on Zoom. 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 the AccessUserGroups.org web page for this event All sessions are recorded and later uploaded to the Access User Groups channel on YouTube I hope you will join us for this month's session. As always, the session will be recorded and the video uploaded to YouTube after 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.Access Europe meeting on Wed 2 August - An Access Developer Guide to creating applications in Blazor
The next Access Europe meeting will be on Wednesday 2 August 2023 starting at 18: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 check https://www.worldtimebuddy.com/ In this session, Juanjo Luna (MVP) will demonstrate how to create applications for any type of platform using Blazor. The approach used will be for VBA 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/ or https://isladogs.co.uk/aeu-18/ The meeting will again be held on Zoom. 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 to YouTube after 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 follow
