แสดงกระทู้

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

หน้า: [1]
1
ห้อง MS Access / : ลบค่า Parameter Value ใน Forms ค่ะ
« เมื่อ: 25 ก.พ. 63 , 12:56:54 »
ตัวรายงาน อยากให้มีการ กำหนด Parameter Value ข้อมูลที่ต้องการแสดงในรายงานใช่ไหมครับ

ตัวรายงาน ไม่ต้องใช้ คิวรี่ตัวเดียวกับ Form ก็ได้



วิธีทำ ที่ RecordSource ของรายงาน ลบคิวรี่ออกไปแล้ว กดตรง จุด 3 จุด สังเกตุว่ามันสามารถกำหนด ข้อมูลที่อยากนำมาแสดง เหมือนตอนเราสร้างคิวรี่
เรามากำหนด PARAMETER ตรงนี้ได้เลย (วิธีนี้เราจะไม่ได้สร้างคิวรี่ไว้แต่จะกำหนดในรายงานเลยครับ)

ส่วนตัวคิวรี่ของฟอร์มเอา parameter ออกไปได้เลยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: oraaoi

2
ห้อง MS Access / : รวมค่าใน Report
« เมื่อ: 21 ก.พ. 63 , 21:03:32 »


มันจะได้ประมาณนี้ครับ

1. เปิดมุมมองออกแบบแล้วเลือก Design > Group & Sort
2. เลือก Group by ID (อยู่ตรงด้านล่าง)
3. เลือก Text Box ที่หาผลรวม
4. เลือก Totals > Sum

ลองดูนะครับ


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

3
ในมุมผมนะ
> เอามาใช้แค่เป็น Combo box ช่วยในการเลือกข้อมูลไม่ต้องผูกอะไรครับ ที่นี้ล่ะว่าComboboxเลือกข้อมูลแบบไหนมาเก็บในตาราง
   - เก็บเป็น ID = ในฟอร์มหรือรีพอร์ตอื่นๆค่อยเอามาผูกเพื่อดึงชื่อมาแสดง
   - เก็บเป็นชื่ออยู่แล้ว = ไม่จำเป็นที่จะต้องผูกอะไรอีกในอนาคตครับ

> เห็นมี xxx..ID ทั้งหลายอยู่แล้วไม่ตั้งให้เป็นหัวไปเลยไม่ต้องไปใช้ ID อ่านะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: oraaoi

4
ข้อความบอกเป็นนัยว่า รหัสแผนกที่เลือก ไม่มีอยู่ในเทเบิล dDepartment ครับ เช็คดีๆว่าป้อนรหัสแผนกถูกหรือไม่
โพสต์นี้ได้รับคำขอบคุณจาก: oraaoi

5
ห้อง MS Access / : ไม่ให้ลบข้อมูลใน Subform
« เมื่อ: 24 มิ.ย. 62 , 14:22:22 »
มีรูปภาพหรือเปล่าครับ

หรืออาจใช้ การ Requery เพื่อแสดงข้อมูลล่าสุดก็ได้คับ
เช่นที่ปุ่มบันทึกของฟอร์มหลัก ก็ใส่

Me.[ชื่อของซัฟฟอร์ม].Form.Requery
โพสต์นี้ได้รับคำขอบคุณจาก: oraaoi

6
ห้อง MS Access / : ไม่ให้ลบข้อมูลใน Subform
« เมื่อ: 11 มิ.ย. 62 , 15:57:13 »
เวลากำหนดตั้งค่า ไม่ใช่เปิดจาก form หลักนะครับ
ให้เปิด SubForm มาแก้ไขโดยตรง ห้ามเปิดจาก MainForm ครับ

ลองเปิดเฉพาะSubForm มาแก้ไขดูครับ

หรือถ้ายังไม่ได้ให้ Zip File แนบมาทางอินบ๊อก เดี่ยวดูให้คับ
โพสต์นี้ได้รับคำขอบคุณจาก: oraaoi

7
ห้อง MS Access / : ไม่ให้ลบข้อมูลใน Subform
« เมื่อ: 11 มิ.ย. 62 , 15:32:06 »
สวัสดีค่ะ  อ๋อยรบกวนสอบถามเกี่ยวกับ Subform คือ ตอนนี้อ๋อยสร้าง Subform ให้แสดงข้อมูลจาก Form หลัก แล้วอยากจะ Lock Subform เพื่อไม่ให้แก้ไขข้อมูล หรือว่าลบข้อมูลใน Subform พอมีวิธีการไหนบ้างหรือเปล่าคะ  ขอบคุณค่ะ

กำหนดคุณสมบัติใน subform ตามนี้ก็ได้คับ



หรือจะใช้ โค้ดที่ Event Form_Current ของฟอร์มหลักก็ได้คับ  จากตัวอย่างฟอร์มหลักชื่อ Mainform ฟอร์มย่อยชื่อ Subform

Private Sub Form_Current()
Forms!mainform.Form!subform.Form.AllowDeletions = False
Forms!mainform.Form!subform.Form.AllowEdits = False
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: oraaoi

8


ใช้วิธีการเดียวกับการแสดง  อำเภอ  ตำบล นั้นละครับ เมื่อเรากดเลือก Geo แล้วพอจะเลือกจังหวัด เราก็กำหนดให้เลือก Geo_ID จากCombobox  Cb_geography ที่เรากำหนด
วิธีการคือ
1.สร้าง Combobox เพิ่มตั้งชื่อว่า Cb_Geography โดยกำหนด RowSource ของ Cb_geography ดังนี้
โค๊ด: [Select]
SELECT tb_geography.GEO_ID, tb_geography.GEO_NAME FROM tb_geography;
2.ในส่วนของ Combobox Cb_Province ก็กำหนด Rowsource ดังนี้
โค๊ด: [Select]
SELECT tb_province.province_id, tb_province.Province_th, tb_province.GEO_ID FROM tb_province INNER JOIN tb_geography ON tb_province.geo_id = tb_geography.GEO_ID WHERE (((tb_province.GEO_ID)=[Forms]![Form1]![Cb_geography]));
ส่วน Code ให้แก้เป็นแบบนี้ครับ
โค๊ด: [Select]
Option Compare Database
Option Explicit

Private Sub Cb_geography_AfterUpdate()
    Me.cb_province.Requery
    Me.cb_province = Null
    Me.cb_amphur = Null
    Me.cb_district = Null
    Me.txt_zipcode = Null
End Sub

Private Sub cb_province_AfterUpdate()
    Me.cb_amphur.Requery
    Me.cb_amphur = Null
    Me.cb_district = Null
    Me.txt_zipcode = Null
End Sub
Private Sub cb_province_GotFocus()
Me.cb_province.Requery
End Sub

Private Sub cb_amphur_AfterUpdate()
    Me.cb_district.Requery
    Me.cb_district = Null
    Me.txt_zipcode = Null
End Sub
Private Sub cb_district_AfterUpdate()
    Me.txt_zipcode = DLookup("post_code", "tb_district", "district_th= '" & Me.cb_district & "' AND amphur_id = " & Me.cb_amphur.Column(0, Me.cb_amphur.ListIndex))
End Sub

Private Sub cb_amphur_GotFocus()
    Me.cb_amphur.Requery
End Sub
Private Sub cb_district_GotFocus()
    Me.cb_district.Requery
End Sub
Private Sub Form_Load()
Me.Cb_geography.SetFocus
End Sub

สามารถดูตัวอย่างที่แก้ไข ด้านล่างครับ
โพสต์นี้ได้รับคำขอบคุณจาก: oraaoi

หน้า: [1]