NJonge01
Last Activity: Sep 30 '11, 08:37 PM
Joined: Jun 27 '07
Location:
-
Great answer! Thank you! this information will be helpful with me in other fashions as I need to do some data formatting after import to access. -
Evaluate a String for a Machine Readable Value and Replace w/ VBCRLF
Hi, seriously sophomoric question here! TIA for any help.
The text below is representative of text I imported from a large excel spreadsheet. In an Access Memo field, the "Line Feeds" are not respected. the text prints out contiguously with a bazarre "machine" character instead of a line feed. I need to replace that value wherever it exists with something that will cause Access to format the text as it appears... -
Thanks! That is just what I needed.
I just pulled the code into a function and passed it my report name. instead of debug.print... I passed the string to a generic function I have for appending to a table.Leave a comment:
-
Generate a list of objects on a report and select properties
Hi,
I've made a mess of a report. I need to do some cleanup and I need a utility to help me look at all the objects on the report.
I used to have some code for listing all the objects on a report and selectively list properties of that report. I cannot find the code and I am unable to find the posting that provided it.
can anyone help me out?
Basically, I want to pass a report name to a... -
ADezii, your answer to this question is most helpful to me.
One thing unique about my situation is that I'm not adding to the other list box, I'm building a string of criteria for a SQL Search Screen (which leverages logic I built based on other help from this board!).
Just wanted to give props that your answer kept me from having to post a question.
Thanks!Leave a comment:
-
Sorry I've been away. Thanks for clarifying that situation and offering the suggestions!
Its not real pretty in design view, but I actually hide the objects and move them "up" in the detail section so that the page can shrink.Leave a comment:
-
Report Section - Not "Shrinking" when lowest objects are not visible
Hi, I have a report that should conditionally show some objects on the Report Header. These are the lowest objects in that section and they're not always necessary depending on where I'm opening the report from.
My code to conditionally set some objects to .Visible = False is working well.
However, the Report Header is not "shrinking" , it is just leaving the large empty space. Even if I try to conditionally... -
Thanks Stewart!
I've changed my approach to exclusively use the "On Print" event in the sub-report. Currently, I've found no condition where that doesn't work on my reporting.
Your response was very helpful. Thanks!
NickLeave a comment:
-
Incrementing a Counter in a Subreport - Initializes on Next Page
Hi,
I use a counter in a subreport. The subreport is the primary data presentation for the report, and it covers more than 1 page.
I use the OnFormat event of the Detail section to conditionally initialize the counter.
I use the Onprint event of the Detail to increment the counter.
The problem is, that the counter seems to initialize itself when the report is pushed to a new page. The response... -
I'll give it a shot! I'm trying to log activity to a file and it sure would help.
Thanks!Leave a comment:
-
Dynamic reference to current procedure
Is there a way to dynamically refer to the name of the current procedure?
I'd like to add a dynamic reference to the current procedure in my logging procedure.
I've googled around and found nothing (just another guy asking the same question on the utteraccess board, but with no answer).
TIA for any help! -
HI Scott,
Yes, my apologies. I've moved onto a second function where its best to process 1 file at a time. I am using the 'file picker' in the sub below (hopefully I used the 'tag' correctly!)
Thanks!
[CODE=vb]Private Sub cmdChooseDirect ory_Click()
Dim fd As FileDialog
Dim varItems As Variant
Dim fl_File As String
rc = Clear_Tabs_Tabl e()
Me.lst_Workshee ts.Requery...Leave a comment:
-
Hi,
I'm simply trying to add a filter
Below Scotts .Filters.Clear, I added this line:
.Filters.Add "Excel Workbooks", "*.xls"
I receive a not supported message after trying several variations.
Thanks!Leave a comment:
-
I used the code scott gave me, and then I pass that directory to a function calling the "Findfile" Office Function to generate a list of files for the user to select. Then, I can process all the files they select using a previously created function that was working on one file at a time.
thanks! This has really helped me out.Leave a comment:
-
Again... THANKS! Everything you've posted has been very educational and valuable to me.
I hope you have a great weekend!Leave a comment:
-
Thanks for the help. I'll make sure to use the "Tags" in the future when adding any code.
also, I'll check on the other Microsoft Office File Open option. I'm not familiar with it.Leave a comment:
-
Thanks Scott! Here's the code.
The form has this on click sub that calls a function which in turn calls another function below
[CODE=vb]Private Sub cmdFileOpen_Cli ck()
Dim varResult As Variant
varResult = FileOpenSave(Tr ue)
Me.txtFileOpen = Replace(varResu lt, vbNullChar, " ")
End Sub
Private Function FileOpenSave(fO pen As Integer) As Variant...Leave a comment:
-
Windows File Open / Save Common Dialogues
I use this "Access Cookbook" from Ken Getz that comes with some pretty nice sample code and applications.
I use some file open features they have but I don't know enough about what they've created to use just the parts I want.
I'm trying to use the Windows File Open type dialogue to identify a directory and then return that directory as a string to a function that will ultimately process all the excel spreadsheets... -
wow... good stuff! I didn't get a chance to look at this over the weekend so I showed up at work today and I see this wonderful information and advice.
I'll work with the information you've shared and respond with my results.
Thanks so much for taking the time to consider my question and for providing an excellent and educational response.
NJLeave a comment:
-
Read a text box, get all the words, and create a Search String
Hi, I haven't even tried to code this yet, but I need to create a "search" string that would work like this:
Read this: strText = [Word1 Word2 Word3]
Create this string
StrCriteria = Like "*Word1*" and Like "*Word2*" and Like "*Word3*"
Even better would be:
Read this: strText = [Word1 "Word2 Word3"]
create this string
StrCriteria =...
No activity results to display
Leave a comment: