Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. mikelev

    Validate on two values

    I am trying to prevent the user from entering multiple counts for the same table (card table) on the same day. tblSoftCount InsertDate (general date) Tablenum (text) Would someone help me with a Dlookup? I want to place the lookup on the after_update event of the combobox with the...
  2. mikelev

    Supress Error when path is invalid

    I have a form that has a textbox containg a path. I also have an image that displays the picture referenced by the path textbox. All works well until someone deletes the image, without updating the path. This produces error "2220" "Can't open file C:\blah\blah" I would like to set the path to...
  3. mikelev

    Calculations?

    I use the following method: 1.) Create your button on the form 2.) In the OnClick event of the button put the following code: me.portionval.visible = True Calculate Add the following procedure in the form Private Sub Calculate() Me![portionval] = Nz(Me![mainarea], 0) *...
  4. mikelev

    Add form and historical subform

    I have a form "frmSensitiveForms" that is used to track preprinted (numbered forms). I also have a subform "frmSensitiveHistory" that shows the last 15 receipt details. And this works great. I would like to click on a historical record in my subform and have the details populate the main form...
  5. mikelev

    Prevent users closing application with X i.e must use switchboard

    Just a quick post to say thanks to Cajun~! I have been looking for this solution forever. VERY easy to implement. A star and many more for ya!
  6. mikelev

    Dlookup not working for text?

    I have a very similar situation, where I need to look up users that have a "position" = "Dealer". I tried the following with no luck? = Nz(DLookup("fullname", "tbluser", " POSITION='Dealer'"), "N/A") Thanks as always for you help!
  7. mikelev

    Dlookup not working for text?

    In this case it is a literal. Thanks PHV
  8. mikelev

    Dlookup not working for text?

    Well I thought I had the statement correct, but it only works for numbers not text? Works: = Nz(DLookup("DESCRIPTION", "TABLES", " TABLENUM='" & 1 & "'"), "N/A") Does not work: = Nz(DLookup("DESCRIPTION", "TABLES", " TABLENUM='" & P1 & "'"), "N/A") Any help would be appreciated.
  9. mikelev

    Help summing IIf statement

    Howdy Tom: Thanks for the response. Placing the code in the control souce caused the same result. Cheers,
  10. mikelev

    Help summing IIf statement

    Any idea how to sum this? =IIf(([wl]=0),0,IIf(([text80]=0),0,([wl]/[text80]))) Tried: =Sum(IIf(([wl]=0),0,IIf(([text80]=0),0,([wl]/[text80])))) It prompts me for "wl" value and "Text80" values? It a never ending learning curve....
  11. mikelev

    Total detail section with exceptions

    I have a report based on a query that adds currency for multiple registers. The detail section is grouped by REGISTER asc. Looks similar to this (X=some value) Reg# $100 $50 $20 $10 $5 $1 __________________________________ 1 $200 $50 $120 $40 $60 $45 2 XX XX XX XX...
  12. mikelev

    Unbound Calculations

    This is a classic example of looking at the data too long, and assuming the error is within Access. It took someone on the outside looking in to point out the same thing. The clients hand written report showed 1.51 and the error was there, not in the calculation. You the man Duane
  13. mikelev

    Unbound Calculations

    Any hope for this problem?
  14. mikelev

    Query produces mixed results

    I am hoping someone can help me figure this 1 issue out. The response RAC2 works great except for the following: Int(Sum([20ENTERED]*20/500)) AS 20count, Int(Sum([20ENTERED]*20/500))*500 AS 20value, Int(Sum([20entered]))-[20value]/20 AS 20Lcount, Int(Sum([20ENTERED]*20))-[20value] AS...
  15. mikelev

    Unbound Calculations

    Howdy Dhookom, Yes these controls are all in the details section of my report. Like all begining..... (and I say this lightly) "programmers" I had a lot to learn, (and still do) when I created this report some time ago. The report is based on a query: SELECT [TABLES Query].SORT, [TABLES...
  16. mikelev

    Change Text Color after DLookup

    Ok just a little modification. The Array you prvided includes "6" & "7" which I do not have a TABLENUM for. So for whatever reason "8" & "9" (label191 & label192) do not change colors, but all the rest work fine. Anything we can de here?
  17. mikelev

    Change Text Color after DLookup

    AMAZING!!!! Where do I send the check? As always PHV many thanks, it's people like you that help us guys out here floundering around make things work. Hats off, and a star!
  18. mikelev

    Change Text Color after DLookup

    Expected List seperator, I tried a few closing paren's but no luck. Sorry for dragging this out.
  19. mikelev

    Change Text Color after DLookup

    heres what I have: Private Sub Form_Current() t = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "P1", "P2", "P3", "P4", "P5") For i = 0 To 16 If DLookup("TABLENUM", "SOFTCOUNT", "TABLENUM='" & t(i) & "' AND Int(INSERTDATE)=#" & DATE & "#") = t(i) Then Me("Label" & (i...
  20. mikelev

    Change Text Color after DLookup

    Entered 2 records with no results (they stayed red). I also verified the spelling of the table name and column names in my DB. SOFTCOUNT.TABLENUM SOFTCOUNT.INSERTDATE 2 9/2005 9:05:19 AM 3 9/2005 9:05:21 AM t = Array("1", "2", "3"...

Part and Inventory Search

Back
Top