แสดงกระทู้

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

หน้า: 1 2 3 4 [5] 6 7 8 ... 32
73
ห้อง MS Access / : ปริ้นข้อมูลที่ถูกกรองโดย Combo box และ Text Searchต้องเขียนคำสั่งไปในทางไหนครับ
« เมื่อ: 07 ก.ค. 64 , 11:43:21 »
อ่อ มันไม่ได้ใช้การ filter ข้อมูลนะครับ ใช้ bookmark ใช่ไหม
งั้นโค้ดเงื่อนไข ต้องแก้ เดี่ยวขอปรับแก้แปป
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

74
ห้อง MS Access / : Running sum ค่าคงเหลือเบิกจ่ายวัสดุ แบบมีเงื่อนไข
« เมื่อ: 07 ก.ค. 64 , 11:39:35 »
ถ้าใช้คิวรี่ยังคิดไม่ออก
แต่ถ้าเป็นการ Loop check แล้วนำมาเพิ่มหรือหักลบกับค่าด้านบนเหมือนการรับยอดตัดยอดผมพอทำได้ครับ
วิธีการที่คิดได้ต้องสร้างตารางเพื่อแสดงผลครับ
เอาไหม ?
โพสต์นี้ได้รับคำขอบคุณจาก: Un

75
ห้อง MS Access / : ปริ้นข้อมูลที่ถูกกรองโดย Combo box และ Text Searchต้องเขียนคำสั่งไปในทางไหนครับ
« เมื่อ: 07 ก.ค. 64 , 11:21:53 »
Set frm = Forms![Navigation_Form]![NavigationSubform]![PTT].Form

ผมลองสร้างให้อยู่ใน Navigation_Form ดูสามารถทำได้

เช็คการตั้งชื่อของฟอร์มแต่ละอันว่าตรงกันไหมกับโค้ดด้านบน
โดยการดูชื่อคลิ๊กที่กรอบของฟอร์มแล้วดูตรงชื่อ


ตัวอย่างการตั้งค่าด้านล่าง
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

76
ห้อง MS Access / : ปริ้นข้อมูลที่ถูกกรองโดย Combo box และ Text Searchต้องเขียนคำสั่งไปในทางไหนครับ
« เมื่อ: 07 ก.ค. 64 , 09:35:51 »
สามารถทำได้โดย
1.สร้างตัวรายงานขึ่นมา 1 อันที่มี RecordSource เดี่ยวกันกับที่มีอยู่บน Form
2.สร้างปุ่มสำหรับปริ้นใส่โค้ดเข้าไป
สมมุติชื่อ frmMain   'ชื่อฟอร์มหลัก
สมมุติชื่อ frmSub    'ชื่อซับฟอร์ม
กรณีที่ form ไม่มีฟอร์มย่อย  ก็ใส่ set frm เป็น Set frm = Forms!frmMain.Form
กรณีที่ form มีฟอร์มย่อย  ก็ใส่ set frm เป็น Set frm = Forms!frmMain.frmSub.Form
สมมุติชื่อรายงานที่จะแสดงชื่อ Report1

Private Sub CmbPrint_Click()
Dim frm As Form
Set frm = Forms!frmMain.frmSub.Form
If frm.FilterOn Then
DoCmd.OpenReport "Report1", acViewPreview, , frm.Filter
Else
DoCmd.OpenReport "Report1", acViewPreview
End If
End Sub

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

77
ห้อง MS Access / : ปริ้นเฉพาะรูปที่ต้องการเท่านั้น ไ่ม่ทราบว่าต้องเขียน VBA หรือ Macro ยังไงครับ
« เมื่อ: 06 ก.ค. 64 , 10:46:19 »
SYSTEM LOCATE ไม่เหมือนกันแน่เลย
ที่ตัวรายงานให้กำหนดการแสดงรูปโดยกำหนด Criteria ตามรูปนะ
ที่ตัวรายงาน
1.เข้าไปกำหนด RecordSource
1.

2.เมื่อเข้ามาแล้วกำหนด Criteria โดยใช้ฟิลล์ที่จะอ้างอิง จากตัวอย่างผมใช้
Field เก็บรูปชือ Field1
Field EmpID โดยอ้างอิ้งเทคบ๊อก EMPID
ชื่อฟอร์มชื่อ Frm1 โค้ดจะเป็น   Nz([forms]![Frm1]![EMPID],"")
2.

3.ตรงปุ่มปริ้นใส่โค้ดแบบนี้
Me.Dirty = False
DoCmd.OpenReport "rpt1", acViewPreview
ถ้ายังไม่เข้าใจถ้าสามารถรีโมทได้จะไปเพิ่มให้
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

