Search results

Tried that too it doesnt work :(

Do you have any examples of the code used to do this please? as this didnt wok

the data tables are too big and i did union them, but it takes hours to run so need to change to individual queries

So i need to have a form to run different queries depending on the week number selected Please Select week No: (01-41) If then week number 01 is selected it would run query providing the data for just that week no Reports_0 (which contains weeks 01-03 data) have to split as the data is too...

Is there a way to highlight to the user that the text within a form field is greater than 20 Charters, so then they can reduce/abbreviate The form is used as a final check to provide a report, the output Table has been set to the correct size 20. but this just cuts off any charters after the 30...

Yeh fixed by using... .ActiveWorkbook.SaveAs ("C:\Reports\Zip\Sales Report Week " & Format(Date, "WW", vbMonday, vbFirstFullWeek) & " " & Format(Date, "DD-MMM-YYYY") & ".xlsx")

because UK week number is 41 Week Numbers for 2022 (epochconverter.com)

So Access is throwing out the report with the wrong week number., today 13.10.2022 is week 41 yet its showing as 42? command used for naming the file is ... .ActiveWorkbook.SaveAs ("C:\Reports\Zip\Sales Report Week " & Format(Date, "ww") & " " & Format(Date, "DD-MMM-YYYY") & ".xlsx") output is..

Thanks working now :)

Private Sub Command25_Click() Dim XL As Excel.Application Set XL = CreateObject("excel.application") Dim rst1 Dim vFile1 vFile1 = "Template_Location.xlsx" Set rst1 = CurrentDb.OpenRecordset("Data_1") rst1.MoveLast If Not (rst1.BOF And rst1.EOF) Then With XL .Visible = False...

No it didnt work same error

I have this code that creates a report combining two separate queries into an excel template with two sheets, this runs perfect, until say no records are in the first query, throughs out an error.. how to i tell it to continue onto the next pls? Dim rst1 Dim vFile1 vFile1 =...

Hello so i need to remove the "0" from telephone numbers and replace with "44" is this possible via an update query

Sorted it.. Format(CDate(Format([DateField],"dd-mm-yyyy")),"yyyymmdd"

Hello, So i need to change the date format from 00/00/0000 to YYYYMMDD please can confirm the best way to convert this :)

So is it possible to add a pause to VBS code so that i can check the data created is 100% before the VBS exports to excel?

Does any one have a working method to compact access 365 database from VBS so i can automate it to compact after importing data pls?

AB45 3EQ,,FALSE,, ,,LOW,Last Order Date 160822

yes i am trying to do this via VBA is i add headers to the file it imports but if i remove the headers it fails the data is shared without headers so how can i import the files with no headers?