แสดงกระทู้

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

หน้า: 1 2 [3]
33
ห้อง MS Access / : ฐานข้อมูล
« เมื่อ: 31 พ.ค. 61 , 16:21:25 »
เคยเจอในเว็บบอร์ดนี้ จำไม่ได้ว่าเป็นของใคร เลยดาวน์โหลดเก็บมาศึกษาครับ
https://drive.google.com/open?id=0BwzAwbv8tImLWXdKUS1hOFVSbU0 link

34
ขอบคุณอ.สันติสุขนะครับ
แต่ดูเหมือนว่าผมใช้ฟิวอื่นสร้างความสัมพันธ์ไม่ได้ครับ มันจะไม่เป็นหนึ่ง-ต่อ-กลุ่ม ผมจะต้องยกเลิกCompact ฐานข้อมูลอัตโนมัติตอนปิดได้ไหมครับ แล้วใช้ฟิลด์ประเภท Autonumber เชื่อมความสัมพันธ์เหมือนเดิม (รู้แล้วว่าทำไมโปรแกรมขายสินค้าที่ผมเขียนก่อนหน้านี้และใช้อยู่ บิลแรกสุดตอนรับสินค้าข้อมูลหายหมดยกบิลเลย หายหลังจากที่ผมทำCompact ฐานข้อมูลด้วยครับ)

35
เผื่อใครต้องการเรียนรู้การตัดสต๊อคสินค้านะครับลองศึกษาดูได้ครับ เป็นAccessเวอร์ชั่น2003และ2016ครับ
-ระบบแยกฐานข้อมูลออกจากฟอร์มและรายงาน
-ตัดบานหน้าต่างนำทางและแถบเมนูออก
-ใช้ระบบส่งข้อมูลยอดขายแยกไว้ในตารางใหม่เพื่อไม่ให้ออกรายงานผิดหากมีการเปลี่ยนแปลงเรื่องราคา
-ระบบตัดสต๊อคทันทีที่ขายโดยไม่ต้องส่งข้อมูลก่อน
-รายงานสต๊อคคงเหลือทันที
-รายงานจุดสั่งซื้อสินค้า

ออกแบบและเขียนแบบง่ายๆเพื่อให้เกิดความเข้าใจสำหรับมือใหม่
หากเกิดข้อผิดพลาดหรือวิธีการไหนที่ดีกว่านี้และง่ายกว่านี้ผมต้องขออภัยด้วยนะครับ เพราะไม่ใช่มืออาชีพสักเท่าไหร่ครับ











36
ห้อง MS Access / > Update field in table
« เมื่อ: 30 เม.ย. 61 , 17:53:15 »
DoCmd.SetWarnings (0)
...คำสั่งที่ใช้
DoCmd.SetWarnings (1)

37
ถ้าจำนวนขาย มีถึง 100 เราต้องกดบวก 100 ครั้งหรือป่าวครับ
ถ้าจำนวนมีมากๆสามารถแก้ไขจำนวนได้เองครับ

38
ดับเบิ้ลคลิกขึ้นมาแล้วแก้ไขรายการ ผมใช้วิธีนี้อยู่ ลองนำไปปรับใช้ดูนะครับ
Private Sub ชื่อText Box_DblClick
Dim stLinkCriteria As String
stLinkCriteria = "[ชื่อText Box1]=" & "'" & Me![ชื่อText Box2] & "'"
DoCmd.OpenForm "ชื่อฟอร์มที่จะให้เปิดขึ้นมา", , , stLinkCriteria
End Sub

หรือสร้างปุ่มขึ้นมา1ปุ่ม
1เลือก Action เป็นOpen Form
2เลือกชื่อฟอร์มที่จะเปิดขึ้นมา
3เลือก เปิดฟอร์มพร้อมกับค้นหาข้อมูลที่แสดง(Open the form and find specific data to display)
4เลือก Text Box ด้านซ้าย และเลือก Text Box ด้านขวา
5คลิกปุ่มสัญลักษณ์ <-> ที่อยู่ตรงกลางระหว่าง2ช่องตามข้อ4

6คลิกNext 2ครั้งแล้ว คลิก Finish

39
ขอบคุณมากๆครับ
ผมได้แก้จาก0เป็น1ด้วยครับ เพราะจำนวนต้องไม่น้อยกว่า1ครับ
If Me.Text22 = 1 Then
Me.Text22 = Me.Text22
Else
Me.Text22 = Me.Text22 - 1
End If

40
ขอบคุณมากๆครับ เส้นผมบังภูเขาจริงๆ คิดให้ไกลเกินไปครับ

41
ผมต้องการสร้างปุ่มขึ้นมา2ปุ่มเป็นการเพิ่มจำนวนและลดจำนวนอย่างละ1ปุ่ม แต่ไม่ทราบว่าต้องใช้โค้ดอย่างไร
ผมลองใช้โค้ด Me.Text22=Qty+1 และMe.Text22=Qty-1 มันเป็นการใส่ค่า1และค่า-1ในช่องจำนวน ไม่ทราบว่าผมต้องเขียนโค้ดอย่างไรดีครับ


42
ขอบคุณครับ

43
ขอบคุณอ.pizza_pมากๆนะครับ ผมได้ความรู้ใหม่อีกข้อแล้วครับ
แต่ว่าผมใช้ภาษาไทยเกือบ100%เลยครับ ไม่ว่าจะเป็นฟอร์ม รายงาน คิวรี่ และตาราง ตอนนี้แปลงเป็น MDEแล้ว ไม่ทราบว่าหากใช้นานๆไปจะมีปัญหาไหมครับ และหากต้องเปลี่ยนชื่อเป็นภาษาอังกฤษจะยุ่งยากไหมครับ

44
ต้องมีทั้งชื่อฟอร์มหลักและชื่อฟอร์มย่อยตามอ.pizza_p บอกครับ
หรือตามตัวอย่างของผมลองปรับใช้ดูครับ
Forms("รับสินค้าเข้าคลัง").ฟอร์มย่อยรับสินค้า.Form.Item = Me.Item
DoCmd.Close

ขยายความ
รับสินค้าเข้าคลัง=ชื่่อฟอร์มหลัก
ฟอร์มย่อยรับสินค้า=ชื่อฟอร์มย่อย
Itemตัวที่1=ชื่อText Box ในฟอร์มย่อย
Itemตัวที่2=ชื่อText Boxในฟอร์มที่ต้องการเลือกข้อมูล
ลองดูนะครับ

45
แนะนำนะครับ ผมใช้วิธีนี้อยู่ครับ
-สร้างปุ่มสำหรับเลือกรายการในฟอร์มเพิ่มข้อมูลSupplierสมมุติชื่อ Command0
-ใส่Code ตรงOn Click ดังนี้
Private Sub Command0_Click()
Forms("ชื่อฟอร์มใบสั่งซื้อ").ชื่อText Box(ของฟอร์มใบสั่งซื้อ) = Me.ชื่อText Box(ของฟอร์มเพิ่มข้อมูลSupplier)
DoCmd.Close
End Sub

จะเป็นการเลือกชื่อSupplier โดยอัตโนมัติครับ

หน้า: 1 2 [3]