access vba

I want to activate a window to edit the content. However, when I use 'open Aggregated Files Workbooks.Open FileName:= _ "J:\recoding\report_002\P09P05\Aggregated Files.xlsx", UpdateLinks:=0 'open D001A Workbooks.Open FileName:= _ "J:\recoding\report_002\P09P05\List of RI match with...

I am trying to add and save a new workbook to a specific location. However, the code below does not function properly, i.e. no new workbook is created and saved in the drive. Please help. Option Compare Database Option Explicit Public Function DirPicker(Optional ByVal strWindowTitle As String...

I am trying to create a file dialog with Microsoft Access 16.0 Object Library checked. However, the Compile Error: User-defined type not define still exists. Please help. My code below if it helps: Public Function DirPicker(Optional ByVal strWindowTitle As String = "Select Location to Save") As...

Hello, I have a .csv with more than 255 columns (395 exactly), I only need 3 columns but I cannot manipulate the source file manually, that is, I cannot divide it in two. The columns are: 131, 208 and 282 I have tried to do it by wizard but Access won't let me do it because it has more than...

Hi, I am using below code to export table from access 2016 to excel but getting error saying: Run time error 31532: Microsoft Access cannot export the data Public Function ExportToexcel_DD() Dim output_fl As String stName = "\PRO" output_fl = CurrentProject.Path & stName &...

Function for get Thursday as first day of week in current week month, this function returning first week as Thursday but first week of month in last month, But K need it will return only current month. For example if 1st date of month is on Tuesday it will return 1st date of month. Function...

<!--[if gte mso 9]><xml> <o:OfficeDocumentSettings> <o:AllowPNG/> </o:OfficeDocumentSettings> </xml><![endif]--><!--[if gte mso 9]><xml> <w:WordDocument> <w:View>Normal</w:View> <w:Zoom>0</w:Zoom> <w:TrackMoves/> <w:TrackFormatting/> <w:PunctuationKerning/>...

I'm writing vba to .addnew then .update a table. Once this is done, I want to clear the fields on the form that was used to update the table. SOMETIMES the longtext field is cleared before it's written to the table. If I take out the code that clears the fields, this is fixed. Why is it...

I have an Excel project which uses MS ACCESS for data storage. Works fine. The issue is that ... The project is used by multiple persons in multiple locations, making synchronization of data tedious (each one has to export what they have done via proprietary files and similarly import changes...

Most of the formula functions I have used in this Excel doc. are not available as a Access expression. So to achieve what I have here > Retail rounding up to specific numbers (as well as calculating the retail) I have to start over in access Can anyone help or maybe I have to go to a access...

I can't figure this one out. I keep stumbling my way through DLookups... Please help! x = Nz(DLookup("ID1", "AttendanceEvents", "EventDate= #" & txtRmvP & "# and USRI = ' " & fOSUserName() & " ' and (EventTypeCode = 'P' or EventTypeCode = 'SS-P' "), 0) I'm getting a mix of errors when I try...

Private Sub cmdCreateChart_Click()Dim dbs As DAO.Database Dim qdf As DAO.QueryDef Dim rst As DAO.Recordset Dim objXL As Object Dim lngLastDataRow As Long Set objXL = CreateObject("Excel.Application") Set dbs = CurrentDb 'Get the parameter query Set qdf = dbs.QueryDefs("qryCharts") 'Open a...

Hi, I have a report that I am automating. The process consists in an Excel VBA Macro that gives the format to some excel files and saves them in an specific folder for access to take these files and import them into the corresponding tables. I was able to automate this process through an Excel...

Hi, I have a VBA code that deletes some old data from my database and uploads the new data into it from some excel files. The thing is that the macro stops in the middle and brings me the error that the database reached it maximum capacity but when I click the Compact and Repair button the DB...

is there an equivalent code for DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ in excel vba? this is the code im trying to currently use in excel VBA: Private Sub CommandButton2_Click() Dim fDialog As FileDialog Dim varFile As Variant Set fDialog =...

Hi Guys, I have a button in Access Database, but i don`t have a functionality. I need whenever i press "Import Button" it will automatically open the filer and i will navigate to select multiple files of excel anywhere in my hard drive. when i import the data it will automatically import all...

Hi, I need a favor from you guys, I already made a button in Access, I need to import the files from excel through that button on Macro, whenever we click the button it have to be import the excel files in database by matching the two columns. here is the example Database: Col A Col B...

Hi Guys, Thanks in advance for helping me before, I need your help again guys. I have a database with me with 5 columns in it with the name of Name, Age, Address, Phone number and Position. I need a searching criteria for them to make the reports. I made the form on excel with the text boxes...

I have been building a Sub in a standalone database and have run into an issue with running a query native to the same database. I have in the same sub as part of an If function, another CurrentDb.Execute and it works fine; however, when it gets to the next part of the Sub, the secondary...

Hi, I'm very very new to access vba. Here's what I did(I'll explain with an example) - (NOTE: If status is inactive then column 32, 33 should be "No" and red. If status is "Active" then only next strings should be searched in column 13) Example - columns are - Status(4th column), Group(13th...