แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - ekarat

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

2
 :smile: และมีการใช้งานหลายตาราง ใช่เปล่า ปัญหาก็เลยมีอยู่ว่า บางทีเราเขียนโปรแกรมแล้ว มันต้องมีการ update กันหลายเครื่อง พร้อมกัน เราสามารถใช้งานได้ใช่เปล่า แต่บางที มันก็ติดว่า อาจจะมีการ update ตารางเดียวกันได้ พร้อมกันหลายเครื่อง ทีนี้ ผมอยากรู้ว่า ตารางที่กำลังใช้งานพร้อมกันนั้น ทำให้ไม่สามารถที่จะทำการ update ได้นั้น มีเครื่องไหนเปิดใช้งานอยู่บ้างน่ะครับ เรามีวิธีดูมั้ยครับ

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

4
เค้าใส่ไว้ที่ switchboard แล้วเรียก macro นั้นมาใช้ครับ

5
ผมลอง 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 อย่างไงครับ ไปไม่ถูก

6
เวลา เอามารันบน access 2016 นั้น มันไม่สามารถใช้งานได้ ใช่เปล่า มันต้องเปลี่ยนเป็นคำสั่ง vba code ใช่มั้ยครับ ผมอยากรู้ว่า  sendkey f9 นั้น ใช้ทำงานอะไรครับ ถ้าผมจะเอามาเขียนเป็น vba code นั้น ต้องเขียนว่า อะไรครับ :dizzy:

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

8
ขอดูหน้าตา ตรง ribbon ที่เป็นสีเหลือง หน่อยสิครับ

9
 :smile:

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

10
ผมจะตั้งกระทู้ ได้อย่างไงครับ พยายามหาวิธีอยู่น่ะครับ

12
ห้อง MS Access / > สอบถามการQuery คำนวนค่า
« เมื่อ: 18 เม.ย. 61 , 16:04:48 »
ช่วยจับหน้าต่างในการรัน query ให้ดูหน่อยสิครับ มันมีหน้าต่างเหมือน query analyzer sql เหรอครับ

13
ห้อง MS Access / > สอบถามการQuery คำนวนค่า
« เมื่อ: 18 เม.ย. 61 , 15:02:14 »
อ่านดูแล้ว เข้าใจยากนะครับ

14
ผม งง ว่า ทำไมตรงเมนูน่ะ ไม่เห็นที่มีมากับ ms access ที่เปิดใน office 2016

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

16
 :prettiness:ผมไม่รู้ เห็นมันซับซ้อน หลายต่อมากเลย งง... ทำใจยอมรับไม่ได้ พยายามทำใจอยู่ครับ เพื่อนๆ ช่วยอธิบายความหมายของ query นี้ หน่อยครับ

หน้า: [1]