Looks like a future Tip of the Week, huh ADezii? :)
Brad.
BradHodge
Last Activity: Jun 5 '08, 10:54 AM
Joined: Apr 16 '07
Location: Lubbock, Texas - U.S.A
-
Thanks Mary for the help. Hope all works well for you Sarah!
Brad....Leave a comment:
-
And... As I'm sure you figured out, you would delete
[Code=vb]Dim strRegNum as String
strRegNum = InputBox("Enter your Reg #")
Me.RegNum = strRegNum[/code]...Leave a comment:
-
You could indeed. It just depends on your work flow. If you are doing multiple reg numbers in a sitting, it might be nice to have the Text Box empty out after each export (just add "Me.RegNum=Null " after DoCmd.OutputTo acOutputQuery, "2007 Detail", acFormatXLS).
Brad....Leave a comment:
-
My apologies. You will also need to create a text field on your form (use the ToolBox again). This TextBox will be unbound and will not have anything listed as a Control Source in Properties. Make sure you name this TextBox "RegNum". When you click the button you created, it will ask you for the Reg Number and then will input what you type, into that Text Box. The queries will then draw the Reg Number from the text field on your form....Leave a comment:
-
You could use Windows Scheduled Tasks to open the application. If your AutoExec was set to run the Append query, that would likely get the job done.
Brad....Leave a comment:
-
Sarah,
Here's what I've found so far.
You just need a minor change for this...
[Code=vb] .body= "Purpose of Change: " & Me.purpose_chan ge & vbNewLine & _
"Markup Description: " & Me.markup_descr iption[/Code]
In other words, use your vbNewLine followed by "& _" and then go to next line with your next field.
As far as the security messages...Leave a comment:
-
Sarah,
Unfortunately I don't have Outlook set up on my work PC. I'll take a look at this more when I get home.
Brad....Leave a comment:
-
Sure. If you just go to the Forms tab instead. Select NEW and then Design view. When you get the blank slate, use the Toolbox and select the Command Button tool. Drag one onto your form. If the wizard button was also selected, it may try to do the rest of the button for you. Just hit Cancel.
Once you have the button on your form, it will likely say "Command 0" or something like that. Right click on the button and choose...Leave a comment:
-
I would think that instead of setting the Control Source of your textbox to the combo box, I would use the AfterUpdate Event of the combo box to plug in it's value to the textbox.
You have likely got the Limit to List property of the combobox set to Yes, and therefore, since the text box is pulling it's info from the combo, it is not editable either.
Brad....Leave a comment:
-
First, I would suggest taking the "Enter Reg#" criteria out of your Query.
Second, add an unbound txtBox to the form that your button is on (that lauches the output). You could call it RegNum or something like that.
Third, add criteria to your Query that references this new field (e.g. Forms![frmMAIN]![RegNum].
Fourth, add this code to your button...
[Code=vb]
Dim strRegNum as...Leave a comment:
-
Can you expand a little bit on how your macro currently works? How are you getting it to print several different reports with a single year on each?
It should be a relatively simple thing to set up a variable that will hold your registration number (need to know what format the registration number is in (e.g. number, text, etc.)).
Brad....Leave a comment:
-
I would take the criteria out of your query and instead attach the code (below) to a button on a form. This should do what you are looking for.
Hollar if you have questions.
Brad.
...Code:Dim strLinkCriteria As String Dim BeginDate As String Dim EndDate As String BeginDate = InputBox("What date would you like to start with?") EndDate = InputBox("What date wouldLeave a comment:
-
Well... After many revisions, Here is the simplified version. It is essentially based on 3 separate loops.
Loop 1: Assess ListTeach for selected items. If no selected items, then charge the children present based on the Child's Rate.
Loop 2: Compare ListKids.ItemDa ta to ListTeach.ItemD ata. If it matches, charge the child based on the Teacher's Rate.
Loop 3: Compare ListKids.ItemDa ta to tblCharges....Leave a comment:
-
That's what I was thinking. I'll work on it and let you know. Thanks so much!
Brad....Leave a comment:
-
Thanks ADezii, That helps. I would assume that I would just run an If/Then statement like this to assess ListTeach, and then run a separate Append statement if =0, followed by exit sub? Then, if >0, proceed with the other Appends?
If so, this should take care of no append occurring when ListTeach is blank.
Now to figure out the other where Appends are doubling.
Thanks again,
Brad....Leave a comment:
-
CURSED FORMATTING!!! :)
B
r
a d ....Leave a comment:
-
Okay... I have the problem narrowed down.
Here is the meat of my code...
...Code:For Each varItm1 In ctl_1.ItemsSelected For Each varItm2 In ctl_2.ItemsSelected strFam = DLookup("FamilyID", "tblKids", "ChildID =" & ctl_1.ItemData(varItm1)) strTeach = Nz(ctl_2.ItemData(varItm2), 0) strRate = DLookup("RateID",Leave a comment:
-
Thanks guys for sticking with me on this one. I messed around with a copy of the basic database today at lunch. I did normalize the tblFamily and moved the Teacher/Sub indication to it's own table. It did not change the results any, but I didn't have much time to fool with it.
I'll work with the real database when I get home this evening and let you all know how it's going.
And yes Ade, that is a Nom de Plume that...Leave a comment:
No activity results to display
Leave a comment: