ผมเขียน Code Run Number ตามนี้ครับ


Private Sub zzz_Click()
        Dim AddNo As String
        Dim AAA As Integer
        Dim CCC As String
        Dim ANT As String
       
        CCC = DMax("zzz", "Qr")
'หาค่ามากที่สุดในฟิว ZZZ ตาราง QR

        AAA = "Select Count (ZZZ) From Qr Where zzz=CCC "
'ให้นับจำนวน Record ที่มีค่าเหมือนหรือเท่ากับ CCC ที่ฟิว ZZZ ตาราง Qr ว่ามีจำนวนเท่าไร่

If AAA > 5 Then
'เช็คเงื่อนไข AAA มีค่ามากกว่า 5 ราการคือ 0001/56 จำนวน 5 รายการเป็นต้น
       
        If Right(AAA, 2) <> Format(Now(), "YY") Then
'รูปแบบ 0001/56 ถ้าตัวเลข 56 ไม่เท่ากับ Format
               AddNo = 1
'ให้บวก YY ได้ 56+1 = 57
        Else
        AddNo = Left(AAA, 4) + 1
'จำนวนทางซ้าย +1
       End If
               If AddNo < 10 Then
                         ANT = "000" & AddNo & "/" & Format(Now(), "YY")
                    ElseIf AddNo < 100 Then
                          ANT = "00" & AddNo & "/" & Format(Now(), "YY")
                    ElseIf AddNo < 1000 Then
                         ANT = "0" & AddNo & "/" & Format(Now(), "YY")
                     Else
                        ANT = AddNo & AddNo & "/" & Format(Now(), "YY")
               End If

Else
        ANT = CCC
' ให้คำตอบเท่ากับค่าเดิม

       zzz.Value = ANT
'Text ZZZ ให้มีค่าเท่ากับ ANT
       
   End If


คำถามของผมคือ พอผม Run ใช้งานโปรแกรมโปรแกรมแจ้งว่าType Mismatch
ตรงบรรทัด AAA = "Select Count (ZZZ) From Qr Where zzz=CCC "

แต่พอผมเปลี่ยน AAA As String มันก็ขึ้นเหมือนเดิมแต่เป็นที่บรรทัด If AAA > 5

และผมลองใส่ " " ที่ If AAA > 5 เป็น If AAA > "5" โปรแกรม Run ไม่เจอ Error อะไรเลย แต่ก็ไม่ขึ้นอะไรครับ
ผมรบกวนอาจารย์ หรือผู้รู้ช่วยแนะนำการแก้ไขให้ถูกต้องหรือแก้ไขให้ผมด้วยครับ
ขอขอบคุณมากครับ