แสดงกระทู้

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

หน้า: [1]
1
ห้อง MS Access / : preview and new record
« เมื่อ: 07 ม.ค. 64 , 15:24:34 »
สอบถามผู้รู้ครับ
ผมต้องการสร้างปุ่ม preview และ Add NewRecord ในปุ่มเดียวต้องเขียน code อย่างไรครับ ?
ที่ปุมใส่ 2 โค้ดนี้เข้าไป
DoCmd.OpenReport "ชื่อReport", acViewPreview
Docmd.GoToRecord,,acNewRec
โพสต์นี้ได้รับคำขอบคุณจาก: phathako

2
ห้อง MS Access / : สอบถามเกี่ยวกับ report
« เมื่อ: 05 พ.ค. 63 , 08:18:09 »
สวัสดี ขอถามท่านอาจารย์ เกี่ยวกับการทำรายงานแบบมีเงื่อนไข คือผมอยากเลือกสาขา และ ระหว่างวันที่ หา วันที ครับ ช่วยหน่อยครับมือไหม่
ขอบคุณ ล่วงหน้าครับ

กำหนด เงื่อนไข ให้กับตัวรายงานครับ
สมมุติ Field สาขาชื่อ branch
        Field วันที่ชื่อ DateIn

การกำหนดสาขา ก็สามารถกำหนด Criteria ได้เลยเช่น "สาขา ก" รายงานก็จะแสดงข้อมูลเฉพาะสาขาก ขึ้นมา
ถ้าต้องการ กำหนด วันที่ แบบระหว่างวันที่ เริ่มต้นและวันที่สิ้นสุด กำหนด Criteria Between [StartDate] and [EndDate]

ถ้าต้องการเปิดรายงานโดยอ้างอิงการกำหนดเงื่อนไขบน textbox หรือ คอมโบบ๊อก ก็ใช้การอ้างอิงแบบนี้เช่น
การอ้างอิง สาขาสมมุติชื่อ Combobox1
กำหนดเงื่อนไข Field สาขาให้รายงานดังนี้
Forms![ชื่อฟอร์ม]![Combobox1]

ส่วนการกำหนดเงื่อนไขสำหรับวันที่นั้น ต้องมี Textbox 2 ตัวคือสำหรับกรอกวันที่เริ่มต้น(ชื่อ StartDate)  และวันที่สิ้นสุด(ชื่อ EndDate)
การกำหนดเงื่อนไข Field DateIn ก็จะใส่ Criteria ของรายงานแบบนี้
Between Forms![ชื่อฟอร์ม]![StartDate] and Forms![ชื่อฟอร์ม]![EndDate]

โพสต์นี้ได้รับคำขอบคุณจาก: phathako

3
ในหน้าฟอร์มหากเราดับเบิ้ลคลิกที่ไตเติ้ลบาร์ฟอร์มก็จะย่อหดลงมา แต่ผมต้องการให้ดับเบิ้ล์คลิกที่ไตเติ้ลบาร์แล้วไม่ให้หน้าต่างมันย่อมาน่ะครับ ต้องทำอย่างไรบ้าง หากไม่ใช้ You can change the Border Style property of the form to Dialog. ครับ ขอบคุณมากครับ

ลองดูแบบนี้ครับใช้ใน Event Form_Load
วิธีการนี้คือ สั่งให้แสดงแบบเต็มหน้าจอ แล้วสร้างตัวแปรเก็บค่าไว้ เมื่อเก็บค่าไว้แล้วก็สั่ง Restore แล้วใช้การแสดงฟอร์มจากค่าตัวแปรที่เก็บค่าไว้แทน
ซึ่งจะทำให้ฟอร์มแสดงผลอยู่แบบนั้นไม่สามารถกดย่อได้อีกนั้นเอง :cool: :cool:

โค๊ด: [Select]
Private Sub Form_Load()
Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long
    With Me
        DoCmd.Maximize
        lngWT = .WindowTop
        lngWL = .WindowLeft
        lngWH = .WindowHeight
        lngWW = .WindowWidth
        DoCmd.Restore
        Call .Move(lngWL, lngWT, lngWW, lngWH)
    End With
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: phathako

หน้า: [1]