78
ห้อง MS Access / : ปริ้นเฉพาะรูปที่ต้องการเท่านั้น ไ่ม่ทราบว่าต้องเขียน VBA หรือ Macro ยังไงครับ
« เมื่อ: 06 ก.ค. 64 , 10:37:23 »
ถ้าท่านต้องการปริ้นทันที ไม่แสดงตัวอย่างก็แก้โค้ดเป็นแบบนี้

แก้จาก DoCmd.OpenReport "rpt1", acViewPreview
เป็น DoCmd.OpenReport "rpt1", acViewNormal

ตัวอย่างด้านบนผมแก้ไขใหม่ครับ โหลดไปดูได้
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

79
ห้อง MS Access / : ปริ้นเฉพาะรูปที่ต้องการเท่านั้น ไ่ม่ทราบว่าต้องเขียน VBA หรือ Macro ยังไงครับ
« เมื่อ: 06 ก.ค. 64 , 10:14:31 »
อ้างถึง
Button ไว้ และ Report ของ field รูปภาพ ตอนเราดูพนักงานคนไหนอยู่ เมื่อกด Button ใต้รูป มันก็จะพิมพ์รูปนั้นๆ ออกมา
Field เก็บรูปเป็นแบบ Attachment หรือเปล่าครับ
ในรายงานมีรหัสของพนักงานแต่ละคนอยู่ด้วยไหมครับ ถ้ามีสามารถใช้การอ้างอิง Field รหัสพนักงานเพื่อพิมพ์ภาพของ Record นั้นได้ครับ

ตัวอย่างด้านล่าง


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

80
ห้อง MS Access / : รบกวนท่านอาจารย์ทั้งหลายด้วยครับ
« เมื่อ: 01 ก.ค. 64 , 08:54:38 »
ให้สร้าง textbox ขึ้นมา 1 อัน
ใส่โค้ด dlookup นี้เข้าไปใน ControlSource ถ้าให้แสดงบนตัวรายงาน
โค๊ด: [Select]
=DLookUp("[Amount]","[Product]","[pro-id] ='" & [Reports]![RtpBill]![pro-id] & "'")
ใส่โค้ด dlookup นี้เข้าไปใน ControlSource ถ้าให้แสดงบนฟอร์ม
โค๊ด: [Select]
=DLookUp("[Amount]","[Product]","[pro-id] ='" & [Forms]![FrmUP]![FrmDown Subform]![pro-id] & "'")
textbox นี้จะแสดงจำนวน Amount ทั้งหมดที่ตามรหัสสินค้าที่ระบุ
โพสต์นี้ได้รับคำขอบคุณจาก: pattaya48150

81
ห้อง MS Access / : export to excel
« เมื่อ: 01 ก.ค. 64 , 08:35:50 »
ถ้าสามารถ รีโมทเข้าไปเชคให้ได้
ให้ส่ง Line ID มาทางข้อความผมได้เลยครับ
จะเข้าไปเช็คให้
โพสต์นี้ได้รับคำขอบคุณจาก: phathako

82
ห้อง MS Access / : สอบการทำค่าว่างผลรวม ใน Query ให้เป็น 0 ครับ
« เมื่อ: 02 มิ.ย. 64 , 09:49:23 »
ขอดูโค้ดที่วางในคิวรี่หน่อยคับ
ของคงเหลือนะครับ
หรือ copy code SQL มาดูเลยก็ได้คับ
โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

83
ห้อง MS Access / : ถ้าต้องการทำใบเสร็จหรือใบแจ้งหนี้จากบิลภาษีต้องทำไงคะ
« เมื่อ: 28 พ.ค. 64 , 08:06:22 »
ตรงส่วนของตั้งค่าหน้ากระดาษของรายงาน
สามารถกำหนด 2 column ได้ครับ แต่หัวเรื่องแบบนั้นจะมีอันเดียวครับ

โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown, I love movies

84
ห้อง MS Access / : รบกวนขอวิธีติ๊กถูกหรือหรือติ๊กรายการค่ะ
« เมื่อ: 25 พ.ค. 64 , 15:06:05 »
อ้างจาก: I love movies ที่ 25 พ.ค. 64 , 14:59:31


จากตัวอย่างที่ให้มานะคะ อยากได้แบบ ติ๊กถูกที่ช่องด่วนแล้ว  ในตารางช่อง status  อยากให้ขึ้นคำว่าด่วนอะค่ะ

ในคิวรี่หรอครับ
จากตัวอย่างถ้าคุณเปิดฟอร์มขึ้นมา ใส่เลขไอดี ที่ textbox สมมุติใส่ว่า 1 แล้วไปกดติ๊กที่ ช่อง checkbox
เมื่อคุณเปิดตารางมาดูใหม่จะมีคำว่าด่วนปรากฎทุกเรคคอร์ดที่มีไอดี = 1
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

