แสดงกระทู้

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 - pizza_p

หน้า: [1] 2 3
1
ใช้
DoCmd.RunCommand acCmdSaveRecord
หรือ
Me.Dirty = False
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown, ชุติพนธ์ มหาทรัพย์

2
ตรงคำสั่งที่ปุ่ม Detail ที่เป็น

    DoCmd.OpenForm "frmLGDocDep", , , stLinkCriteria

ให้เพิ่ม OpenArgs เป็น Me.Address เพื่อส่งค่า Address ไปยังฟอร์มใหม่ที่เปิด

    DoCmd.OpenForm "frmLGDocDep", , , stLinkCriteria, , , Me.Address

ในฟอร์ม frmLGDocDep ตรง control ที่เป็น Address ให้ตั้ง Default Value เป็น = OpenArgs ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

3
เนื่องจากฐานข้อมูลมีการเปิดใช้ BigInt ไปแล้ว ซึ่งจะทำให้ฐานข้อมูลถูกอัพเกรดเป็น database รุ่น 16.7 อย่างถาวร ซึ่งจะเปิดใช้ได้เฉพาะ Access 2016 รุ่น 16.0.7xxx เป็นต้นไปเท่านั้น

วิธีแก้ไขคือให้เปลี่ยน data type จาก BigInt (Large Number) เป็น Number ธรรมดา

หลังจากนั้นให้สร้างไฟล์ Database ใหม่โดยที่ตรง Database Option ต้องไม่เปิดการใช้งาน BigInt (Support Bigint Data Type for Linked/Imported Tables ปกติมันจะไม่เปิดอยู่แล้ว) แล้วให้ Import ตารางจากไฟล์เก่าเข้ามาในไฟล์ Database ที่สร้างใหม่นี้แทน

https://support.office.com/en-gb/article/using-the-large-number-data-type-5b623f6e-641d-4e97-8bdf-b77bae076f70
https://support.office.com/en-gb/article/set-user-options-for-the-current-database-29b6b7be-4c3b-43a7-b8f0-5e1c68f5adce#largenumber
โพสต์นี้ได้รับคำขอบคุณจาก: Tatchawin

4
ขออนุญาตเรียนถามท่านครับ ว่าของท่านเคยเจอเคสแบบผมไหม แล้วถ้าแก้ไขตามที่ท่านว่า สามารถเปิดดูได้รึเปล่าครับ ขอบคุณครับ

ไม่เคยครับ แต่ Microsoft มาตอบเองคุณก็ลองเช็คดูครับว่ามี field ที่เป็น BigInt หรือไม่ ถ้าใช่มันก็คือสาเหตุแหละครับ หรือไม่อย่างนั้นก็อัพเกรดตัว MS Access 2016 เป็น version 16.0.7xxx.xxxx or later. แต่ผมไม่แนะนำวิธีหลังเพราะเดี๋ยวมีลูกค้าไปเปิดใน 2013 หรือ 2010 ก็เจอปัญหาอีก
โพสต์นี้ได้รับคำขอบคุณจาก: Tatchawin

5
กำหนด Property ที่ Filter ให้เป็นเงื่อนไขที่ต้องการ เช่น Bill_Status <> 0 และกำหนดให้ Filter On = True
โพสต์นี้ได้รับคำขอบคุณจาก: nonc31

6
https://support.microsoft.com/en-us/help/3208802/database-you-are-trying-to-open-requires-a-newer-version-of-microsoft

มีการใช้ BigInt Data type เช็คตารางที่มีการใช้ BigInt ให้เปลี่ยนจาก large Number เป็น Number เฉยๆ
โพสต์นี้ได้รับคำขอบคุณจาก: Tatchawin

