ใกล้เคียงที่สุดน่าจะได้อย่างนี้ครับ
.5   แสดงเป็น 0.5
.75 แสดงเป็น 0.75
6     แสดงเป็น 6.0

ด้วย Format = 0.0#
เพราะ Format ก็ต้องการรูปแบบที่แน่นอน หากคุณกำหนดจุดไปแล้ว จำนวนเต็มจะไม่ให้แสดงจุด ในรูปแบบ Format ผมก็ยังคิดไม่ออกเหมือนกันครับ แต่หากมีความจำเป็นต้องการแบบนี้จริง เท่าที่คิดได้คือการเขียนฟังก์ชั่นประมาณนี้ครับ

Public Function TTT(DigiNum As String)
        If DigiNum Like "*.*" Then
            TTT = Format(DigiNum, "0.0#")
        Else
            TTT = Format(DigiNum, "0")
        End If
End Function

แล้วใช้ฟังก์ชั่นนี้กับคิวรี่ รูปแบบนี้:
Exp: IIf(IsNull([ตัวเลข]),Null,ttt([ตัวเลข]))

ขอบคุณมากครับ