แสดงกระทู้

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 - I love movies

หน้า: 1 [2] 3 4
19
วิธีแก้ให้สีไม่สลับกันคือตั้งค่า Alternate Back Color = No Color ตามรูปตัวอย่างครับ

ของท่านกดที่"ส่วนรายละเอียด"จะตั้งค่าได้ครับว่าสี1/สี2จะเอาสีไหนหรือไม่เอาสีอะไรเลยก็ได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

20
ก็ความกว้างมันมีได้อันเดียวนี่ครับ ก็ใส่ได้อันเดียว...ถูกต้องแล้ว
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

21
เวลาที่เราเปิดรายงานในมุมมองออกแบบ ถ้าเอกสารมีขนาดใหญ่กว่ากระดาษที่เราตั้งค่าไว้ จะมีมุมเขียวแสดงอยู่ที่มุมบนด้านซ้ายแบบนี้


วิธีการแก้ปัญหามีหลายแบบ เลือกตามความเหมาะสม
1. เปลี่ยนขนาดกระดาษเช่น A4 เป็น A3
2. ดึงขอบกระดาษด้านซ้ายให้หน้ากระดาษแคบลง
3. ปรับตำแหน่งของคอนโทรลต่างๆ ให้กระชับ แล้วค่อยปรับขนาดกระดาษในข้อ 2

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

22
ตรงส่วนของตั้งค่าหน้ากระดาษของรายงาน
สามารถกำหนด 2 column ได้ครับ แต่หัวเรื่องแบบนั้นจะมีอันเดียวครับ
:love: :love: :love:

MS Access 2007: Create a 2 column report
Microsoft Access 2016 Reports: Multiple Report Columns and Groups
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

23
ตรงส่วนของตั้งค่าหน้ากระดาษของรายงาน
สามารถกำหนด 2 column ได้ครับ แต่หัวเรื่องแบบนั้นจะมีอันเดียวครับ

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

24
แนวแบ่งอย่างนี้ผมก็ทำไม่เป็นนะครับ :dizzy:
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

25


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

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

26
สมมุติ field ด่วน ชื่อ status
โค๊ด: [Select]
รายการในฟอร์ม และ ในตาราง,คิวรี่ ที่เชื่อมกับฟอร์ม และ รายงานที่จะปริ้นซ์ออก ที่ท้ายรายการสั่งสินค้านั้นๆ จะมีคำว่าด่วนปรากฎขึ้นมาอะค่ะถ้าจะอัพเดทรายการต่างๆ เราน่าจะเช็คจาก ID ของตาราง

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

27
สามารถใช้ Calculate Field ได้ครับ
ในมุมมองออกแบบตาราง จะมี datatype นี้อยู่

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

28
อยากได้ติ๊กถูกหรือคลิกเลือกรายการ ในใบสั่งซื้อค่ะ ใน Detail เช่น ติ๊กคำว่าด่วน แล้วขึ้นในตารางเพื่อเรียกดูรวมทุกเจ้าแล้วเห็นค่ะ

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

29
-> กรองชื่อลูกค้าโดยวิธีลิ้งฟอร์มหลัก-ฟอร์มย่อย
-> กรองวันที่ออกบิลโดยใช้คำสั่ง Filter
โค๊ด: [Select]
Private Sub cmdDate_Click()
Me.fm_Invoice_sub2.Form.Filter = "[Saledate] BETWEEN #" & Format(Me.BeginDate, "dd mmm yyyy") & "# AND #" & Format(Me.EndDate, "dd mmm yyyy") & "#"
Me.fm_Invoice_sub2.Form.FilterOn = True
Me.fm_Invoice_sub2.Form.Refresh
Call Form_Current
End Sub

ไฟล์ตัวอย่างผมสร้างตาราง,ฟอร์มหลัก,รีพอร์ทชื่อ Invoice มาให้ใหม่ ส่วนฟอร์มย่อย Invoice_sub จะดึงข้อมูลบิลที่เคยออกไปจากตาราง Sale_H
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

30
ผลรวม อยู่ด้านล่าง ตำแหน่งเดิมทุกครั้ง ไม่ว่าจะมีกี่รายการก็ตาม
ใช้ Page Footer   แสดงผลในทุกหน้า-อยู่ด้านล่างของหน้ากระดาษเสมอ

อยากให้มีเส้น...
ไม่ต้องทำเส้นที่กล่องข้อความหรือวาดเส้นบนหน้าฟอร์มแต่ใช้เป็นเขียนโค้ดใน VBA
https://www.thai-access.com/index.php?topic=220.msg781#msg781
https://www.thai-access.com/index.php?topic=243.msg1060#msg1060
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

31
1.ความหมายของส่วนต่างๆ
Report Header    ส่วนบนสุดของข้อมูล
Report Footer   ส่วนล่างสุดของข้อมูล
Page Header   ส่วนบนของหน้ากระดาษ
Page Footer   ส่วนล่างของหน้ากระดาษ

2.การแสดงผมตามจริง
Report Header    บนสุดของข้อมูลแสดงครั้งเดียวโดยอยู่เหนือ Page Header หน้าแรก
Page Header   แสดงผลในทุกหน้า-อยู่ด้านบนของหน้ากระดาษเสมอ
   
Report Footer   แสดงครั้งเดียวโดยจะอยู่ส่วนท้ายของข้อมูลหมดตรงไหนแสดงต่อจากตรงนั้นเลย
   
Page Footer   แสดงผลในทุกหน้า-อยู่ด้านล่างของหน้ากระดาษเสมอ
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

32
โค้ดที่ใช้ตอนแรกเอามาจากที่สอนในยูทูป 2 ท่านค่ะ

โค้ดหลายตัวแล้วที่ใช้แล้วไม่ได้ (ทั้งโค้ดบาท,แปลงอักษร,โค้ดปุ่มพิมพ์ ฯลฯ) ต้องได้จากหลายท่านในนี้ เป็นเพราะอะไรคะ ที่เค้าใช้ได้ แต่เราใช้ไม่ได้  ขึ้นอยู่กับเวอร์ชั่น Access หรือว่าอะไรคะ

แล้วพอเมื่อไม่ได้ ก็ไปต่อไม่เป็นค่ะ ถ้าอยากเป็น ต้องเริ่มจากอะไรคะ (ถ้าโค้ดนั้นใช้ไม่ได้ ควรใช้โค้ดไหนยังไง ต้องเรียนรู้จากอะไรคะ )

โค้ดพวกนี้สิ่งที่เราต้องรู้ก่อนก็คือชนิดของข้อมูลครับ เช่น ต้องดูว่า SaleNo นั้นชนิดข้อมูลเป็นอะไร

1.ถ้าเป็นตัวเลข หรือตัวแปรที่เป็นตัวเลข
ถ้าเป็นตัวเลขท่านจะใช้แบบที่ทำอยู่ได้เลย
1.ใส่โค้ดที่ macro Builder คือ
="[rpt_Sale_H2]![SaleNo]=" & [Forms]![fmSale_H]![SaleNo]
หรือ
="[rpt_Sale_H2]![SaleNo]=" & [Forms]![fmSale_H]![SaleNo] & ""

2. ใส่โค้ดที่ code Builder  คือ
if Not isnull(me.SaleNo) Then
DoCmd.OpenReport"rpt_Sale_H2",acViewPreview,,"[SaleNo]=" & me.SaleNo
End if
หรือ
DoCmd.OpenReport"rpt_Sale_H2",acViewPreview,,"[SaleNo]= " & me.SaleNo & ""

