แสดงกระทู้

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

หน้า: 1 [2] 3
19
ลองบอกอาการ และส่งตัวอย่างมาดูก็ได้คับ
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

20
อาการ ข้อผิดพลาดเป็นยังไงครับ
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

21
ใช้ = sum(QtyChicken) แทนดูครับว่าได้ไหม

ตั้งค่า ในฟอร์มดูตรง คุณสมบัติครับ
กดที่ textbox ในมุมมองออกแบบ 
กดที่คุณสมบัติ ของ textbox นั้น
กำหนด ทศนิยม 2 ตำแหน่งได้เลย



กำหนด รูปแบบเป็น standard หรือ fixed หรือ normal number ตรงนี้เลือกเอาตามความชอบครับ
กำหนดตำแหน่งทศนิยมเป็น 2 ตำแหน่งได้เลย
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

22


ตัวอย่าง ลองดูครับติดตรงไหน สอบถามได้นะ
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

23
เปิดมุมมองออกแบบแล้วกำหนด Format ให้ฟิลด์นี้ที่ Property Sheet ทางขวา
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

24

สามารถทำได้ง่ายๆ ครับ โดยใช้ Function Replace สร้างในคิวรี่ก็ได้เช่น
1.สมมุติ ตารางชื่อ table1
มีฟิลล์ ID  เป็น Autonumber
  ฟิลล์ textletter เป็น text

2.สร้างคิวรี่ขึ้นมา ใส่โค้ดไปแบบนี้



letter: Replace(Replace([textletter],"กา","อีกา"),"เทวดา","เทพเทวดา")
จะทำให้ Field ที่ชื่อ textletter เพิ่มข้อความส่วนที่เหลือให้อัตโนมัติครับ

3.ตั้งชื่อคิวรี่ ในตัวอย่างผมตั้งชื่อว่า QryReport


4.สร้างรายงานขึ้นมา และกำหนด RowSource หรือ แหล่งข้อมูลแถว เป็นชื่อคิวรี่ที่เราสร้างขึ้น จากข้อ 3



แล้วลองเปิดรายงานดูครับ
ไฟล์ตัวอย่างด้านล่าง
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

25
ก็เปิด Subform ในมุมมองออกแบบ แล้วทำแบบเดียวกันครับ

ยกเว้นคุณทำ Subform เป็น Datasheet แบบนี้ยังไงก็หายครับ
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

26
ที่ Design View ให้เลือก Design>Title เดี๋ยวก็มาครับ
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

28
มันน่าจะใช้ google translate มาประยุกต์ใช้ได้นะครับ เดี่ยวลองหาวิธีก่อน เพราะถ้าให้มันบอกลำดับคิวคงไม่ยาก ใช้ไฟล์เสียงทำได้
แต่ถ้าเป็นชื่อคน คงต้องทำวิธีอื่น
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

29
ในคิวรี่ หรือบนฟอร์มครับการนำไปเรียกใช้ทำแบบไหน ถ้าใช้ Dmax วันที่ และ GroupBy รหัสสินค้าก็ได้เหมือนกันครับ
ลองดูตัวอย่างด้านล่างนะครับ เป็นการแสดงผลในคิวรี่ โดยเลือกข้อมูลวันที่ล่าสุด ของกลุ่มรหัส มาแสดง
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

30
กำหนดรูปแบบวันที่ของ text2 เพิ่มเข้าไปตามตัวอย่างครับ
โค๊ด: [Select]
=[text1] & Format([Text2]," d mmmm yyyy")
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

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

32
แก้เป็น
โค๊ด: [Select]
Me.PackPerPallet = DLookup("[PackQuantity]", "[Packing]", "Number='" & [SizeOfCarton] & "'")
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

33
ขอไฟล์มาดูดีกว่าครับ
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

34
ไม่แน่ใจว่าตรงตามที่ต้องการหรือไม่ ให้เพิ่ม Code ในอีเว้น On Change

Private Sub txtProduct_Change()
Me.txtProduct.Dropdown
End Sub

กด F2 แล้วเพิ่มข้อมูลต่อท้ายได้เลย
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

35
ผมลองแล้วมันไม่ได้น่ะครับ กดลูกศรขึ้นลงมันกลายเป็นขีดนิ่งๆเลยครับ ถ้าลูกศรซ้ายขวาก้อ เคอเซอร์เลื่อนขีดๆไปปาตามปกติ แต่ขึ้นลง ไม่มีผลอะไรเลยอ่ะครับ อยากให้มันเลื่อนรายชื่อในคอมโบบ๊อก เหมือนปุ่มกลางของเม้าส์อ่ะครับ

คุณน่าจะไปตั้งค่าอะไรพิเศษแล้วล่ะ ลองแปะไฟล์ไว้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

36
ใช้การป้อนข้อมูลจาก Combobox แล้ว แสดง ListBox มาเลือกรายการให้กับ Combobox มันจะสามารถใช้ Scroll Mouse ได้
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

หน้า: 1 [2] 3