แสดงกระทู้

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

หน้า: [1] 2 3 4 ... 17
1
สังเกตุเห็นว่าใน2ตารางบางฟิวล์ใช้ชื่อต่างกัน(Voucher_s.date_sale -> voucher_date , .....)เลยต้องมีการอ้างที่มาบอกที่ไปแบบระบุเป็นฟิวล์ๆไป

แต่ถ้าชื่อฟิวล์เหมือนกันหมดอาจใช้คำสั่งแนวนี้ได้ครับ
dbs.Execute "INSERT INTO voucher SELECT * FROM Voucher_s;"

2
ผมก็ไม่ค่อยรู้เรื่องนี้เท่าไหร่ลองเปลี่ยนแนวทางเป็นสั่ง FileCopy แทนครับ

.....
   Filename = DLookup("voucher_s_id", "printbill") & " m"
    FilePath = "d:\bills-suzu\INV\" & Filename & ".pdf"
    DoCmd.OpenReport "ใบกำกับ 7_1", acViewPreview, Filename
    DoCmd.OutputTo acOutputReport, "ใบกำกับ 7_1", acFormatPDF, FilePath
    FileCopy "d:\bills-suzu\INV\" & Filename & ".pdf", "Z:\bills64\suzu64\IV\" & Filename & ".pdf"


3
สังเกตุเห็นว่าท่านใช้ชื่อตัวแปล FilePath เดียวกันมันก็ถูกแทนที่นะครับลองแก้แล้วทดสอบดูครับ

    FilePath1 = "Z:\bills64\suzu64\IV\" & Filename & ".pdf"
    FilePath2 = "d:\bills-suzu\INV\" & Filename & ".pdf"
    DoCmd.OpenReport "ใบกำกับ 7_1", acViewPreview, Filename
    DoCmd.OutputTo acOutputReport, "ใบกำกับ 7_1", acFormatPDF, FilePath1
    DoCmd.OutputTo acOutputReport, "ใบกำกับ 7_1", acFormatPDF, FilePath2

หรือไม่ก็แบบนี้
    FilePath = "Z:\bills64\suzu64\IV\" & Filename & ".pdf"
    DoCmd.OutputTo acOutputReport, "ใบกำกับ 7_1", acFormatPDF, FilePath
    FilePath = "d:\bills-suzu\INV\" & Filename & ".pdf"
    DoCmd.OpenReport "ใบกำกับ 7_1", acViewPreview, Filename
    DoCmd.OutputTo acOutputReport, "ใบกำกับ 7_1", acFormatPDF, FilePath

4
แบบโหดร้ายแต่ได้ชัวคือลบข้อมูลในตารางทั้งหมดจากนั้นไปสั่ง compact and repair database วิธีอยู่ต้นคลิปอาจารย์เลยครับ https://youtu.be/ajoDSu7_kqk link

แบบรักษาข้อมูลฟิวล์อื่น(อันนี้ไปลองทำดูว่าจะได้ใหมนะครับ) :question:
>ลบฟิวล์ ID ที่เป็น Auto number ออก->ปิดตาราง
>compact and repair database
>กลับมาแทรกฟิวล์ที่เป็น Auto number ใหม่แล้วกลับไปดูว่าเริ่มนับ 1 หรือเปล่านะ

5
ที่ขึ้น error ไม่เกี่ยวกับที่ช่อง ทุนรวม มีการใช้คูณแล้วใช่รึเปล่าคะ
ใช่ครับ ที่ error ไม่เกี่ยวกับที่ช่อง"ทุนรวม"มีการใช้บวก,ลบ,คูณ,หาร แต่เกี่ยวกับการที่จะ SUM แบบนี้ได้ค่านั้นจะต้องมีการบันทึกอยู่ในที่ใดที่หนึ่งก่อนไม่ใช่ที่คำนวนแล้วมาแสดงผลแบบลอยๆไม่ได้บันทึกผลใว้ที่ไหนนะ

วิธีที่2.จึงไปคำนวนในคิวรี่เมื่อฟอร์มดึงตารางคิวรี่มาก็จะเห็นว่ามี"ทุนรวม"เก็บค่าอยู่ในตารางที่นี้เราก็ SUM([ทุนรวม]) ได้ตามนั้นครับ

วิธีที่3.ใช้ dsum ตามไปดูคลิปอาจารย์ Access-Creator link นาทีที่16:00เลยครับ


6
วิธีที่1.ทำให้ทุนรวมเก็บค่าอยู่ในตารางถึงจะ Sum ได้(ผมใช้วิธีีนี้อยู่แต่มันยุ้งยากไปพึ่งจะเจอวิธีที่2นี่ล่ะ)

วิธีที่2.นำตารางที่ใช้ไปทำคิวรี่แล้วเพิ่มฟิวล์ ทุนรวม: [จำนวน]*[ทุน] ที่ฟอร์มก็เปลี่ยนจากที่ดึงข้อมูลจากตารางมาเป็นคิวรี่,กล่องทุนรวม([text34])ก็ดึงผลมาจากคิวรี่ได้เลย,=SUM([ทุนรวม])

ตย.คิวรี่
  จำนวน    ทุน   ทุนรวม: [จำนวน]*[ทุน]

ตย.ฟอร์ม
          =SUM([ทุนรวม]) 1000
  จำนวน    ทุน   ทุนรวม
  10  100   1000
  0  200   0

7
เปลี่ยนฟอร์นหรือปรับขนาดตัวอักษรที่เมนูด้านบนได้เลยครับ

8
หลังอัพเดทข้อมูลฟิวล์ Barcode(กล่องท่านชื่อ Text6) สั่งให้นำ6ตัวท้ายมาใส่กล่อง,ฟิวล์ IDProduct
โค๊ด: [Select]
Private Sub Text6_AfterUpdate()
    Me.IDProduct = Right(Me.Text6, 6)
End Sub

หรือเมื่อใส่ IDProduct แล้วให้ Barcode = A$+IDProduct
โค๊ด: [Select]
Private Sub IDProduct_AfterUpdate()
    Me.Text6 = "A$" & Me.IDProduct
End Sub

9
วิธีที่สอง.ทำให้ VBA รอบรับภาษาไทยไปที่เมนู Tools -> Options -> Editor Format แก้ฟอร์นในรายการต่างๆให้เป็นฟอร์นที่รองรับภาษาไทยแล้วก็รองพิมพ์ข้อความอะไรลงไปดูครับ
ปล.ถ้าพิมพ์ภาษาไทยลงไปเองไม่มีปัญหา เวลาก๊อปมาวางก็ไล่ดูแล้วพิมพ์แก้เองเลยครับ :yuush:

10
2013 ผมหา Compile / DeCompile ไม่เจอครับ
compact and repair ทำแล้วแต่ก็ยังไม่ได้


โหลดไฟล์ Database39.mdb ของท่านมาใช้ได้ :sweat:

11
ไม่ว่าจะใช้แบบไหนผมก็รันไม่ได้เกิดจากอะไรครับนี่



12
ถ้าอยากใช้ DAO ก็เพิ่ม reference ตัวนี้เข้าไป


เครื่องผมเพิ่มไม่ได้ขึ้น Name conflicts with existing module, project, or object library แก้ยังไงครับ :question:

13
ในตารางแก้ฟิวล์ BCode ให้ Indexed = Yes (No Duplicates) หรือ ใช่ (ไม่มีรายการซ้ำ)

ไฟล์ที่แก้ใหม่ครับ

14
อ้างถึง
สร้างใบกำกับภาษีอย่างง่าย
สร้างตารางรายชื่อลูกค้า,รายการสินค้า,รายการบิล-ใบกำกับภาษี
สร้างหน้าฟอร์มเพื่อออกใบกำกับภาษี
สร้างรีพอร์ทเพื่อพิมพ์ออกมา

อ้างถึง
ไม่ต้องมีคิวรี่ก็ได้ใช่มั๊ยคะ
ไม่มีคิวรีนอกแต่มาทำคิวรี่ในตัวหน้าฟอร์มหรือรีพอร์ทได้ครับ

กำลังศึกษา โดยเริ่มจาก 0 ตอนนี้พอเข้าบ้างเล็กน้อย
ศึกษาแนวทางจากอาจารย์ Access-Creator ดูครับ https://youtube.com/playlist?list=PLwzcDwbNPuZdgYg19uxwlMcPan10_-AEo link
(รายการคลิปสอนผมจัดชุดขึ้นมาเองนะครับ อาจารย์มีคลิปอื่นให้ศึกษาทำความเข้าใจอีกเยอะครับ)

15
ลองใส่โค้ดดูแล้วครับ โค้ดไม่ทำงานครับ
ลองแก้ rst!Status เป็น rst!studstatus ครับ

16
ศึกษาแนวทางทำ"ยกยอด"จากอาจารย์ได้เลยครับ


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