2.ถ้าเป็นข้อความ(text)
ปัญหาของข้อความคือต้องมีเครื่องหมาย ' หรือ single quote เพื่อบอกให้โปรแกรมทราบว่าเราอ้างอิง คอนโทรลที่เป็นข้อความ ในกรณี SaleNo ของคุณเก็บข้อมูล 0001 นั้นเป็นข้อความ โค้ดที่ใช้เลยต้องมี single quote ปิดหัวท้ายด้วยเช่น
1.ใส่โค้ดที่ macro Builder คือ
="[rpt_Sale_H2]![SaleNo]= '" & [Forms]![fmSale_H]![SaleNo] & "'"
2. ใส่โค้ดที่ code Builder  คือ
if Not isnull(me.SaleNo) Then
DoCmd.OpenReport"rpt_Sale_H2",acViewPreview,,"[SaleNo]='" & me.SaleNo & "'"
End if
หรือ
DoCmd.OpenReport"rpt_Sale_H2",acViewPreview,,"[SaleNo]='" & [Forms]![fmSale_H]![SaleNo] & "'"
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

33
รายการขึ้นสีสลับแถว ไม่ต้องปรับอะไรใช่มั๊ยคะ เวลาปริ้นซ์ สีไม่ออกใช่ปะคะ

วิธีแก้ให้สีไม่สลับกันคือตั้งค่า Alternate Back Color = No Color ตามรูปตัวอย่างครับ



จากไฟล์"ฐานข้อมูล1"ที่แนบมาก็ดูงงๆช่วยจัดให้ดูเรียบร้อยและใส่ข้อมูลในตารางมาให้เยอะสมบูรณ์กว่านี้อีกได้ใหมครับเดี๋ยวช่วยทำให้(ชื่อใส่ กกกก,ขขขข,คคคค มาก็ได้ครับ)
รูปตย.ไฟล์ของผมจะกรองตามรหัส-ชื่อลูกค้าและบิลตั้งแต่วันไหนถึงวันไหน

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

34
ทำบิลภาษีเสร็จเรียบร้อยแล้วค่ะ

ถ้าต้องการพิมพ์ใบเสร็จหรือใบแจ้งหนี้ โดยอยากได้แบบ เลือกชื่อร้าน แล้วขึ้น เลขใบกำกับภาษี ไม่เอารายการค่ะ เช่น

เลือก ลูกค้า A เดือนที่แล้ว ออกบิลไปกี่ใบ ก็ขึ้นมาให้พิมพ์ใน 1 หน้ากระดาษ ว่า ลูกค้า A มีบิล เลขที่ xxxxx วันที่ xxxxxxx ยอดเงินรวม xxxxxx

ถ้าอยากได้แบบนี้ คือทำคิวรี่ใช่มั๊ยคะ แล้วต้องจับมาทำยังไง ทำแล้วได้เป็น เลขที่บิล 0001 ขึ้นมา 5 (เพราะบิล 0001 มี 5 รายการ)
ออกแบบฟอร์มไว้เลือกชื่อร้าน และใบกำกับภาษี ส่วนการนำไปออกรายงานเดี่ยวทำให้
ให้แนบไฟล์ตัวอย่างไว้นะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

35
ขอบพระคุณอย่างสุดซึ้งค่ะ ได้ผลแล้วค่ะ ขอบคุณอย่างยิ่งค่ะ

รบกวนถามเพิ่มค่ะ

เราสามารถทำแบบใส่โค้ดที่ macro หรือ code Builder เลือกอย่างใดก็ได้ใช่มั๊ยคะ

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

36
ถ้า textbox รหัสบิลเป็น 0002 คือตัวอักษรครับโค้ดจึงควรจะเป็น
โค๊ด: [Select]
DoCmd.OpenReport "rpt_Sale_H2",acViewPreview,,"[SaleNo]= '" & me.SaleNo & "'"
หรือใช้แบบนี้
DoCmd.OpenReport "rpt_Sale_H2", acViewPreview, , "[SaleNo] ='" & Forms![ชื่อฟอร์ม]!SaleNo & "'"
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

หน้า: 1 [2] 3 4