Access Report number format

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I would like to know how to get my numbers to format with 2 decimal places in
the following:
Dim AvgPung As Integer
Dim StdDev As Integer
Dim PstTot As Integer
AvgPung = Me.MeanPung
StdDev = Me.StdDevPung
PstTot = AvgPung + StdDev
If AvgPung <= 3.54 And PstTot <= 4.04 Then
If MsgBox("The Avg Pung is " & " " & CStr(AvgPung) & "." & " " & " The
Std Dev is " & " " & CStr(StdDev) & "." & " " & "The total is " &
CStr(PstTot), vbOKOnly) = vbOK Then
DoCmd.OpenReport "rptFieldPungTest", acViewPreview, , strWhere
End If

I need the AvgPung, the StdDev, and PstTot to be formatted with 2 decimals
in the MsgBox.

Thanks for any help I can get on this.
 
Back
Top