ทุกวันนี้ ทุกคนยังใช้งาน ms access เวอร์ชั่นอะไรอยู่ครับ และใช้ฐานข้อมูลเป็น???? ms access อยู่รึเปล่าครับ และมีแนวโน้มว่าจะเปลี่ยนเป็นอย่างอื่น อยู่รึเปล่าครับ

ผมมี office 2003 และ xp ครับ
ไม่รู้ว่าจะใช้กับของคุณได้รึเปล่า แต่บอกก่อนนะครับว่า ไม่ใช่แผ่นถูกลิขสิทธิ์นะ
ติดต่อทาง https://www.facebook.com/msaccessthai

ผมลอง convert จาก macro แล้ว เป็น vba คือ
Option Compare Database

'------------------------------------------------------------
' itemsalesMacro
'
'------------------------------------------------------------
Function itemsalesMacro()
On Error GoTo itemsalesMacro_Err

    With CodeContextObject
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdCopy
        DoCmd.Echo False, ""
        DoCmd.OpenTable "itemtempTable", acViewNormal, acEdit
        DoCmd.GoToRecord acTable, "itemtempTable", acFirst
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdPaste
        DoCmd.Close acTable, "itemtempTable"
        DoCmd.Echo True, ""
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdCopy
        DoCmd.Echo False, ""
        DoCmd.OpenTable "itemtempTable", acViewNormal, acEdit
        DoCmd.GoToRecord acTable, "itemtempTable", acFirst
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdPaste
        DoCmd.Close acTable, "itemtempTable"
        DoCmd.Echo True, ""
        If (Eval("[combo25] Is Null")) Then
            .Combo25 = DLookup("[date]", "invoiceQuery10")
        End If
        If (Eval("[combo4] Is Null")) Then
            .Combo4 = DLookup("[customerid]", "invoiceQuery10")
        End If
        If (Eval("[combo23] Is Null")) Then
            .Combo23 = DLookup("[%vat]", "invoicetableremark", "[invoiceno]=combo27")
        End If
        'SendKeys "{F9}", True
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdCopy
        DoCmd.Echo False, ""
        DoCmd.OpenTable "itemtempTable", acViewNormal, acEdit
        DoCmd.GoToRecord acTable, "itemtempTable", acFirst
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdPaste
        DoCmd.Close acTable, "itemtempTable"
        DoCmd.Echo True, ""
        Exit Function
        DoCmd.SetWarnings False
        If (Eval("[combo25] Is Null")) Then
            .Combo25 = Null
        End If
        If (Eval("[combo4] Is Null")) Then
            .Combo4 = Null
        End If
        If (Eval("[combo23] Is Null")) Then
            .Combo23 = Null
                End If
    End With


itemsalesMacro_Exit:
    Exit Function

itemsalesMacro_Err:
    MsgBox Error$
    Resume itemsalesMacro_Exit

End Function


แล้วคราวนี้ จะให้ตรง properties นั้น ตรง after update นั้นมาเรียกใช้ จาก vba อย่างไงครับ ไปไม่ถูก

เพิ่งเจอใหม่ ตรงนี้ .accdb สามารถเรียก ฐานข้อมูลของ access ที่ save เป็น .mdb  ได้ด้วย สบายใจมากเลย

 

จากรูปนี้ query นี้ ใช้ทำงานอะไร มีความหมายว่าอย่างไง ไม่เข้าใจ เห็นแล้วงง มากๆ

 

ผมใช้ office 2016

อ่านดูแล้ว เข้าใจยากนะครับ

ผมเห็นสกุลเป็น .mdb แต่เวลาเปิดเข้าไปแล้วเป็นตามไฟล์แนบ