แสดงกระทู้

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

หน้า: 1 ... 32 33 34 [35] 36
545
เลือกเป็น default เลยดีกว่าครับ เพราะปกติเวลาตอบแล้วคนเรามักจะอยากอ่านสิ่งที่ตัวเองตอบเลย การกลับสู่หน้ารวม มันจะทำให้เปิดหน้าเดียวกัน (เกือบเหมือนกัน) 2 หน้าน่ะครับ

ขอบคุณครับ

546
หลังจากพิมพ์ตอบกระทู้ ไม่ควรกลับไปแสดงหน้ารวม ควรแสดงที่หน้ากระทู้นั้นที่แสดงข้อความที่เพิ่งตอบไปครับ

547
วางไว้ในปุ่มเข้าสู่ระบบครับ

เอาไว้ใน if block ครับ

ถ้า case 1 ก็ให้ disable manager
ถ้า case 2 ก็ให้ disable การตลาด

548
ก่อนอื่นต้องทำการสรุปก่อนนะครับว่าสิทธิในการใช้งานของพนักงานแต่ละคนนั้นสรุปแล้วมีกี่รูปแบบ ถ้าพนักงาน 100 คนมี 100 รูปแบบ อย่างนี้ไม่สนุกแน่นอน

แต่ถ้ามี 4-5 รูปแบบอย่างนี้สามารถเขียนโค้ดได้ครับ วิธีการง่ายที่สุดคือใช้ Select Case

ถ้าไม่ต้องการให้เข้าปุ่มไหนได้ ก็สั่งให้ Enabled = false

ตัวอย่างคำสั่ง ดูในกระทู้นี้ครับ
https://www.thai-access.com/index.php?topic=118.msg287

549
เปลี่ยนเป็น

Forms![MainMenu]![AdminPage].Enabled = False

550
ห้อง MS Access / > การ Lock Navigation Pane
« เมื่อ: 25 ม.ค. 61 , 14:12:17 »
 on key down ของฟอร์มครับ

551
คือผมพยายามหลีกเลี่ยงคำสั่ง docmd sendkey f9 น่ะครับ เพราะมันมีผลให้การทำงานของ Numlock ผิดปกติ ถ้าจะเขียน Code ตรวจสอบสถานะของ Numlock ก็ได้ แต่วุ่นวายเพราะ 32 bit กับ 64 bit เขียนโค้ดต่างกันอีก

แนะนำว่าลองเปลี่ยน docmd.requery เป็น docmd.save ดูครับ ถ้าความเร็วในการทำงานอยู่ในช่วงที่รับได้ ก็ใช้ไป แต่ถ้าช้า แสดงว่ามีปัญหาในการวางระบบฐานข้อมูลแล้วล่ะ อาจต้องส่งมาให้ผมดูครับ



552
ลองกดปุ่ม f9 ดูว่าได้ไหมครับ

553
ถ้า Combo Box ในฟอร์ม POH ของคุณ กำหนด Record Source จากตารางที่ใช้สร้างฟอร์มเพิ่ม Supplier ให้ใส่ docmd.requery ที่ on click ของ combobox ครับ ชัวร์สุด


554
ใช้คำสั่ง docmd.requery

แต่ต้องหาจุดที่วางเองนะครับ

555
ห้อง MS Access / > การ Lock Navigation Pane
« เมื่อ: 24 ม.ค. 61 , 16:16:54 »
คำสั่งซ่อน Navigation Pane

Private Sub Command6_Click()
DoCmd.NavigateTo "acNavigationCategoryObjectType"

DoCmd.RunCommand acCmdWindowHide

End Sub

คำสั่งป้องกัน F11

   
    Select Case KeyCode
          Case vbKeyF11
               KeyCode = 0
               MsgBox "F11 has been disabled.", vbOKOnly, "Disabled Key"
     End Select
   

556
เปิด Properties แล้วเลือก Unique Values เป็น Yes ครับ

557
คลิกเปิดแหล่งข้อมูลแถวครับ

558
Row Source ของ Combo Box มันจะเป็น query ให้กำหนด unique values เป็น yes

หน้า: 1 ... 32 33 34 [35] 36