1
กระดานข่าว / : เริ่มเทศกาลขายสินค้า หาเงินช่วยเว็บ
« เมื่อ: 12 ธ.ค. 62 , 08:32:39 »
โอนเงินให้แล้วนะครับ 200 บาทครับ ไม่ซื้อหนังสือครับ
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.
ใส่โค้ดว่าได้แล้วครับ ขอบคุณมากครับ
DoEvents
แล้วลองเปลี่ยนโค้ด เซฟดูครับว่าได้ไหม
DoEvents
DoCmd.save acForm, "Merchandiser Key Update"
ที่ Event: On mouse up ให้ใส่ Code นี้เข้าไปครับตามที่อาจารย์แนะนำ ผมลองทำดูแล้วก็ทำงานตามที่อาจารย์บอกครับ แต่ก็ยังไม่ได้ตรงตามจุดประสงค์ของผม แต่ไม่เป็นไรครับผมคงไม่ไป protectหรือ hide อะไรมากมายแล้วครับ
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.ชื่อฟิลด์ที่ต้องการซ่อน.ColumnHidden = False Then
Me.ชื่อฟิลด์ที่ต้อกงารซ่อน.ColumnHidden = True
End If
End Sub
Unhide ได้แป๊บเดียว(ประมาณ 1-2 วินาที) ก็จะกลับไปซ่อนใหม่ทันที
ถ้ามีหลายฟิลด์ก็เหนื่อยหน่อยนะ
อ้อ! ใช้ได้เฉพาะ Datasheet View เท่านั้นนะครับ
ลองนำวิธีนีไปใช้กับอีกform ซึ่งในformก็ประกอบด้วย Main form ชื่อ POH กับ Sub form ชื่อ POD Subform พบปัญหาหลังจากกดเลือกรายการสินค้าในform PO Description จะขึ้น error ตามรูปครับแนะนำนะครับ ผมใช้วิธีนี้อยู่ครับเป็นอีกหนึ่งวิธีที่ OK เลยครับ ผมลองใช้ได้เลย ขอบคุณนะครับ
-สร้างปุ่มสำหรับเลือกรายการในฟอร์มเพิ่มข้อมูลSupplierสมมุติชื่อ Command0
-ใส่Code ตรงOn Click ดังนี้
Private Sub Command0_Click()
Forms("ชื่อฟอร์มใบสั่งซื้อ").ชื่อText Box(ของฟอร์มใบสั่งซื้อ) = Me.ชื่อText Box(ของฟอร์มเพิ่มข้อมูลSupplier)
DoCmd.Close
End Sub
จะเป็นการเลือกชื่อSupplier โดยอัตโนมัติครับ