ลองดูโค้ดจากลิงค์นี้ครับ http://bytes.com/topic/access/answers/665811-dynamically-shrink-font-textbox ไม่แน่ใจว่าใช้ได้หรือไม่ ผมไม่ได้ลอง

Private Sub Detail_Format(...)
    dim R as Single

    Me.FontName = "Areal" 'Your default font here
    Me.FontSize = 10 'Your default font size here
    R = Me.TextWidth(Me![MyTextStr]) / Me![MyTextStr].Width
    If R >= 1 then
        Me![MyTextStr].FontSize = 10 'Don't forget to restore original font size
    Else
        Me![MyTextStr].FontSize = 10*R
    End If
End Sub