I have a report and want to set the value of a text box to a value from a query (Field "Week1Start" from Query "qryWeekDates") that is not part of the record source of the Report.
I have tried setting a On Load event:
Private Sub Report_Load()
[Text70].Value = qryWeekDates!Week1Start
End Sub
How can I change the code to get it working?
I have a text box in a report that was calculated,
=IIf([RemainingGrantFunds]<([Grant_Amount]*0.2),"1","0")
So, if certain criteria are met, either a 1 or a 0 will be shown.
Then in my OpenReport VBA I have,
DoCmd.OpenReport stDocName, acPreview, , "ExpiryTag = 1"
'ExpiryTag' is the name of the text box from above.
When it equals 1, I want the report to show those records. I have done this for other reports and it worked so easily, and for some reason it just doesn't want to work on this report. I believe the difference is that the text box is calculated in the report and not in the query (for this report I can not calculate it in the query). I think it might have something to do with the output of the 1 and 0
i.e. "1" versus '1' or just 1.
I have also tried every iteration of "ExpiryTag = 1"
i.e. "ExpiryTag = '1'" or "[ExpiryTag] = 1" etc.
I have copied a VBA from the net and it is working fine and producing my report on outlook body text but one problem me facing is that it is pasting only first page if the second page is there it is not coming in outlook text body this what i want rest every thing is correct the code is:
Private Sub Command88_Click()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Dim RTFBody, strTo
Dim MyApp As New Outlook.Application
Dim MyItem As Outlook.MailItem
[Code] .....
I am using Access 2007 and 2010. I would like a text box (or label) on a report to autofil using fixed text from a label on a different (closed) form.
View 8 Replies View RelatedIs it possible to use find and replace to modify text in report design - or else is there something else I can do to get the same effect? I have a really useful report and I want to modify it for use with a different dataset. To do that I will need to change the text in over 150 text boxes. I have seven different fields which each occur over 20 times in the control source formulas in the text boxes, because they are used in different ways in different calculations. If this was excel I could do a simple find and replace to change e.g. every reference to fieldname OLD to fieldname NEW, but I cannot see how to do that within access report so am haveing to click on each text box in turn, go to properties and edit the text box .
I am trying to switch to a more general naming system in the modified report so then I will be able to assign data with the required fieldnames for the report within a query. But the report I am starting with has field names based on years 2013, 2014, 2015 etc.I want a quick way to change each reference to those field names to my more generic new field names.
We need to move rich text from an Access memo field to a Word text box. So far the best Ive been able to come up with is in the code below. In this code pprs!What is a record set field of a table memo field that is bound to a text box enabled for rich text. The rich text seems to be stored as html as so I can get word to convert it by enclosing it in html tags.
Dim What As Word.Shape
Set What = doc.Shapes.AddTextbox(msoTextOrientationHorizontal , doc.PageSetup.LeftMargin, 225, 534, 0)
Dim sPath As String
sPath = "G:Temp.html"
Open sPath For Output As 1
Print #1, "<HTML>" & pprs!What & " </HTML>"
Close #1
What.TextFrame.TextRange.InsertFile (sPath)
I have a form on which there is a series of text box controls relating to different frequencies. At the moment I enter a value in to each of these manually.
However, I would like to have an unbound text box where I can paste in all the values (6 or 8 of them) from excel and then press a button and they would be copied in to the individual boxes.
So far I have my design:
I'm not sure where to start with regard to the code as I don't know how to handle delimited text - is it column delimited in excel?
I imagine some sort of loop, such as a do until will be required but again not sure.
I have some vba where I'm importing a text file and splitting it out into a table. For the most part its working just fine.
But I have a line of data that I need to pull out the string right after "Old" - Murphy and right after "New" ZMurphy
Acc# : 111111 This is test data, Person : 22222 Old Murphy New ZMurphy
I'm thinking Instr() could do this but I'm unable to get it to work.
I am using Access 2010...
I'm trying to figure out at what point an error message occurs while a database is closing. This problem only occurs if someone clicks on the red close button on the top right of the screen when there are several forms open. If the user exists normally there is NO problem.
I am attempting to use the print statement to write to a text file to track what is happening as the database shuts down. Unfortunately, the open (print) statement, when issued, zaps any prior contents which precludes having a full printed record. I am hoping for a print syntax that would allow appending.
Code:
Open "ErrorReport.txt" for Output as #1
Appended text to the file to show what is happening in that event.
Close #1
The program, in closing, does stop with an error message that a certain file can't be found. But when I click on debug, the program simply closes. I have also commented out VBA references to the file that can't be found, but the error still persists .
I have a report which programmatically sets the value of some labels based on its own internal logic for each line of the detail section of a report. This all works fine and dandy, using the Detail_format event, and accessing detail.controls.item(x).caption.
HOWEVER, when I then embed the report as a subreport (which I need to do), I goes wrong. Here, I get the values of the last row of the detail repeated in every previous one. I'm suspecting because the parent report has its own 'detail' (I've tried giving the subreport its own distinct detail name).
I have a form with tabular format containing a text box with the name of session and text box with the name of classSession. This form containing multiple records but when i want to copy the value of session to the classSession text box the copy function is only applied to the first record and not applying to another records.
View 1 Replies View RelatedI have a list of 30 files I need to import into my access database. The files in the folder are named
1. Txt
2. Txt
3. Txt
4. Txt
5. Txt
6. Txt
7. Txt
8. Txt
When I did the first import I did it by doing an import text file, located the file 1.txt. The Import Text Wizard opened and I picked Fixed With so I could break out the information myself.After dividing that information I hit advanced and changed the field name to match what they should be. Next, then it ask me to save Import Steps and I said yes.
First: how I can use the saved import to import this file again using the text wizard
Second: how can I set it so it imports a numbers of files, maybe one or maybe all 30?
Third: how difficult would it be to all the file name in the first or last column?
On this form, there is a text box for Quantity...At the end of the form, there will be a button that when pressed:The current record the data on the form is entered for is saved,A report is printed on a specific printer,I do not want the report to actual display,The number of copies it prints should be equal to what the quantity field indicates.I do have the report already created and the Quantity field is on the report (just not visible).Once this all happens, it should return the user to the form, that is blank, waiting for a new record entry.
View 1 Replies View RelatedI have a report that is opened from a form and is based on a query. There are three text boxes. The first two text boxes come from the query and their values are ratios computed in the query. The value for the third text box is based on the values in the other two. If the value in the first text box is greater or equal than .95 and the the value in the second text box is between .90 and .95 then the value for the third should be .03. If the value in the first text box is greater or equal than .95 and the the value in the second text box is greater than .95 then the value for the third should be .05. If the first box value is less than .95 and the second text box value is less than .90 then the third should have a value of 0. I have tried several If Then.. statements in the On Click event of the command button in the form and a Select Case in the On Format event in the Report Section but it never works. If anybody could help me with this problem it would be greatly appreciated!!
Thank you in advance
I have a report in an Access file that someone created for me. I have
NO real experience in Access, it was all done for me, and now I want
to do some editing.
What I have is a letter with "letter head" at the top (text box 1.) This text is centered.
The date (text box 2),then body of the letter follows in the main
larger text box 3. This text is left justified.
When our Principals change I need to change the first text box sometimes
this means there are more or less lines in this box. I have done this successfully, although I'm not sure if it was "correctly" I have replaced names, and made the box smaller to get it to wrap so there is the correct amount of text (Name) on a line. I'm not sure what I would do if I had a line that I don't want to wrap that is longer than the line I do want to wrap. but that is working for now.
The first thing I'm trying to do is put the date in the third larger
text box instead of a seperate box. To do this I figured I needed to
add a blank line before the first paragraph of the 3rd text box, then
enter the current date code. I tried to copy and paste the code from
its current seperate box and paste it into the third box, but then the
report only shows the code/no date and the following paragraph isn't
aligned properly since the only way I could figure to move it down was
with spaces. I tried ctrl/enter, and that just gave me some pop up
dialog box with some tools in it that I don't know what to do with.
The second thing I wanted to do is bold only part of the text in the
large/3rd text box.
Some how I ended up with some blank space between 2 paragraphs so what
I did to get the bolded text paragraph I want is add another text
box, bold it and place it on top of the existing larger text box, but
I always have to move the 2 boxes (3 if you count the date) when I
need to shift the text up or down for any adjustments I do in the
first box. Is there a way to only bold one paragraph of a larger text
box?
I have tried different things, and I have searched "help" as they like to call it, but it is NOT!
I hope this is clear.
TIA
Susan G
P.S. I have tried different things, and I have searched "help" as they like to call it, but it is NOT!
Hi people,
I have a report that is linked to a data entry form. Is there a way to not show certain labels and text boxes if a text box on the form has the value "N/A"?
Something like:
Private Sub Report_Open(Cancel As Integer)
If txtFireType = "N/A" Then
txtFireType.Visable = False
End If
End Sub
This doesn't seem to work by the way!
Really appreciate all of your help.
Hi! Don't know if you remember me, but I'm back again with a weird question.
A while ago, I built a database with a report in it that served as a schedule for my hospital. Names down the side, dates across the top, with counts in the data fields. Like if So and so works on 3/16/05, there would be a '1' in the field at the intersection of that date and her name. Now, because we have so many different shifts and the directors want everything in the grid fields, I'm trying to figure out a way to put in the actual shift symbol (7A, 7P, 12, D, E, N, etc.) in the grid for them so that if they have 7 nurses on the 7A shift and 3 paramedics on the 12 shift, and one unit secretary on the D shift, they will all show on the same schedule. Here's the data from the query I am using. It's a crosstab query and I'm not quite sure how to tweak it to get it right. Thanks for any help/advice you might be able to give me.
PARAMETERS [Forms]![frmDates]![Date] DateTime;
TRANSFORM Count([Staffing Query for Department].Title) AS CountOfTitle
SELECT [Staffing Query for Department].ERName, [Staffing Query for Department].Department, [Staffing Query for Department].Title, [Staffing Query for Department].Shift, Count([Staffing Query for Department].Department) AS [Total Of Department]
FROM [Staffing Query for Department]
GROUP BY [Staffing Query for Department].ERName, [Staffing Query for Department].Department, [Staffing Query for Department].Title, [Staffing Query for Department].Shift
PIVOT "d" & DateDiff("d",[Forms]![frmDates]!Date,[Date Scheduled]) In ("d0","d1","d2","d3","d4","d5","d6","d7","d8","d9","d10","d11","d12","d13","d14","d15","d16","d17","d18","d19","d20","d21","d22","d23","d24","d25","d26","d27");
I am going to try an Iif statement and see if it helps. Thank you!
Kelly Jo
I have a need to take two fields and make them appear as one with the first one bold and the second one nonbold.
The text needs to look like:
FOOD tomato
HOUSING STYLE log cabin
FISH cod
COLLEGE DEGREE BA - Biology
These are all from the same table, two fields (type, value)
To have a report look like this I figure I need to know the width of the first field and then position the second field near that position.
Any ideas.
Thanks
Hi people,
I have a report that is linked to a data entry form. Is there a way to not show certain labels and text boxes if a text box on the form has the value "N/A"?
Something like:
Private Sub Report_Open(Cancel As Integer)
If txtFireType = "N/A" Then
txtFireType.Visable = False
End If
End Sub
This doesn't seem to work by the way!
Really appreciate all of your help.
Hi,
I looked through your forums and didn't see this question answered. Forgive me if it is already there and I couldn't find it.
I have a report that I want to add a new text box to. When I create a form there is no problem choosing the different control sources of data that I want to put into the text boxes on the report. However, once I have created the report I can't seem to go back and make the data come through correctly if I am adding a new text box.
Example: I want to add a text box that is pulling through data from a field named "Duty" in a table named "Container_Vendor_Information". I put the text box into the created form and navigated through the control source choices to get the text box to point to where I want it to. Something goes wrong after that. When I close the form and try to reopen it I get a pop up box that is asking me to enter the parameter values for "Container_Vendor_Information."
I know there has to be an easy way to do this. All I'm doing is looking to add a new text box to an exsisting form. Any thoughts would be most welcome.
I would attach the database but I guess I don't have enough posts yet to have that option.
Thanks
Eddie.
I am trying to make use of the OpenForm command to open a form to a record where a textbox matches the value of a text box on another form.
On Form1, I have a textbox called txtRtnRef, and it contains a reference number in a similar format to SWR-9
On Form2, I have a textbox called txtReOrderRef (control source ReOrderRef) which also contains a reference number in the same format (SWR-9)
I am trying to have a button next to the text box on Form1 that has an OnClick Event that opens Form2 to the record containing the same text reference number.I have tried, to no avail, a number of variations of the OpenForm command, the most recent being
Code:
DoCmd.OpenForm "Form2", , , "ReOrderRef = '" & Me.txtRtnRef & "'"
The form opens, but to a blank record?
Hi, I want to insert an Expression in a text box of a report using VB.
This is what I wrote in the code builder section of report header.
Me.totalBox.Value = strTotalExp
Me is the header section of the report.
totalBox is the textbox.
strTotalExp is the expression that I want to enter, it is a string.
How should I do this?
Thanks.
Not sure if this is possible but I have a few text boxes on a report set to vertical yes under properties. They print fine, but on the pre-printed forms I'm using they print upside down. Is there a way to realign they way the text prints when using the vertical yes setting? I really need they text to be inverted. I'm I asking an impossible question? Thanks..
View 1 Replies View RelatedIn my database I would like my report to run every 30 seconds and export that data to a text file. I am not sure if that is best with a Do While or Do Until.
What I am looking to accomplish is to populate a map with data from the data base report. it needs to rerun the report and write the text file every 30 seconds to 1 minute.
Any help with the coding would be greatly appreciated.
Am I missing something simple here? I have several text boxes, which I want to add the values. I have tried these formulae, but dont work:
=Sum([Postage],[ProgTotal])
=Sum([Postage] + [ProgTotal])
=DSum([Postage],[ProgTotal])
Any help would be greatly appreciated!
Can anybody tell me this:
i want one textbox on form to be entered by user.When this form is submitted, enteredf text on form must be displayed in report.
How can i do this ?