แสดงกระทู้

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

หน้า: [1] 2 3 4 ... 6
1
ทำไมไม่สั่งปิดทุกฟอร์มแล้วเปิดใหม่เรียงตามฟอร์มที่ต้องการครับ
Dim obj As AccessObject, dbs As Object
            Set dbs = Application.CurrentProject
            For Each obj In dbs.AllForms
                    If obj.IsLoaded = True Then
                    DoCmd.Close acForm, obj.Name, acSaveYes
                    End If
                Next obj
'เรียงตามลำดับที่ต้องการ
DoCmd.OpenForm "FormA"
DoCmd.OpenForm "FormB"
DoCmd.OpenForm "FormC"

ปล.ไม่รู้ว่าใช่คำตอบมั้ย
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

2
ใช้ Tab Control เถอะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

3
แนวความคิดของผมคือทำฟอร์มหลักขึ้นมาแล้วเอาฟอร์ม A,B,C จับใส่เป็นฟอร์มย่อยข้างใน
-ได้การจัดวางตามต้องการ
-ไม่จำเป็นต้องเชื่อมฟอร์มกัน

*ข้อเสีย
-เปิด,ปิดฟอร์มหลักอันเดียว=มีผล3ฟอร์ม
-ย่อ,ขยายเต็มจอเฉพาะบางฟอร์มในนี้ไม่ได้
-อื่นๆ

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

4

1. เปิด Properties ของ Query
2. กำหนด Unique Values = yes 
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

5
DoCmd.OpenForm "B"  (สถานะ ผุดขึ้น = Yes  โมดุล = No)
DoCmd.OpenForm "A"  (สถานะ ผุดขึ้น = No  โมดุล = No)

ถ้าทำสถานะแบบนี้  ฟอร์ม B  จะทับซ้อน A อยู่  หรืออาจเปลี่ยน โมดุล = Yes  ลองดูครับ

ไม่รู้ว่าต้องการแบบซ้อนทับ หรือ แบบเรียงแบบอีกฟอร์ม1อยู่ซ้าย  ฟอร์ม2 อยู่ขวา
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

6
ห้อง MS Access / : สร้างรายการใน Combo box
« เมื่อ: 29 ธ.ค. 65 , 14:11:41 »
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

7
สามารถสร้าง Query ด้วย Wizard แล้วเลือก Find Duplicated หรือ Find Unmatched ได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

8
คลิกตรงรูปภาพ เรื่องที่เราสนใจ มองข้างโฆษณาไป แล้วก็มีปุ่ม โหลด PDF อยู่ด้านล่าง กดโหลดได้เลย......
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

9
ห้อง MS Access / : Textbox ถ้าค่าแสดงเป็น #TYPE!
« เมื่อ: 28 ก.ย. 64 , 10:42:43 »
ลองใช้คำสั่ง IIF ร่วมกับ ISERROR ดูครับ โดยกำหนดว่า ถ้า Error ให้แสดงเป็น ""
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

10
https://docs.microsoft.com/en-us/office/vba/api/access.docmd.movesize
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

11
Toggle Button ต้องใช้ร่วมกับ Option Group

วิธีการคือ
1. กำหนด Control Source ให้ Option Group
2. ตั้ง Default เป็นค่าในปุ่มแรก



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

12
ห้อง MS Access / : เปิดฟอร์มแล้ว ...
« เมื่อ: 09 เม.ย. 64 , 09:59:27 »
1. เปิดฟอร์มแล้วให้ซ่อนหน้าต่างนำทาง โค้ดอย่างไรครับ
2. เปิดฟอร์มแล้วให้ขอบซ้ายของฟอร์มชิดขอบหน้าต่าง (ตอนนี้หน้าต่างมันอยู่กึ่งกลาง) กำหนดตรงไหนครับ
ข้อ1 ใส่ใน Event Form_Load ก็ได้ครับ

    Private Sub Form_Load()
    DoCmd.ShowToolbar "Ribbon", acToolbarNo  'ซ่อน Ribon ด้านบน
    DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.RunCommand acCmdWindowHide  'ซ่อนหน้าต่างนำทาง
    End Sub

