ผมทำฟอร์มไว้ 2 ฟอร์ม
ชื่อฟอร์ม frmLGSearch (รูปที่ 1)

ชื่อฟอร์ม frmLGDocDep (รูปที่ 2)


เมื่อผมกรอกข้อมูลใน frmLGSearch แล้วกดปุ่ม Search จะแสดงรายการ แล้วเมื่อผมกดปุ่ม Detail ก็จะเปิดฟอร์ม frmLGDocDep
โดยปุ่ม Detail ผมสร้างปุ่ม ใช้ Command Button Wizard ซึ่งใช้ Open the form and find specific data to display

หลังจากกดปุ่ม Detail จะปรากฎฟอร์ม frmLGDocDep ปัญหาคือ ในฟอร์มนี้ เมื่อผมขึ้นเรคคอร์ดใหม่ แล้วฟิลด์ Address มันเป็นว่างๆอ่ะครับ
อยากรู้ว่าจะทำอย่างไรให้ Copy Address จากบรรทัดบน มาโชว์ในบรรทัดถัดมา ขอบคุณมากครับผม

รบกวนขอตัวอย่างฟอร์มกำหนดสิทธิ์การใช้งานว่าแต่ละฟอร์มจะให้ยูสเซอร์ไหนใช้งานได้บ้างครับ ขอบคุณมากครับผม

สอบถามเรื่องคิวรี่หน่อยครับ คือผมมีข้อมูลดังนี้

Table A

ชื่อบริษัท         วงเงิน          วันที่ทำรายการ

บริษัท A         100 บาท      01/04/2561
บริษัท A         200 บาท      10/10/2561
บริษัท A         300 บาท      21/07/2562
บริษัท B         600 บาท      01/05/2562
บริษัท B         800 บาท      09/07/2562
บริษัท C         900 บาท      21/07/2562

คำถาม ผมต้องการเอา วันที่ทำรายการ (วันที่เริ่มทำรายการ รายการแรก) ของแต่ละบริษัท โดยลิสมาว่ามีบริษัทไหนบ้าง
หรือสร้างฟิลด์เพื่อ Remark วันที่ทำรายการ รายการแรก ก็ได้ครับ
ต้องคิวรี่อย่างไรบ้างครับ ขอบคุณมากครับ

รบกวนดูไฟล์หน่อยคับ คือ พอผมกรอกรายละเอียดใน frmFollowMain แล้วกดปุ่ม Follow เพื่อที่จะเปิดฟอร์ม frmFollowDetail พบว่า มี pop up แจ้งเตือนให้กรอก parameter ต้องแก้ตรงไหนคับถึงจะไม่ให้ขึ้นครับขอบคุณมากครับผม

ไม่รู้แบบนี้ไหมนะครับ ที่ฟอร์มสอง ถ้าไม่กดบันทึก เวลาจะปิดจะมีการสอบถามเรื่องการบันทึกข้อมูลถ้าตอบ No ข้อมูลจะไม่บันทึกใน ตาราง tblFollowDetail
เพิ่มระบบค้นหา No มาแสดง ลองดูครับ

ขอบพระคุณมากๆครับอาจารย์

เกิด Error แบบนี้อ่าคับ ไม่ทราบว่าแก้ไขอย่างไรบ้างครับ ขอบคุณมากครับผม

ขอบพระคุณมากครับอาจารย์

อ้างจาก: Eik Q Sang ที่ 19 มิ.ย. 62 , 15:23:20

ผมสร้างฟอร์ม ชื่อ frmMain1 มี text box ชื่อ txt_No1 ในฟอร์มนี้มีปุ่มเปิดฟอร์ม ชื่อ frmMain2 ในฟอร์มนี้มี textbox ชื่อ txt_No2
คำถาม ผมต้องการให้ frmMain1 เมื่อกดปุ่มเปิดฟอร์ม frmMain2 ให้ txt_No1= txt_No2 ต้องเขียนโค้ดใน vb ว่าอย่างไรบ้างครับ ขอบคุณมากครับ

ถ้าเป็นแบบ อ้างอิงแบบไม่ได้ Filter ที่ปุ่มก็ใส่แบบนี้ครับ

โค๊ด: [Select]

Private Sub OpenFrmMain2_Click()
DoCmd.OpenForm "frmmain2"
Forms!frmmain2.Form!txt_No2 = Me.txt_No1
End Sub

แต่ถ้าเป็นรูปแบบการ Filter เช่น txt_No2 Bound Field ชื่อ No และอยากให้ ระบุ No ที่ frmmain1 เมื่อเปิดฟอร์ม frmmain2 ก็ให้ Filter No มาแสดงก็ใส่แบบนี้
ถ้า Field No เป็น Number

โค๊ด: [Select]

Private Sub OpenFrmMain2_Click()
DoCmd.OpenForm "frmmain2", WhereCondition:="[No]=" & Me.txt_No1
End Sub
ถ้า Field No เป็น text

โค๊ด: [Select]

DoCmd.OpenForm "frmmain2", WhereCondition:="[No]= '" & Me.txt_No1 & "'"

ขอบคุณมากครับอาจารย์

การกำหนด Property ให้แก่คอนโทรลในบรรทัดของ Continuous Form จะมีผลกับคอนโทรลนั้นในทุกบรรทัดครับ แต่สำหรับการกำหนดคุณสมบัติในการแสดงบางอย่างเช่น สีพื้น, สีตัวอักษร. อักษรตัวหนา/ขีดเส้นใต้/ตัวเอียง, Enabled/Disabled สามารถใช้ Conditional Formatting ในการกำหนดเฉพาะคอนโทรลในบรรทัดนั้นๆตามเงื่อนไขให้เป็นไปอย่างอัตโนมัติได้ ดังนั้นอย่างแรกที่ต้องทำก็คือต้องหาก่อนว่าเงื่อนไขอะไรที่จะให้ Disabled   จากที่กำหนดมา ถ้าสมมุติว่าเมื่อเงื่อนไข cb_Status = "¨จบงาน" ก็ให้ Disabled ได้ ก็ให้ป้อน Conditional Formatting สำหรับคอนโทรลอื่นที่ต้องการเป็น (เช่น cb_DocEnvelope, txt_OrderID) [cb_Status] = "¨จบงาน" แล้วเลือกลักษณะคอนโทรลเป็น Disabled ครับ 



ส่วนโค้ดที่ให้มา ก็มีแค่นี้เท่านั้น

Private Sub Command27_Click()
    Me.txt_DateClose = Now()
    Me.cb_Status = "¨จบงาน"
End Sub

ขอบคุณมากครับอาจารย์สันติสุขครับ