แสดงกระทู้

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.


Topics - Teeyai

หน้า: [1]
1
ห้อง MS Access / สอบถามวิธีย้าย Dialog ของหน้าต่างฟอร์มให้มาอยู่ตรงกลางจอหน่อยครับผม
« เมื่อ: 04 ก.ย. 62 , 14:37:26 »
ผมทำฟอร์มขึ้นมาแล้ว พอเวลาสั่ง form View แล้วหน้าต่างมันชอบไปอยู่ริม ๆ ซ้ายครับ ไม่ทราบว่าจะย้ายให้มาอยู่ตรงกลางจอต้องทำอย่างไรบ้างครับ



ขอบคุณมากครับ

2
ห้อง MS Access / วิธีการ Freeze Page Header ใน report
« เมื่อ: 30 ส.ค. 62 , 09:53:58 »
ผมได้สร้าง rptTaxinvoice ขึ้นมาแล้ว ดังภาพข้างล่าง



Page Header ของ Report คือดังภาพข้างล่าง



ผมต้องการให้ Page Header มัน Freeze ค้างไว้ตลอดเวลาที่เลื่อนดูข้อมูลทั้งหมดครับ
พยายามหาข้อมูลแล้วไม่ทราบวิธีจริง ๆ ครับ

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

ขอบคุณมากครับ

3
ห้อง MS Access / สอบถามวิธีเพิ่มบรรทัดว่างให้เต็มหน้าใบสรุปวางบิล
« เมื่อ: 26 ส.ค. 62 , 15:53:48 »
ผมได้ทำ rptSumClaim เพื่อรายงานใบสรุปวางบิลออกมาเป็นหน้าตาดังข้างล่าง





สังเกตว่าแต่ละรายงานที่แสดงออกมาขึ้นอยู่กับจำนวน Record ไม่เท่ากัน แล้วแต่ที่เราบันทึกไว้ในกรุ๊ปนั้น เวลาพิมพ์ใบสรุปวางบิลในแต่ละชุด มันจะออกมาไม่เต็มหน้ากระดาษ ถ้ามีรายการลำดับเยอะ ๆ มันก็จะเกือบเต็มหน้า แต่ถ้ามีรายการน้อย ๆ มันก็จะไม่ถึงครึ่งหน้าด้วยซ้ำไป ผมจึงอยากให้มันพิมพ์บรรทัดเปล่าเพิ่มขึ้นไปอีกให้เต็มหน้าใบสรุปวางบิล โดยอาจจะลิมิตไว้ที่ 20 รายการ ไม่ทราบว่าต้องดำเนินการอย่างไรบ้างครับ
.....ประมาณ ๆ รูปข้างล่างแบบนี้ครับ



ขอบคุณมากครับ

4
ห้อง MS Access / สอบถามวิธีเปลี่ยนลูกศรของเมาท์ไปเป็นรูปมือ เวลาเคลื่อนเมาท์ไปบนรูปภาพ
« เมื่อ: 29 ก.ค. 62 , 11:55:55 »
ผมดึงรูปภาพมาไว้บนฟอร์ม แล้วสร้าง on_click Event ไว้แล้ว
ต้องการให้เวลาเคลื่อนเมาท์ไปบนรูปภาพ แล้วรูปลูกศรเมาท์เปลี่ยนเป็นรูปมือ
จะต้องเขียนคำสั่งยังไงอะครับ

ขอบคุณมากครับ

5
ห้อง MS Access / เรียงลำดับใน SubForm
« เมื่อ: 04 ก.ค. 62 , 15:06:06 »
ผมไม่ทราบว่าจะต้อง เขียนโค้ด order by เข้าไปอย่างไรครับ เพื่อให้Field [File_Name] ของ SubForm ชื่อ frmFilterFile เรียงลำดับตัวอักษร

ผมเพิ่งฝึกเขียนได้ไม่นานครับ พยายามแกะ และหัดเขียน โค้ดข้างล่างก็ดูตัวอย่างของคนอื่นมาปรับแต่งเอาด้วยครับ

Private Sub SearchCombo()

    Dim sql As String
    If IsNull(Me.Combo1) Then
        sql = "SELECT * FROM qryFilterFileName"
   ElseIf Not IsNull(Me.Combo1) Then
        sql = "SELECT * FROM qryFilterFileName WHERE [Project_Code] = '" & Me.Combo1 & "'"
    End If
    Forms!frmFilterFileByCombo!FrmFilterFile.Form.RecordSource = sql
    Forms!frmFilterFileByCombo!FrmFilterFile.Form.Requery

End Sub

รายละเอียดฟอร์มเป็นดังข้างล่างครับ

       

ผมตั้ง Combo1 ไว้เพื่อเลือกรหัสโครงการ เมื่อเลือกแล้วข้อมูลจาก qryFilterFileName จะถูกกรองและแสดงใน Form ชื่อ frmFilterFileByCombo ซึ่งในนี้ได้แทรก SubForm ชื่อ FrmFilterFile ไว้ เพื่อให้แสดงตารางไว้ 3 Fields