85
ห้อง MS Access / : รบกวนขอวิธีติ๊กถูกหรือหรือติ๊กรายการค่ะ
« เมื่อ: 25 พ.ค. 64 , 12:57:50 »
สมมุติ field ด่วน ชื่อ status
โค๊ด: [Select]
รายการในฟอร์ม และ ในตาราง,คิวรี่ ที่เชื่อมกับฟอร์ม และ รายงานที่จะปริ้นซ์ออก ที่ท้ายรายการสั่งสินค้านั้นๆ จะมีคำว่าด่วนปรากฎขึ้นมาอะค่ะถ้าจะอัพเดทรายการต่างๆ เราน่าจะเช็คจาก ID ของตาราง

โดยในตัวอย่างมีฟอร์มที่ออกแบบ ต่างๆ ตามที่คุณทำอยู่ และมีปุ่ม check
และใส่เงื่อนไขว่าถ้าติ๊กก็ใช้ Update Query ไปยังตารางโดยเลือกอัพเดทจาก ID ที่ระบุบนฟอร์ม
ส่วนตัวอย่างดูด้านล่างครับ
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

86
ห้อง MS Access / : ในตารางคำนวณได้ใช่มั๊ยคะ
« เมื่อ: 25 พ.ค. 64 , 12:44:34 »
สามารถใช้ Calculate Field ได้ครับ
ในมุมมองออกแบบตาราง จะมี datatype นี้อยู่

หมายเหตุ
Office ต้อง version 2010 ขึ้นไป
และมีนามสกุลไฟล์ accdb ถึงจะมีให้เลือกครับ
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

87
ห้อง MS Access / : Random ข้อมูล
« เมื่อ: 25 พ.ค. 64 , 12:35:35 »
ลองดูนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung

88
ห้อง MS Access / : Random ข้อมูล
« เมื่อ: 24 พ.ค. 64 , 14:01:06 »
อ้างจาก: naekkhung ที่ 24 พ.ค. 64 , 11:54:30
ปุ่มก็ได้ครับ ขอถามเพิ่มครับแล้วถ้าเกิดผมมีเงื่้อนไขเพิ่ม กรณีผมมีฟิวส์ชื่อ monthly เก็บข้อมูลเดือน Jan-Dec และฟิวส์ sex เก็บเพศ ชาย หญิง ความต้องการคือให้กรองข้อมูลเฉพาะเดือน May เพศเลือก ชาย ให้เอาข้อมูล TCC มา Random เขียนแบบไหนครับ

ไม่ยากครับ สร้าง control ไว้ระบุ Criteria ที่ต้องการ เช่นมี คอมโบบ๊อกเลือกเพศ และ เดือน ไว้ระบุเงื่อนไขที่เราต้องการ
แล้วกำหนด recordset ทีหลัง

สร้างข้อมูลตัวอย่างมาครับ
เดี่ยวผมปรับโค๊ดให้
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung

89
ห้อง MS Access / : รบกวนขอวิธีติ๊กถูกหรือหรือติ๊กรายการค่ะ
« เมื่อ: 24 พ.ค. 64 , 13:57:50 »
อ้างจาก: I love movies ที่ 22 พ.ค. 64 , 16:49:26
อยากได้ติ๊กถูกหรือคลิกเลือกรายการ ในใบสั่งซื้อค่ะ ใน Detail เช่น ติ๊กคำว่าด่วน แล้วขึ้นในตารางเพื่อเรียกดูรวมทุกเจ้าแล้วเห็นค่ะ

ไม่เข้าใจโจทย์ครับ
ให้อธิบายเพิ่ม และมีรูปภาพด้วยยิ่งดีครับ
 :prettiness:
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

90
ห้อง MS Access / : Random ข้อมูล
« เมื่อ: 24 พ.ค. 64 , 09:54:46 »
ถ้าใช้การสร้างปุ่มแทนได้ไหมครับ
สมมุติมีตารางตารางชื่อ table1 เก็บข้อมูลตามในรูปของคุณ
ที่ปุ่มใส่โค๊ดนี้เข้าไปครับ


Private Sub Command1_Click()
Dim rstRandom As Recordset
Dim rstOut As Recordset
Set rstRandom = CurrentDb.OpenRecordset("SELECT Table1.TCC, Rnd(Val(Right([TCC],3))) AS ID FROM Table1 ORDER BY Rnd(Val(Right([TCC],3)));", dbOpenDynaset)
Set rstOut = CurrentDb.OpenRecordset("table1", dbOpenDynaset)

rstRandom.MoveFirst
rstOut.MoveFirst
Do Until rstRandom.EOF
rstOut.Edit
rstOut!TCCRANDOM = rstRandom!TCC
rstOut.Update
rstRandom.MoveNext
rstOut.MoveNext
Loop
End Sub

วิธีนี้ใช้ ฟังชั้น RND() เพื่อสุ่มข้อมูลที่ต้องการ แล้วนำไปวางสุ่มในฟิลล์ที่ต้องการครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa, naekkhung

หน้า: 1 2 3 4 [5] 6 7 8 ... 32