แสดงกระทู้

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