เมื่อกดเลือกรหัสโครงการที่ Combo1แล้ว จะได้ผลลัพธ์ดังข้างล่าง

       

ข้อมูลในฟิลด์ชื่อไฟล์ [File_Name] ยังไม่ได้เรียงลำดับ ผมไม่ทราบว่าจะต้องแทรก order by [File_Name] ไว้ตรงไหน อย่างไรครับ ไม่ทราบจริง ๆ ครับ พยายามแกะหามาครึ่งวันแล้วครับ TT

ขอรบกวนด้วยครับ
ขอบพระคุณอย่างสูงครับ

6
ห้อง MS Access / การบล็อคไม่ใช้งานปุ่มบางปุ่มใน Switchboard
« เมื่อ: 25 มิ.ย. 62 , 15:10:47 »
เรียนสอบถามท่านอาจารย์/ท่านผู้เชี่ยวชาญ ดังนี้ครับ
      หลังจากที่ผมได้ทำการสร้าง LogIn Form สำหรับเข้าทำงานในระบบเรียบร้อยแล้ว
               
      เมื่อกด OK ระบบจะตรวจสอบชื่อผู้ใช้งานว่าอยู่ใน Class อะไร จากตาราง UserClass
               
      หลังจากตรวจสอบแล้วก็เข้าสู่หน้าหลักของ Switchboard ดังข้างล่าง
               
      (สวิตช์บอร์ด อิงข้อมูลจากตาราง Switchboard items)     

       เงื่อนไข....
       ผู้ใช้งาน ระดับ A สามารถใช้งานได้ทุกปุ่ม (เข้าได้ทุกแผนก)
       ผู้ใช้งาน ระดับ B สามารถใช้งานได้แค่ปุ่มแผนกวิศวกรรม และปุ่มออกจากโปรแกรม
       ผู้ใช้งาน ระดับ C สามารถใช้งานได้แค่ปุ่มแผนกบัญชีและการเงิน ปุ่มแผนกบุคคล และปุ่มออกจากโปรแกรม
       ผู้ใช้งาน ระดับ D สามารถใช้งานได้แค่ปุ่มแผนกบัญชีและการเงิน และปุ่มออกจากโปรแกรม
       ผู้ใชงาน ระดับ E สามารถใช้งานได้แค่ปุ่มแผนกบุคคล และปุ่มออกจากโปรแกรม
       ผู้ใชงาน ระดับ F สามารถใช้งานได้แค่ปุ่มแผนกเครื่องมือ และปุ่มออกจากโปรแกรม

       ปัญหาของผมคือ ผมไม่ทราบวิธีที่จะบล็อคไม่ให้ปุ่มมันทำงานได้ในแต่ละเงื่อนไขครับ เพราะในมุมมองออกแบบของ Switchboard Manager มันไม่ได้แยกปุ่มอิสระต่อกัน แต่มันเป็นปุ่มเดียว และควบคุมโดยตาราง Switchboard Items อีกทีนึง
             
       
       ขอเรียนท่านอาจารย์/ท่านผู้ชำนาญการ ช่วยชี้แนะด้วยครับ

       ขอบพระคุณมากครับ....

7
ห้อง MS Access / คำสั่ง VB เพื่อย้ายตำแหน่ง Cursor
« เมื่อ: 18 มิ.ย. 62 , 10:45:30 »


ตอนนี้ผมกำลังหัดเขียนโค้ด เพื่อทำโปรแกรมใช้งานเองในออฟฟิศครับ
ข้างล่างนี้คือโค้ดที่ผมใส่ใน Event Update ของ Textbox ชื่อ Text1(ชื่อผู้ใช้)

Private Sub Text1_AfterUpdate()
Dim Rs As Recordset
Set Rs = CurrentDb.OpenRecordset("Select * From UserClass Where UserName='" + Text1 + "';")

If Rs.RecordCount = 0 Then MsgBox " ผู้ใช้ชื่อ " + Text1 + " ไม่ได้รับอนุญาตให้ใช้งาน ": Text1 = "": Text2 = "": Exit Sub

End Sub

ความต้องการของผมคือ เวลาพิมพ์ชื่อผู้ใช้ที่ไม่มีในตารางฐานข้อมูลแล้วกดปุ่ม Enter ให้ขึ้นข้อความเตือนว่า "ผู้ใช้ชื่อนี้ไม่ได้รับอนุญาตให้ใช้งาน" แล้วก็สั่งเคลียร์ค่าในช่อง Text1 =""  หลังจากนั้น Cursor มันก็กระโดดไป Text Box ถัดไป ซึ่งในความเป็นจริงผมต้องการให้มันเด้งกลับไปที่ Text1 ที่เดิม เพื่อรอให้พิมพ์ชื่อผู้ใช้ใหม่ครับ แต่ไม่ทราบว่ามีคำสั่งสำหรับย้าย cursor กลับไปตำแหน่ง Text Box เดิมไหมครับ หรือถ้ามีวิธีอื่น ๆ อีกรบกวนด้วยครับ...

ขอบพระคุณคร้าบบบบ...

หน้า: [1]