แสดงกระทู้

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 ... 10
37
ห้อง MS Access / : ใครมีตัวอย่างโปรแกรมตัดสต๊อคสินค้าหรือขายหน้าร้านไหมครับ
« เมื่อ: 05 ก.ค. 64 , 18:03:42 »
แจกโปรแกรมเก็บข้อมูลการเบิกจ่ายสต็อก Version 9 (ทั้งรุ่นปกติและบาร์โค้ด)
สนใจส่งข้อความหา อ.OddyWriter ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

38
ห้อง MS Access / : export to excel
« เมื่อ: 22 มิ.ย. 64 , 11:36:53 »
เปิดทั้งหมดตามภาพท่าน PNR ดูครับ
อ้างจาก: PNR ที่ 23 เม.ย. 64 , 14:32:26
ตรง Tool >> Reference
เพิ่มตัว MS OFFICE XX Object libary ด้วยครับ ตามภาพ

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

39
ห้อง MS Access / : ขอคำสั่ง UPDATE หลายแถวพร้อมกัน
« เมื่อ: 20 มิ.ย. 64 , 12:01:42 »
>มันคือการคัดลอกฟิวล์ผลลัพท์ไปใส่ฟิวล์เลขที่สด1ที่อยู่ในคิวรี่เดียวกันใช่หรือไม่ครับ :question:
ถ้าอย่างนั้นเขียนคำสั่งในคิวรี่ให้คัดลอกเองเลยก็ได้ครับ(อันนี้รออาจารย์ท่านอื่นนะ)

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

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

40
ห้อง MS Access / : ขอคำสั่ง UPDATE หลายแถวพร้อมกัน
« เมื่อ: 18 มิ.ย. 64 , 11:30:06 »
> ลองจัดชุดคำสั่งเป็นแบบนี้ครับ
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
.....
โพสต์นี้ได้รับคำขอบคุณจาก: jiraphan2763, Somsak472

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

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

ที่มา https://1th.me/58buV
โพสต์นี้ได้รับคำขอบคุณจาก: Tatchawin

42
ห้อง MS Access / : ถ้าต้องการทำใบเสร็จหรือใบแจ้งหนี้จากบิลภาษีต้องทำไงคะ
« เมื่อ: 28 พ.ค. 64 , 17:05:39 »
อ้างจาก: PNR ที่ 28 พ.ค. 64 , 08:06: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

43
ห้อง MS Access / : ถ้าต้องการทำใบเสร็จหรือใบแจ้งหนี้จากบิลภาษีต้องทำไงคะ
« เมื่อ: 27 พ.ค. 64 , 13:27:30 »
แนวแบ่งอย่างนี้ผมก็ทำไม่เป็นนะครับ :dizzy:
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

44
ห้อง MS Access / : ถ้าต้องการทำใบเสร็จหรือใบแจ้งหนี้จากบิลภาษีต้องทำไงคะ
« เมื่อ: 21 พ.ค. 64 , 14:23:36 »
-> กรองชื่อลูกค้าโดยวิธีลิ้งฟอร์มหลัก-ฟอร์มย่อย
-> กรองวันที่ออกบิลโดยใช้คำสั่ง 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
โพสต์นี้ได้รับคำขอบคุณจาก: PNR, I love movies

45
ห้อง MS Access / : ขอรายละเอียดการตั้งค่าหน้ารายงานค่ะ
« เมื่อ: 20 พ.ค. 64 , 16:09:14 »
อ้างจาก: I love movies ที่ 20 พ.ค. 64 , 15:22:51
ผลรวม อยู่ด้านล่าง ตำแหน่งเดิมทุกครั้ง ไม่ว่าจะมีกี่รายการก็ตาม
ใช้ Page Footer   แสดงผลในทุกหน้า-อยู่ด้านล่างของหน้ากระดาษเสมอ

อ้างจาก: I love movies ที่ 20 พ.ค. 64 , 15:22:51
อยากให้มีเส้น...
ไม่ต้องทำเส้นที่กล่องข้อความหรือวาดเส้นบนหน้าฟอร์มแต่ใช้เป็นเขียนโค้ดใน 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

46
ห้อง MS Access / : ขอรายละเอียดการตั้งค่าหน้ารายงานค่ะ
« เมื่อ: 20 พ.ค. 64 , 14:18:17 »
1.ความหมายของส่วนต่างๆ
Report Header    ส่วนบนสุดของข้อมูล
Report Footer   ส่วนล่างสุดของข้อมูล
Page Header   ส่วนบนของหน้ากระดาษ
Page Footer   ส่วนล่างของหน้ากระดาษ

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

