DoCmd.GoToRecord , , acNewRec
ใส่ตอน FORM LOAD

ถ้าไม่อยากให้เลื่อนกลับ ก็ เอา NEVIGATOR BAR ออกก็ได้ กำหนดเป็น FALSE

ลงใส่คำสั่งแล้วแต่ก็ยังคงเป็นเหมือนเดิมค่ะ ถ้าเอาNEVIGATOR BAR ออกก็เป็นเพียงแค่ว่าเราไม่ให้ฟอร์มโชว์ตัวเลื่อนเรคอร์ดเองแต่เวลาเลื่อนเมาส์ไปมาก็ยังคงสามารถดูข้อมูลได้อยู่ค่ะ มีวิธีไหนอีกไหมค่ะ

มันเป็น FORM เดี่ยว หรือ FORM ต่อเนื่องครับ
ถ้า Form เดี่ยวน่าจะใช้ได้ ลองใช้ คำสั่งนี้เปิด

DoCmd.OpenForm ("FO"), acNormal, "FilterF", "", acEdit, acNormal
ตรง FILTER ก็เป็นค่าว่าง สำหรับ ADDNEW RECORD

หรือถ้า มากกว่านี้ ผมว่าสร้าง FORM เปล่า ไม่ผูกกับใคร
control ทุกตัวก็ไม่ผูก เมื่อจะเก็บลง TABLE ก็ใช้
INSERT INTO TABLE ...... ตามค่าที่กำหนดใน FORM เปล่า

http://www.lebans.com/mousewheelonoff.htm

หรือ

http://support.microsoft.com/kb/278379

ผมลองโหลดมาใช้ดูแล้วครับ

แต่เหมือนจะหา path file "MourseHook.dll"
ไม่เจอ ถึงแม้จะอยู่ใน folder เดียวกันก้อตาม

เป็นเพราะอะไรครับ
รวมถึงไฟล์ที่ ดาวโหลดมาด้วย ผมก้อยังใช้ไม่ได้เลย
เกิดปัญหาเช่นเดียวกันกับข้างบนครับ

ขอบคุณครับ

ขอถามต่อจากกระทู้นี้นะครับ คล้ายๆกันเลย

คือ ผมมีฟอร์มลูกค้า อยู่ 1 ฟอร์มและมีฟอร์มหน้าหลักอยู่ 1 ฟอร์ม

ที่นี้ ผมจะทำปุ่มกดไปฟอร์มลูกค้า ที่หน้าฟอร์มหลัก แต่อยากให้มี MsgBox ขึ้นมาว่า

"คุณจะแก้ไขหรือเพิ่มลูกค้า" แล้วมีให้กด ปุ่มแก้ไข ปุ่มเพิ่ม ถ้ากด แก้ไข ให้เข้าฟอร์มลูกค้า แต่ ถ้ากด เพิ่ม ให้เข้าฟอร์มลูกค้า โดยพร้อมสำหรับคีย์ข้อมูลใหม่

แนะนำด้วยครับผม

ขออนุญาติดันนะครับ

ง่ายมากครับทำดังนี้ คลิ๊กเลือก propertiesในส่วนของ Form แล้วเลือก Data entry เป็น Yes แค่นี้เวลาเปิดฟอร์มมาก็สามารถเพิ่มข้อมูลได้ทันที เป็นการกำหนดคุณสมบัติฟอร์มเท่านั้นครับ

"ผมจะทำปุ่มกดไปฟอร์มลูกค้า"

ขณะที่กด หรือก่อนจะกด ฟอร์มลูกค้าเปิดอยู่หรือไม่ แล้วปุ่มนี้ชื่อว่าอะไรสมมติว่าชื่อ command

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

command_click()
if msgbox("แก้ไขหรือไม่",vbyesno)=vbyes then DoCmd.OpenForm "dd", acNormal, , , acFormEdit
end sub

ส่วนปุ่มแก้ไขหรือปุ่มเพิ่มที่คุณอยากให้มีไม่แน่ใจว่าปุ่มทั้งสองนี้อยู่บนฟอร์มลูกค้าหรืออยู่บนฟอร์มหลัก และมันจะทำงานร่วมกับปุ่ม command หรือเปล่ามันจะทำงานลำดับกันยังไง หรือว่ามันเป็นปุ่มเดียวกัน ชักงงครับ

แต่ถ้ามันไม่ใช่ปุ่มเดียวกัน ไม่ได้ทำงานร่วมกัน และมันวางอยู่บนฟอร์มหลักก็
ปุ่มแก้ไข_click()
DoCmd.OpenForm "dd", acNormal, , , acFormEdit
end sub

ปุ่มเพิ่ม_click()
DoCmd.OpenForm "dd", acNormal, , , acFormAdd
end sub

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

รบกวนด้วยครับ

ขอดันนะครับไม่มีคนตอบ

เรียนคุณ Black

ผมขอตอบคำถามดังนี้ครับ

หากคุณต้องการเมื่อคลิกปุ่ม Command Button ที่ฟอร์มหลัก เพื่อสั่งให้เปิดฟอร์มลูกค้า (Customers) แต่มีเงื่อนไขในการแสดงข้อมูลคือ ถ้าคลิกปุ่ม Yes ที่ Msgbox ให้เปิดฟอร์ม Customer ในมุมมองของการเพิ่มข้อมูล, แต่ถ้าคลิกปุ่ม No ให้เปิดฟอร์ม Customer ในมุมมองปกติ สามารถใช้คำสั่งที่ command button ดังนี้ครับ
    If MsgBox("คุณต้องการเพิ่มชื่อลูกค้าใช่หรือไม่", vbQuestion + vbYesNo, "Question") = vbYes Then
        DoCmd.OpenForm "Customers", , , , acFormAdd, acWindowNormal
    Else
        DoCmd.OpenForm "Customers", , , , acFormEdit, acWindowNormal
    End If

แต่ถ้าคุณต้องการเปลี่ยนคำว่า Yes กับ No ให้เป็น เพิ่ม กับ แก้ไข คุณก็ต้องสร้างฟอร์มให้มีลักษณะเหมือน Msgbox แล้วใส่คำสั่งตามความเห็น R03093 ครับ