DThreadgill
Last Activity: Apr 29 '10, 11:56 AM
Joined: Aug 10 '07
Location:
-
Perfect! Thank you Mike....this is the first I've used a wildcard in VBA coding so that was new to me!! Learn something new everyday!!! -
Query Works but when in VBA, it does not?
In Access 2003, I have a query set up like this:
...Code:SELECT [Comments], [Comment ID] AS [Unique ID], [Submitted Date] FROM tblMain WHERE ((([Submitted Date]) Between DateSerial(Year(Date()),Month(Date())-2,1) And DateSerial(Year(Date()),Month(Date()),0)) AND ([Subject1]<>"Online") AND ([Flags] Like "*Merger*")) -
Add another field to your table (such as primarykey and set the datatype to text).
using an update query, update that field:
[ID] & [InspectorNo] & [CountyNo] & [Date]
or if Date is not a field name in the table
[ID] & [InspectorNo] & [CountyNo] & Date()
The ID field in this instance is AutoNumber and is the primary key.Leave a comment:
-
CSV to Access table - inconsisent columns
I'm back with an import into Access question! :)
I'll be receiving a .csv file that won't have the same column headings each time I receive it. Is it possible to have a table in access containing all the headings that *could* be in the .csv file - - then "read" the csv file and update the table according to the column name? After that, it would be appended to a 'main' table which would hold all the records.
... -
After a bit of frustration, I finally got the .fields to work :) I appreciate your guidance NeoPa....I'd still be trying to figure out which way to go!!!
As per your suggestion, got the fieldnames using the .field collection and added to a table:
...Code:If Not rs.BOF Then rs.MoveFirst Do While Not rs.EOF For nextfield = 8 To 42 sql = "Select [Question] from tbl_Questions where
Leave a comment:
-
Bingo! Haven't started on it yet...I'm a procrastinator :) Any problems, I'll sure let ya'll know!
Thanks, NeoPa!!!!Leave a comment:
-
Sorry NeoPa - - I meant to change the fieldnames in the first part before i actually posted. RD = RDNAME as shown in the image. RM = RMName. I guess trying to simplify actually made it worse! :)
Here are the correct field names as imported in my Main table:
Issue (text)
Returned_Date (Date/Time)
RDName (text)
RMName (text)
Region (Text)
Type (text)
ClientName (text)
4398...Leave a comment:
-
CSV Import and show in report
Don't know if this can be done or not but I'm sure the gurus here will let me know ;)
Got a .csv file that is being imported into a table using specs. The table consists of the following:
Issue (text)
Returned_Date (Date/Time)
RD (text)
RM (text)
Region (Text)
Type (text)
ClientName (text)
4398
4399
4400
etc.
The etc. being about 80 addtional numeric... -
Printing SubReports
Hi all! I have one Main Report with 6 subreports. The titles for these subreports are all in the detail section of the Main report above each subreport and the headers of each subreport is in the report header section. My question:
When viewing or printing the report, is there a way to get the headers to also print on the next page if the subreport spans two pages?
Thanks in advance! -
That's correct. If not a Monday, the startdate = enddate.
Not impatient at all - just thankful I've got an expert guiding me :)...Leave a comment:
-
It's been one of those days and I apologize. You've hit the nail on the head -
It only fails when the End of the Month falls on a weekend and I am trying to load the files for Saturday, Sunday & Monday):
Today's date = End Date.
StartDate: If today is Monday, then Saturday's date = start Date.
Start Date = 05/31/2008
End Date = 06/02/2008
There are multiple files and, yes,...Leave a comment:
-
Sorry NeoPa. Here's how the app works:
I have the startup set to a macro called autoexec which runs a module:
The form contains unbound controls called startdate and enddate. Once the form is opened, it calls the first function, which is to find the startdate and enddate:Code:Function Auto() DoCmd.OpenForm "frmMain", acNormal
...Code:strStart = Format(OfficeClosed(TheDate), "mmdd")
Leave a comment:
-
End of Month challenge
I have an application that uses a date range to pull in a file for import. The filenames are by daterange (i.e., Filename0531.tx t, Filename0601.tx t, etc). I have the app set to automatically open the form and enter the startdate and enddate based upon today's date. (I.e., today is 06/02, the startdate of the form would be 05/31/2008 and the enddate would be 06/02/2008). The code loops through using a counter but I'm having problems. It worked... -
Missing Reference: MS ActiveX Data Object 2.8 Library
Have a database that about 6 or 7 people use simultaneously with no problem and have for the past year or so. Have a new person that now needs to do work in there and she is getting Missing Reference: MS ActiveX Data Object 2.8 library. Upon checking her library, the latest version is 2.1. I don't want to make changes to the database and everything is working with ADO. What needs to be done to get her to version 2.8?
Thanks in... -
I debugged until I couldn't see straight! I knew it would be something obvious but your statement led me to start working on that particular section of the code.
I will definitely give this a try! Thanks again for your help!Leave a comment:
-
I found the issue!
Since this is a UNC path, we can only create a directory where we have access. In this case, I had to change cNr = 33 to get it to the point where a directory could be created.
NeoPa - If it hadn't been for this statement, I wouldn't have slowed down to to see the obvious! - Thank you!!!!...Leave a comment:
-
Yep - I was working on that part yesterday afternoon but had to leave before I could finish it out. I believe it to be somewhere in the instr(cNr, dpath, "\") - if cNr = 1, it's looking at the first position and counting chars until the first "\" which is 3 on a mapped letter path. I'm playing around with changing the cNr = 3 so it will start after the "\\" on a UNC path. I'll let you know of my results!
...Leave a comment:
-
NeoPa
I am using the DirCreateNested function and am getting different results depending on which path is being used. Here are the results that I'm getting when I step through:
Using network path (N:\data\data\C ard\directory\s ubdirectory)
as strpath:
...Code:Dim isTrue As Boolean isTrue = DirExist(strpath) 'goes to DirExist(strpath) If isTrue Then 'do nothing Else
Leave a comment:
-
Thanks for all the help in this guys - I'm currently having the users test the changes to the application and we're getting stuck at this create directory thing. It won't create the directories needed and I've stepped through this for the past 2 days and can't find anything. I might add that if the path is changed from UNC to N:\\..., it works, so I'm stumped.
Code:Dim isTrue As Boolean isTrue = Exist(strpath)
...Code:Public
Leave a comment:
-
Thank you so much!!! I haven't had the chance incorporate into my database but will let you know the results!Leave a comment:
No activity results to display
Leave a comment: