แสดงกระทู้

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] 5 6 7 ... 18
55
ห้อง MS Access / : export to excel
« เมื่อ: 22 มิ.ย. 64 , 11:36:53 »
เปิดทั้งหมดตามภาพท่าน PNR ดูครับ
ตรง Tool >> Reference
เพิ่มตัว MS OFFICE XX Object libary ด้วยครับ ตามภาพ


56
>มันคือการคัดลอกฟิวล์ผลลัพท์ไปใส่ฟิวล์เลขที่สด1ที่อยู่ในคิวรี่เดียวกันใช่หรือไม่ครับ :question:
ถ้าอย่างนั้นเขียนคำสั่งในคิวรี่ให้คัดลอกเองเลยก็ได้ครับ(อันนี้รออาจารย์ท่านอื่นนะ)

หรือตอนที่คำนวนผลลัพท์ก็เชื่อมตารางเลขที่สด1มาแล้วสั่งให้นำค่าไปใส่ด้วยเช่น  Me![เลขที่สด1].Value = Me![ผลลัพท์].Value

ปล.แนบไฟล์ของท่านมาให้ดูแนวทางของคำถามเพื่อหาคำตอบได้ไหมครับ :wut:

57
> ลองจัดชุดคำสั่งเป็นแบบนี้ครับ
DoCmd.SetWarnings False
Dim SQL As String
        SQL = "UPDATE select SET select.เลขที่สด1 =Text188.value"
        DoCmd.RunSQL SQL
        Me.Refresh 'หรือ Me.Recalc
DoCmd.SetWarnings True

> หรืออัพเดทที่ตาราง tb_recuit โดยใช้ WHERE เพื่อกรองข้อมูลที่ต้องการ
.....
        CurrentDb.Execute = "UPDATE tb_recuit SET เลขที่สด1 = "& me.Text188 &" WHERE ฟิวส์ = '" & มีค่าเท่ากับ & "'", dbFailOnError
        Me.Recalc
.....

58
ห้อง MS Access / : web app ใน msaccess2013
« เมื่อ: 06 มิ.ย. 64 , 11:30:51 »
ผมก็ไม่ทราบวิธีจึงไปค้นหาพบประกาศจากทางผู้พัฒนาขอนำมาบอกต่อครับ

อ้างถึง
สำคัญ    กำลังลบ Access Services 2010 และ Access Services 2013 ออกจาก SharePoint รุ่นถัดไป เราขอแนะนำให้คุณอย่าสร้างเว็บแอปใหม่ และโยกย้ายแอปที่มีอยู่ของคุณไปยังแพลตฟอร์มอื่น เช่น Microsoft Power Apps

ที่มา https://1th.me/58buV

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

MS Access 2007: Create a 2 column report
Microsoft Access 2016 Reports: Multiple Report Columns and Groups

60
แนวแบ่งอย่างนี้ผมก็ทำไม่เป็นนะครับ :dizzy:

61
-> กรองชื่อลูกค้าโดยวิธีลิ้งฟอร์มหลัก-ฟอร์มย่อย
-> กรองวันที่ออกบิลโดยใช้คำสั่ง 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

62
ผลรวม อยู่ด้านล่าง ตำแหน่งเดิมทุกครั้ง ไม่ว่าจะมีกี่รายการก็ตาม
ใช้ 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

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

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

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

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



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


65
ลองดูกระทู้หล่าวนี้ยังครับ
https://www.thai-access.com/yeadram_view.php?topic_id=5599

https://www.thai-access.com/yeadram_view.php?topic_id=4879

https://www.thai-access.com/index.php?topic=836.0

https://www.thai-access.com/yeadram_view.php?topic_id=5163
ผมก็ไปค้นหาดูแล้วจะมาตอบคล้ายแบบท่านเลยนะนี่ :shout:

ตามที่ไล่อ่านผมขอคิดว่าการที่จะทำให้รองรับ Access ทั้ง 32,64 bit ได้นั้นเราต้องไปไล่เพิ่มคำสั่งตรวจสอบ,บางที่อาจต้องแยกชุดคำสั่ง32ใช้อันนี้-64ใช้อันนี้,นำไปทดลองใช้งานคำสั่งต่างๆทั้งบนเครื่องที่เป็น32และ64แล้วใช้งานได้สมบูรณ์เท่าเทียมกัน แต่มันจะง่ายกว่าไหมถ้าจะใช้ Access ระบบเดียวกันทั้งหมดนะครับ

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

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

67
ผมก็ไม่ค่อยรู้เรื่องนี้เท่าไหร่ลองเปลี่ยนแนวทางเป็นสั่ง 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"


68
สังเกตุเห็นว่าท่านใช้ชื่อตัวแปล 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

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

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

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

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

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


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

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

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

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

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

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