ลองเอาไปทดสอบดูครับเป็นการคำนวนแบบลูกทุ่งครับไม่รู้ว่ามันถูกต้องตามหลักการเขียนโปรแกรมหรือเปล่า

'คำนวนปี
If (Month(DATE) = Month(Me.BIRTH_DATE) And Day(Me.BIRTH_DATE) < Day(DATE)) Or (Month(DATE) < Month(Me.BIRTH_DATE)) Then
   Me.text_y = DateDiff("yyyy", [BIRTH_DATE], DATE) - 1
Else
   Me.text_y = DateDiff("yyyy", [BIRTH_DATE], DATE)
End If
'คำนวนเดือน
If Month(DATE) < Month(Me.BIRTH_DATE) Then
            If Day(DATE) < Day(Me.BIRTH_DATE) Then
                 Me.text_m = (12 - Month(Me.BIRTH_DATE)) + Month(DATE) - 1
            Else
               Me.text_m = (12 - Month(Me.BIRTH_DATE)) + Month(DATE)
            End If
Else
        If Day(DATE) < Day(Me.BIRTH_DATE) Then
                 Me.text_m = (Month(DATE) - Month(Me.BIRTH_DATE)) - 1
            Else
               Me.text_m = (Month(DATE) - Month(Me.BIRTH_DATE))
        End If
    End If
'คำนวนวัน
If Day(DATE) < Day(Me.BIRTH_DATE) Then
   Me.text_d = (Day(DateSerial(Year(DATE), Month(DATE), 0)) - Day(Me.BIRTH_DATE)) + Day(DATE)
   Else
   Me.text_d = Day(DATE) - Day(Me.BIRTH_DATE)
End If

จริงๆอยากให้ค้นหาคำว่า อายุ ในกระทู้เก่าดูก่อน เพราะมีการเขียนไว้เยอะแล้ว เช่น http://www.thai-access.com/suphap.php?topic_id=1511

แก้ไขตรงคำนวนเดือนเป็นตามนี้ครับ
If Month(DATE) < Month(Me.BIRTH_DATE) Then
            If Day(DATE) < Day(Me.BIRTH_DATE) Then
                 Me.NUM = (12 - Month(Me.BIRTH_DATE)) + Month(DATE) - 1
            Else
               Me.NUM = (12 - Month(Me.BIRTH_DATE)) + Month(DATE)
            End If
ElseIf Month(DATE) = Month(Me.BIRTH_DATE) Then
            If Day(DATE) < Day(Me.BIRTH_DATE) Then
                 Me.NUM = (12 - Month(Me.BIRTH_DATE)) + Month(DATE) - 1
            Else
               Me.NUM = (12 - Month(Me.BIRTH_DATE)) + Month(DATE)
            End If
Else
        If Day(DATE) < Day(Me.BIRTH_DATE) Then
                 Me.NUM = (Month(DATE) - Month(Me.BIRTH_DATE)) - 1
            Else
               Me.NUM = (Month(DATE) - Month(Me.BIRTH_DATE))
        End If
    End If

หนะยังผิดได้อีก แก้ไขอีกทีเฉพาะตรงคำนวนเดือน

If Month(DATE) < Month(Me.BIRTH_DATE) Then
            If Day(DATE) < Day(Me.BIRTH_DATE) Then
                 Me.text_m = (12 - Month(Me.BIRTH_DATE)) + Month(DATE) - 1
            Else
               Me.text_m = (12 - Month(Me.BIRTH_DATE)) + Month(DATE)
            End If
ElseIf Month(DATE) = Month(Me.BIRTH_DATE) Then
            If Day(DATE) < Day(Me.BIRTH_DATE) Then
                 Me.text_m = (12 - Month(Me.BIRTH_DATE)) + Month(DATE) - 1
            Else
               Me.text_m = (12 - Month(Me.BIRTH_DATE)) + Month(DATE)
            End If
Else
        If Day(DATE) < Day(Me.BIRTH_DATE) Then
                 Me.text_m = (Month(DATE) - Month(Me.BIRTH_DATE)) - 1
            Else
               Me.text_m = (Month(DATE) - Month(Me.BIRTH_DATE))
        End If
    End If