47
ห้อง MS Access / : ถ้าต้องการทำใบเสร็จหรือใบแจ้งหนี้จากบิลภาษีต้องทำไงคะ
« เมื่อ: 19 พ.ค. 64 , 17:48:11 »
อ้างจาก: I love movies ที่ 19 พ.ค. 64 , 17:46:11
รายการขึ้นสีสลับแถว ไม่ต้องปรับอะไรใช่มั๊ยคะ เวลาปริ้นซ์ สีไม่ออกใช่ปะคะ

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


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

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

48
ห้อง MS Access / : สอบถามครับถ้าจะทำไห้โปรแกรม Access เปิดใช้งาน MS 64 bit ได้ต้องทำยังไง
« เมื่อ: 19 พ.ค. 64 , 12:38:58 »
อ้างจาก: PNR ที่ 19 พ.ค. 64 , 11:06:19
ลองดูกระทู้หล่าวนี้ยังครับ
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 ระบบเดียวกันทั้งหมดนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: raweerot

49
ห้อง Ms Access อื่นๆ / : เพิ่มเลขลำดับที่ลงไปทีหลัง เลขไม่เริ่ม 1 ต้องทำไงคะ
« เมื่อ: 30 เม.ย. 64 , 22:31:40 »
แบบโหดร้ายแต่ได้ชัวคือลบข้อมูลในตารางทั้งหมดจากนั้นไปสั่ง compact and repair database วิธีอยู่ต้นคลิปอาจารย์เลยครับ https://youtu.be/ajoDSu7_kqk

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

50
ห้อง Ms Access อื่นๆ / : ผลรวมทำไมขึ้น error คะ
« เมื่อ: 30 เม.ย. 64 , 18:31:54 »
อ้างจาก: I love movies ที่ 30 เม.ย. 64 , 15:37:20
ที่ขึ้น error ไม่เกี่ยวกับที่ช่อง ทุนรวม มีการใช้คูณแล้วใช่รึเปล่าคะ
ใช่ครับ ที่ error ไม่เกี่ยวกับที่ช่อง"ทุนรวม"มีการใช้บวก,ลบ,คูณ,หาร แต่เกี่ยวกับการที่จะ SUM แบบนี้ได้ค่านั้นจะต้องมีการบันทึกอยู่ในที่ใดที่หนึ่งก่อนไม่ใช่ที่คำนวนแล้วมาแสดงผลแบบลอยๆไม่ได้บันทึกผลใว้ที่ไหนนะ

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

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

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

51
ห้อง Ms Access อื่นๆ / : ผลรวมทำไมขึ้น error คะ
« เมื่อ: 29 เม.ย. 64 , 19:52:20 »
วิธีที่1.ทำให้ทุนรวมเก็บค่าอยู่ในตารางถึงจะ Sum ได้(ผมใช้วิธีีนี้อยู่แต่มันยุ้งยากไปพึ่งจะเจอวิธีที่2นี่ล่ะ)

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

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

ตย.ฟอร์ม
          =SUM([ทุนรวม]) 1000
  จำนวน    ทุน   ทุนรวม
  10  100   1000
  0  200   0
โพสต์นี้ได้รับคำขอบคุณจาก: PNR, I love movies

52
ห้อง MS Access / : อยากจะปรับขนาดตัวอักษรใน Subform ที่เป็น DataSheet ยังไงครับ???
« เมื่อ: 29 เม.ย. 64 , 11:16:48 »
เปลี่ยนฟอร์นหรือปรับขนาดตัวอักษรที่เมนูด้านบนได้เลยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

53
ห้อง MS Access / : อยากให้ตารางเก็บข้อมูลโดยมีเงื่อนไข
« เมื่อ: 27 เม.ย. 64 , 18:59:13 »
หลังอัพเดทข้อมูลฟิวล์ 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
โพสต์นี้ได้รับคำขอบคุณจาก: pirin, nawahovvp

54
ห้อง Ms Access อื่นๆ / : กำลังแปลงตัวเลขเป็นตัวอักษรค่ะ แต่ติดที่โค้ดค่ะ
« เมื่อ: 24 เม.ย. 64 , 20:14:44 »
วิธีที่สอง.ทำให้ VBA รอบรับภาษาไทยไปที่เมนู Tools -> Options -> Editor Format แก้ฟอร์นในรายการต่างๆให้เป็นฟอร์นที่รองรับภาษาไทยแล้วก็รองพิมพ์ข้อความอะไรลงไปดูครับ
ปล.ถ้าพิมพ์ภาษาไทยลงไปเองไม่มีปัญหา เวลาก๊อปมาวางก็ไล่ดูแล้วพิมพ์แก้เองเลยครับ :yuush:
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

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