I found this which works to a degree.
They create their own table.
I need them into the same table. How would I do this?
Function DoImport()
Dim strPathFile As String
Dim strFile As String
Dim strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
' Change this next...
I found this for Excel which would be ideal if I could get some help adapting it to Access. I haven't tried this code but the principle is the same - import all xls (csv in my case so Id use Transfer Text instead)) files from a specific folder.
Sub ImportfromPath(path As String, intoTable As...
I have several files in my folder that have the same structure but are named after relevant employees.
I have a list of the employees in a table.
Is there a way, using the same import spec, to import the files based on my table or will I have to import each file separately?
I hope I've...
Im trying to append then delete a record but stuck at the first hurdle.
Main Form: frm_tranch_holder
Sub Form: frm_tranche_single_form
The Unique ID is DD_TR_ID
My append query has the following criteria in the DD_TR_ID column...
When both or one date is not available my field says #Type!
How to I get it to disregard (Null) where a calc is not available?
=fNetWorkdays([dr_date],[dic_date]) & " days"
I am working in FrontEnd1
Linked to two databases:
My Data is in DATA1
My Reference Data is in DATA2
When I create my Query (one to many) in FrontEnd1 I am unable to update DATA1
If I move DATA2 into DATA1 then my query works.
Is there something I'm doing wrong here?
Minty:
Your thoughts please:
When writing queries: Is it good practice to concatenate your calculations into one result, or create your first calculation then reference it.
ie Is it better to have one formula like in this example:
IIf(CDate(Format(Format([MyDate],"dd/mm") & "/" &...
I have done this calc to see if it's right and this is producing the wrong results so there is clearly something wrong. but I can't work it out why certain dates are correct and others are wrong!
Expr3: IIf([Expr1]<Now(),"Before","After")
I need to do the following to a date but Im struggling:
Revise:
MyDate: Date field "dd/mm/yyyy"
I want to change the year to the current year Now() "yyyy"
This was my solution.
Expr1: Format([MyDate],"dd/mm") & "/" & Format(Now(),"yyyy")
Calculation:
Then If my revised MyDate is less than...
Hi Bob.
I've tested ACCDE files and you can still get in the back end when you open them with a full version of Access.
I've concluded that (along with some restricting access VBA code) I'm just going to change the file name to ACCDR
Our current system allows me to build our database solutions outside the network then drop them in.
They are build in Access 2016
The network only has Runtime 2016 installed so this is fine. All users can use the accdb front ends easily.
This is also great for the security of the front ends...
Just need a spot of guidance:
I want to delete all of the files in the sub folders of a folder then delete all of those sub folders.
Main folder TEST
Sub folders are employee names Joe Bloggs, Eddie Punchclock, Sally Housecoat etc. The relevant files are house in these sub folders.
Kill...
The trimming worked but they are all ending up in one record as opposed to three.
It's as though the "Next" is in the wrong place.
My understanding would be to extract the data, send it to the table then repeat the exercise.