ค่าออกเหมือนกันค่ะ #มือใหม่หัดเขียน

[honeypiez19]

ค่าของช่องแรกออกเป็น 20 มันต้องเป็น 22 ค่ะ T^T ' ช่วยด้วยค่าา #มือใหม่หัดเขียน 



Code ค่ะ


Sub TEST1()

    Dim CON As ADODB.Connection
    Dim TRN As ADODB.Recordset
    Dim MST As ADODB.Recordset
    Set CON = CurrentProject.Connection
    Set TRN = New ADODB.Recordset
    Set MST = New ADODB.Recordset
   
    TRN.Open "tblTransaction", CON, adOpenKeyset, adLockOptimistic
   
    Do Until TRN.EOF
        cc = ""
        tName = TRN!itemname + " "
            ' Debug.Print InStr(tName, "22")
            ' Debug.Print tName
        For idx = 1 To Len(tName)
            If Mid(tName, idx, 1) <> " " Then
                cc = cc + Mid(tName, idx, 1)
            Else
                If Len(cc) > 0 Then
                    MST.Open "tblKeyword", CON, adOpenStatic, adLockReadOnly
                ' Do Until MST.EOF
                 '  Debug.Print MST!keyword
                        If cc = MST!Keyword Then
                 '  MsgBox MST!Category & " --- " & MST!Value
                            TRN.Update MST!Category, MST!Value
                            ' Debug.Print MST!Category
                        End If
                        MST.MoveNext
                ' Loop
                    MST.Close
                End If
                cc = ""
            End If
            ' cc = ""
        Next
        If TRN!SizeA = TRN!SizeB Then
            TRN!Description = TRN!SizeA + " " + TRN!Type + " " + TRN!Type2
            ' If TRN!Description <> " " Then
                ' TRN!Description + TRN!SizeA
                ' Debug.Print TRN!Description
            ' End If
            Debug.Print TRN!Description
       
        ElseIf TRN!SizeA <> TRN!SizeB Then
            TRN!Description = TRN!SizeA
            TRN!Description2 = TRN!SizeB
            Debug.Print TRN!Description + TRN!Description2
        End If
        TRN.MoveNext
    Loop
End Sub

[สันติสุข]

เพราะไม่ได้บอกอะไรมาเลย ก็เดานะครับว่า 3 ตำแหน่งที่เป็นสีแดง อาจเป็นจุดที่ทำให้ผิดพลาดได้ นอกจากนี้ ก็เช็คด้วยว่าค่าใน tblKeyword ถูกต้องหรือไม่

                If Len(cc) > 0 Then
                    MST.Open "tblKeyword", CON, adOpenStatic, adLockReadOnly
                ' Do Until MST.EOF <---- Comment ก็ทำให้ไม่วนลูปสิครับ !!
                 '  Debug.Print MST!keyword
                        If cc = MST!Keyword Then <---- เช็คดีๆว่า เปรียบค่าของ cc กับ MST!Keyword ใช่สิ่งที่ต้องการหรือไม่
                 '  MsgBox MST!Category & " --- " & MST!Value
                            TRN.Update MST!Category, MST!Value <---- แน่ใจหรือไม่ว่าอัพเดตด้วย MST!Value
                            ' Debug.Print MST!Category
                        End If
                        MST.MoveNext
                ' Loop
                    MST.Close
                End If

[honeypiez19]

เพราะไม่ได้บอกอะไรมาเลย ก็เดานะครับว่า 3 ตำแหน่งที่เป็นสีแดง อาจเป็นจุดที่ทำให้ผิดพลาดได้ นอกจากนี้ ก็เช็คด้วยว่าค่าใน tblKeyword ถูกต้องหรือไม่

                If Len(cc) > 0 Then
                    MST.Open "tblKeyword", CON, adOpenStatic, adLockReadOnly
                ' Do Until MST.EOF <---- Comment ก็ทำให้ไม่วนลูปสิครับ !!
                 '  Debug.Print MST!keyword
                        If cc = MST!Keyword Then <---- เช็คดีๆว่า เปรียบค่าของ cc กับ MST!Keyword ใช่สิ่งที่ต้องการหรือไม่
                 '  MsgBox MST!Category & " --- " & MST!Value
                            TRN.Update MST!Category, MST!Value <---- แน่ใจหรือไม่ว่าอัพเดตด้วย MST!Value
                            ' Debug.Print MST!Category
                        End If
                        MST.MoveNext
                ' Loop
                    MST.Close
                End If

ได้แล้วค่ะอาจารย์ ใช้ if เช็คค่าช่องเอาค่ะ ขอบคุณนะคะ