TheAceMan1,
I am writing this for a friend as a favor, and you're right, upgrading seems logical to me, but my friend is going through some hard times and that isn't an option because of cost. Doing this color coding would be a great enhancement, but it's not an absolute necessity. If you run...
Stephen,
Yes they are controls, sorry I'm a newbie to all of this.
Here is my if then block (in the subform's On Current event):
Dim lngRed As Long, lngGreen As Long
lngRed = RGB(255, 0, 0)
lngGreen = RGB(0, 128, 0)
If Me.AmountPaid.Value = Me.Total.Value Then
Me.InvoiceID.ForeColor...
Stephen,
Well, this is a continous subform that displays:
InvoiceID, Date, Amount Paid, and Total
So this subforms shows all the different invoices for a particular customer.
If Amount Paid = Total, then I want them to be Green (for the entire row, all field's ForeColor that are shown)
if...
Hi,
In my subform that displays all invoices for a particular customer, I want it so that if an invoice is paid, all the field in a row are green, and the same row to be red when it is not paid. I thought I had this acomplished with a couple simple IF...Then statements and using the...
TheAceMan1,
Ctrl + F11 does nothing. I am using Access 97. Even when I start a new database now I am without all my pull down menus.
Please help!
Thanks.
-freefour
Hey Rick,
Thanks again. Got one more quick question. Instead of the line:
DoCmd.OpenForm "Background", , , , , acHidden
I want the background form to be the one that Access uses when it starts. How can I hide the form using code?
I tried the form_background.Visible = False but that did...
Thanks Rick,
Your code works great, but when I want them to exit, it still pops that msgbox up, even when I try to close the background form first.
How can I stop that from happening?
--freefour
Hey all,
I want my users to exit out Access using my exit button (so I can run some vb script I wrote). I know how to disble the form's close button, but how can I disable Access's close X button at the very top?
Thanks so much!
--freefour
Thanks Roy, but after trying all three I still get the same result: nothing. txtbegindate is an unbounded textbox.
I am curious is there a better way of maybe having 2 boxes on the report that people put the two boxes where they could change the dates and then the report would change to...
On one of my forms, you click a button that launches my ReportSales report. Using inputbox, it asks for a begin date then a end date. I want to pass those dates entered into my report as well (so it can remind them what the criteria was set at): Here is my code:
Dim Message, Title, Default...
I have no idea why, but I am getting #Error as a return on a text box that has a fomula of: =Sum(Total)
This text box is in my report footer and in the report details is a field called Total that shows all the totals in my database. All is in currency format.
What a I doing wrong?
Hello,
While debugging a line:
If Me.paymentamount.Value = Me.Total.Value Then
I found that paymentamount was 169.08
and total was 169.078
both fields are set to currency with a decimal place of 2.
How can I format total to round before my if statment?
Thanks,
--freefour
Thanks Tom, but there is on OnFormat event in my Report. I have:
On Open
On Close
On Activate
On Deactivate
On No Data
On Page
On Error
I am using Access 97.
Any other ideas?
Thanks,
--freefour
Hi,
I have a simple report that contains a picture (I have the visible properity set to No). I want to use an If statement in the On Open event to cause the picture to become visible if two fields on the report are equal for my printout.
This is what I am looking for
If Me.Total.Value =...
Hi,
I have 3 different tables in my database: Invoice, Parts, and Labor. My Invoice form contains 2 subforms Parts and Labor that link to the Parts and Labor subform.
Invoice has a unique ID, the Parts and Labor tables contain the lookedup value of InvoiceID along with their own unique IDs...
I have a listbox that outputs some invoice data. I want to use the first column of the selected row to open another form.
I know how to do it with a combo box:
Dim stlinkcriteria As String
Dim stDocName As String
stDocName = "frmEditVehicle"
stlinkcriteria = "[VehicleID]=" &...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.