7
ห้อง MS Access / : cannot open any more tables
« เมื่อ: 25 มี.ค. 62 , 21:58:43 »
เป็นข้อจำกัดของ Access ครับ มันสามารถมีและเปิดตารางได้ไม่เกิน 2000 ตารางครับ ถ้าโปรแกรมมีตารางเยอะ มี query หรือฟอร์มที่อิงตารางเยอะ หรือมีคอมโบบอกซ์หรือ list box ที่อิงกับตารางเยอะๆ แล้วเปิดใช้งานพร้อมๆกัน พอถึงจุดเกิน 2000 ตารางเมื่อไหร่ก็จะมี error นี้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung

8
ดูตรงปุ่ม Advanced.. ทั้ง Export และ Import ว่าตั้งค่าอะไรไว้เหมือนกันหรือเปล่า
โพสต์นี้ได้รับคำขอบคุณจาก: Un

9
Add ตาราง DropB_Surname เข้าไปใน query ด้วย แล้ว JOIN ตารางเข้าด้วยกัน
โพสต์นี้ได้รับคำขอบคุณจาก: DR.shane

10
ห้อง MS Access / : สอบถามError import csv fileค่ะ
« เมื่อ: 17 ม.ค. 62 , 20:34:34 »
ตรง VBA Reference ให้เพิ่ม Microsoft Office 1x.x Object Library เข้าไปด้วยครับ

โพสต์นี้ได้รับคำขอบคุณจาก: Earth

11
กำหนดให้เป็น Primary Key ถ้าเลขเดียวกันมันก็จะเพิ่มเข้าไปในตารางไม่ได้ จะเกิด Error แจ้งมา
โพสต์นี้ได้รับคำขอบคุณจาก: pasitsoft

12
จากความสัมพันธ์จะเห็นว่าตาราง 2divition ถ้าจะเพิ่มระเบียนเข้าไป จะต้องมีฟิลด์ ID ที่ต้องมีค่าอยู่ใน ID ของตาราง 1Name divition อยู่ก่อนหน้าแล้ว ถ้าเพิ่มระเบียนโดยไม่มีค่านี้อยู่ก็จะเกิด Error ที่ว่ามาได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Panupong

13
ระเบียนที่เพิ่มจำเป็นต้องมี Foreign key ที่เชื่อมโยงไปยัง Primary key ของอีกตารางหนึ่ง

ลองเปิดหน้าต่างความสัมพันธ์ดูว่ามีการเชื่อมโยง key ต่างๆไว้หรือไม่
โพสต์นี้ได้รับคำขอบคุณจาก: Panupong

14
ห้อง MS Access / : Hide Duplicates
« เมื่อ: 23 ธ.ค. 61 , 18:09:50 »
บรรทัด Dim KeyShow() ต้องเอาไปอยู่ก่อนที่จะมีฟังก์ชั่นใดๆครับ อยู่ใต้บรรทัด Option Compare Database ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Un

15
แนะนำให้สร้าง report แล้ว copy เอาคอนโทรลในฟอร์มไปไว้ใน report แทนครับ ใน report เราสามารถควบคุมการจัดพิมพ์ได้ดีกว่าครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Looktarn

16
ถ้าเป็น Access 2007 จะต้องเป็น service pack 2 ขึ้นไปถึงจะมีเมนู export excel ครับ แนะนำให้ติดตั้ง Office 2007 service pack 3 ซึ่งเป็น service pack ล่าสุดไปเลยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: wisitb

17
ใช้อันนี้แทน แต่ต้องกด Enter หลังจากใส่สูตรทุกครั้ง

Private Sub Output_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Output_Err:
Dim myValue As Variant

If KeyCode = vbKeyReturn Then
    myValue = Eval(Me.Output.Text)
    Me.Output = myValue
End If
   
Output_Err:
    'bypass error

End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: prajak

18
Private Sub Output_AfterUpdate()
On Error GoTo Output_Err:
Dim myValue As Variant

myValue = Eval(Me.Output)
Me.Output = myValue

Output_Err:
  ' bypass error

End Sub

หมายเหตุ: ไม่ต้องใส่เครื่องหมาย = นะครับ ใส่ตัวเลข + - * / ได้เลย
โพสต์นี้ได้รับคำขอบคุณจาก: prajak

หน้า: [1] 2 3