Throughout my pogram I am adding up numbers in the lngPercentFit var and then I divide it by lngTotalTtl( I just set it to 5 for this example) The problem is that all I can ever get it to return to the field is 0.00% or like 100.00% or 300.00%. If it dosent divide evenly I get 0%. I have also tried double as a datatype with the same results. Any light you can shed would be greatly appreciated.

    Dim lngPercentFit As Single
    Dim lngTotalTtl As Single

    lngPercentFit = 5
    lngTotalTtl = rstTotalTbl![LS_Fit_Weld_Visual] + rstTotalTbl![GW_Fit_Weld_Visual] + rstTotalTbl![RW_Fit_Weld_Visual] + rstTotalTbl![FW_Fit_Weld_Visual]

    rstResultTbl.Edit
    rstResultTbl![% Completed] = lngPercentFit / lngTotalTtl
    rstResultTbl.Update
    rstResultTbl.MoveNext

A solution doesn't jump out at me. While the 2 variables in the code are declared as Single, I can't tell if you have the table field defined as Single (or Double).

The slightly confusing thing about your code is that the prefix "lng" is usually used (in my experience) to mean Long Integer. Obviously this will not effect your result but it is confusing none-the-less.

-Phil-

Yeah, I figured it out. It was as you mentioned, I didnt have the fields in my table declared as Single. I also changed the lng to sgl :P Thanks for the input

JR