Replies

The main reason that I have the % Fields on the form is so fellow associates may see how they are doing at the point of data entry. The reason for the %Fields in the table is so whenever a fellow associate wants to look at a particular item, they may just pull the data and not have to know the formulation or calculations needed for the %Fields. I am trying to keep it as simple as I can being not everyone will have had any kind of Access training.

I believe I may have gotten the problem somewhat solved.
Here a sample copy of the SQL statement:
“SELECT tblFinish.tmStart, tblFinish.tmFinish, tblFinish.Coat, IIF([tmStart]<[tmFinish],24-[tmStart+[tmFinish],[tmStart]-[tmFinish]) AS [tmCoat]
FROM tblFinish;"

I build some expressions in the query design and for the most part it is working. I am getting numbers now in the query that I built, also the fields and the tables. Yet if I run a new query using the Simple Query Wizard, I still get 0's as results????? Thanks to all..

Yes, I have been using the “Simple Query Wizard”, exactly as shown. Am I not developing it far enough? The most I can zip my database is 558k, so I may need to make some changes.. thanks..

I will have to wait till I get to work before I can possibly send the database. In the table, the columns with these field names do have the correct results, as do the fields in the form. If I run the query as shown -(using the Query Wizard) I see only zero’s in these fields which have something similar ” =((field1-field2)/field1))”. Thanks in advance again and I do appreciate all your patience with me. I am learning this as I go along.

Sorry for the delay, but I have been out of town on business.
Here is the SQL view :
“SELECT tblSoursSanding.Time, tblSoursSanding.wtSanded, tblSoursSanding.wtCitricBefore, tblSoursSanding.wtCitricAfter, tblSoursSanding.wtCitricDelivered, tblSoursSanding.wtSugarBefore, tblSoursSanding.wtSugarAfter, tblSoursSanding.wtSugarDelivered, tblSoursSanding.PerfCitric, tblSoursSanding.PerfSugar
FROM tblSoursSanding; “.

I added the quotation marks. I hope this will help. Thanks again.

In the SQL view – the statement has “SELECT tblWeights.field, tblWeights.field2….From tblWeights. They appear to be the correct fields from the correct table. I setup the query using the simple query wizard, selecting the desired fields. What should you recommend next?

Hans, Thank you very much! -Sir, it worked like a charm. Compared to what I was told by another associate, yours was short, simple and it works.

Private Sub Slurry_Weight_AfterUpdate()
Dim lngRed AS Long, lngWhite As Long
Dim pct_slurry As String

Me.Slurry.Enabled = True
Me.Slurry.SetFocus
pct_slurry=Me.Slurry.Text
Me.Slurry_Weight.SetFocus
Me.Slurry.Enabled=False

lngRed= RGB(255, 0 ,00
lngWhite=RGB(255, 255, 255)
If CSng(Left$(pct_slurry, Len(pct_slurry) – 1)) < 12 then (this is where the error is.)
Me.Slurry.ForeColor = lngRed

I did not include all the script, but hopefully this helps. Thanks in advance.

Thanks everyone for your help, I wish I had of thought of using this before.
The setfocus worked great for moving the cursor up to the desired field. Thanks….. I had previously tried the tab order but the cursor would stay on the “Add Record” button.
I was also able to get the data to change text as desired using code, but now I keep getting -” Run-time Error “13” – Type Mismatch”. I am looking at one field and upon it’s change, calculating to a “%” in another field. Is this my problem?

John,

Thank you for such a speedy reply. I won’t get a chance to try it till Wednesday at work, I appreciate it very much, I have been struggling with for a couple of days now.