ข้อ2
1.ประกาสตัวแปลไว้บนสุดของคำสั่ง
    Public FrmTop  As Long
    Public FrmLeft As Long

2.ที่ Event Form_Activate() ใส่โค๊ดนี้เข้าไป
    Private Sub Form_Activate()
    FrmTop = Forms![ชื่อฟอร์ม].WindowTop
    FrmLeft = Forms![ชื่อฟอร์ม].WindowLeft
    FrmTop = Me.WindowTop
    FrmLeft = Me.WindowLeft
    End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

13
ลืมนึกถึงเรื่องนี้ไปเลย
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

14
จากการไล่ดูพบว่าในบางตารางท่านมีการใช้ชื่อฟิวล์เป็นภาษาไทยครับ เช่น คิวรี่ ManCustomer เชื่อมตาราง CodePAT ในนั้นมีฟิวล์ภาษาไทย
แต่ลองแก้ชื่อฟิวล์ภาษาไทยในทุกตารางแล้วก็ยังใช้ไม่ได้ จึงดึงข้อมูลทั้งหมดไปใส่ในไฟล์ใหม่ถึงจะใช้งานได้ครับ

สรุปที่ผมแก้คือ แก้ชื่อฟิวล์ภาษาไทยในทุกตารางเป็นภาษาอังกฤษ(a1,a2,a.../c1,c2,c...) --> สร้างไฟล์ใหม่แล้วดึงตาราง,คิวรี่,หน้าฟอร์มไปใส่ = combo box ทุกตัวขึ้นรายการตามที่พิมพ์
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

15
ดูแล้วก็น่าจะเกิดปัญหาอย่างที่เจออยู่ตอนนี้ครับ เพราะ Row Source ของ Combo Box อันนี้ หยิบมาจากคิวรีที่ซับซ้อน
เวลาสั่งให้แสดงผล มันก็ทำงานไม่ทัน มันก็เลยไม่ทำ


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

16
บันทึก เปิดใหม่ ใช้ไม่ได้แล้วครับ
แต่ถ้าเปิดใหม่มาแล้วสร้าง combo box ใหม่ จะใช้ได้ครับ ทำวนไป

แต่สังเกตว่าเวลาเราพิมพ์ข้อความลงไปแม้ว่าจะพิมพ์ถูกต้องครบทุกตัวอักษร แต่มันก็แจ้งว่าข้อความที่พิมพ์ไม่ตรงถูก ต้องเลือกเท่านั้น
งงจริงครับ -..-



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

17
ผมก็ลองทำหน้าฟอร์มเปล่าๆขึ้นมาใหม่เหมือนกันบางทีก็ได้แต่สุดท้ายก็ไม่ได้ / ลองไปไล่ใส่ References ใน VB ดูก็ยังไม่ได้  :question:
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

18
สาเหตุ ไม่ทราบจริง ๆ

ผมลองโหลดไฟล์มาดู และลองพิมพ์ดูมันก็ไม่ขึ้นเหมือนที่ จขกท เป็นครับ
ผมเลยสร้างฟอร์มใหม่ และสร้างคอมโบบ๊อกใหม่ โดยใช้ row source เดิม ปรากฎว่าดูได้ครับ และส่งผลให้ฟอร์มหลัก manCustomer ดูได้ไปด้วยทั้งหมด

งงสิครับ 555

รอท่านอื่นครับ ผมอยากรู้เหมือนกัน



หลังจากสร้างฟอร์มแล้วก็มาดูที่ฟอร์มหลัก ใช้ได้เฉย แต่พอผมบักทึกแล้วปิด เปิดมาใหม่ ก็จะใช้ไม่ได้ครับ






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

หน้า: [1] 2 3 4 ... 6