แสดงกระทู้

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 - 001Jetnipit

หน้า: 1 ... 7 8 9 [10]
163
ไม่เอาค่าติด - ถ้ามีติดลบให้แสดงหมดอายุ ใช่ไหม ?
ถ้าใช่ลองแบบนี้

DateExp: IIf((CInt(CDate([ptts1_Exp])-CDate(Date()))/28)<0,"หมดอายุ",CInt(CDate([ptts1_Exp])-CDate(Date()))/28)

อ่อผมลองแล้วก็ยังไม่ได้ครับ เลยเปลี่ยนเป็นหาวัน เดือน ปี ปกติแบบเขา ของผมจะเป็นคล้ายๆวันหมดอายุครับ

ตอนนี้กำลังหาวันอยู่ แต่ไม่รู้จะไปยังไงต่อ หาเดือนได้แล้วครับ
Code : DateDiff("m",Date(),[DateBirth])

เห็นคลิปของจาร TTT ทำมันเป็นนับอายุ ซึ้งมันตรงกันข้ามกับของผม พยามกลับอะไรดูแล้วครับแต่ตัวเลขออกมาแปลกๆ เลยไม่รู้พอจะมีทางไหมครับ

164
 IIf(0>([ptts1_Exp]-Date())/28,"หมดอายุ","-"

เมื่อ ptts1_Exp-วันนี้ แล้วหาร 28 จะได้จำนวนเดือนคร่าวๆ
แล้วถ้ามันหมดอายุแล้วค่ามันจะติด - เลยเพิ่มโค้ดด้านบนใน Query ว่าถ้าติบลบในใส่คำว่า "หมดอายุ" ไปแทน แต่ลอง Run แล้วเหมือนมันไม่เข้าคำสั่งหรือเปล่าครับ ไม่ได้อะไรเปลี่ยนเลย

Code :
IIf([ptts1_Exp], ([ptts1_Exp]-Date())/28, IIf(0>([ptts1_Exp]-Date())/28,"หมดอายุ","-")) AS DateExp



165
งงตรง 2 GB ครับ คือขนาดสูงสุดในการแนบเข้า/ไฟล์รูป หรือ ขนาดฐานข้อมูลทั้งหมดต่อในไฟล์ Access เราครับ

166
ไฟล์ผมใช้ในองกรค์อยูาใน Map Network Drive มีหลายคนหลายเครื่องใช้ไฟล์นี้จึงอยากถามว่าควรเก็บไฟล์แบบไหนดี และปริมาณฐานข้อมูลทั้งหมดต่อ 1 ไฟล์จำกัดไว้ที่ GB และข้อดีข้อเสียในการเก็บแบบ Attachment หรือ Hyperlink มีอะไรบ้างครับ ขอบคุณครับ

 :question: :question: :question:

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


ขอบคุณครับ ได้แล้วครับ :grin: :grin: :grin:

168
อ่อ มันไม่ได้ใช้การ filter ข้อมูลนะครับ ใช้ bookmark ใช่ไหม
งั้นโค้ดเงื่อนไข ต้องแก้ เดี่ยวขอปรับแก้แปป

ใช่ครับ ครับผม ขอบคุณครับ

169
Set frm = Forms![Navigation_Form]![NavigationSubform]![PTT].Form

ผมลองสร้างให้อยู่ใน Navigation_Form ดูสามารถทำได้

เช็คการตั้งชื่อของฟอร์มแต่ละอันว่าตรงกันไหมกับโค้ดด้านบน
โดยการดูชื่อคลิ๊กที่กรอบของฟอร์มแล้วดูตรงชื่อ


เช็คแล้วครับพี่ก็ตรงกันนะครับ แต่ยังไม่ได้ครับ







170
สามารถทำได้โดย
1.สร้างตัวรายงานขึ่นมา 1 อันที่มี RecordSource เดี่ยวกันกับที่มีอยู่บน Form
2.สร้างปุ่มสำหรับปริ้นใส่โค้ดเข้าไป
สมมุติชื่อ frmMain   'ชื่อฟอร์มหลัก
สมมุติชื่อ frmSub    'ชื่อซับฟอร์ม
กรณีที่ form ไม่มีฟอร์มย่อย  ก็ใส่ set frm เป็น Set frm = Forms!frmMain.Form
กรณีที่ form มีฟอร์มย่อย  ก็ใส่ set frm เป็น Set frm = Forms!frmMain.frmSub.Form
สมมุติชื่อรายงานที่จะแสดงชื่อ Report1

Private Sub CmbPrint_Click()
Dim frm As Form
Set frm = Forms!frmMain.frmSub.Form
If frm.FilterOn Then
DoCmd.OpenReport "Report1", acViewPreview, , frm.Filter
Else
DoCmd.OpenReport "Report1", acViewPreview
End If
End Sub

ลองแล้วครับ มันก็ยังขึ้นมาทุก Record เหมือนเดิมเลยครับ รบกวนเช็คให้หน่อยครับ ผมพลาดตรงไหนหรือเปล่า












ตรงเส้นสีเขียวผมจะบอกว่าผมน่าจะอิง Form ถูกนะครับเพราะ Search ผมใช้อิแบบนี้มันก็ใช้ได้





171
ตอนนี้ทำ VBA ในการค้นหาสำเร็จแล้วครับ แต่ไม่ทราบว่าต้องทำยังไงให้ Report กรองข้อมูลตามที่เราค้นหาได้ครับ รบกวนชี้แนะด้วยครับ :cry:


172
ทำแล้วครับ ตอนนี้ Query ที่ส้รางมาใหม่ตามที่พี่บอก อัพเดตค่าตามคนเราดูอยู่แล้วครับ แต่ตอนกดปริ้นมันโชว์แต่รูปของคนแรกครับ ไม่ทราบว่าผมอิงอะไรผิดรึเปล่าครับ

ได้แล้วครับ อิง Record Source ผิดครับ อิงเป็น Query ที่ส้รางมาใหม่ได้ผลแล้วครับ ขอบคุณครับ

173
ทำแล้วครับ ตอนนี้ Query ที่ส้รางมาใหม่ตามที่พี่บอก อัพเดตค่าตามคนเราดูอยู่แล้วครับ แต่ตอนกดปริ้นมันโชว์แต่รูปของคนแรกครับ ไม่ทราบว่าผมอิงอะไรผิดรึเปล่าครับ




174
อ้างถึง
Button ไว้ และ Report ของ field รูปภาพ ตอนเราดูพนักงานคนไหนอยู่ เมื่อกด Button ใต้รูป มันก็จะพิมพ์รูปนั้นๆ ออกมา
Field เก็บรูปเป็นแบบ Attachment หรือเปล่าครับ
ในรายงานมีรหัสของพนักงานแต่ละคนอยู่ด้วยไหมครับ ถ้ามีสามารถใช้การอ้างอิง Field รหัสพนักงานเพื่อพิมพ์ภาพของ Record นั้นได้ครับ

ตัวอย่างด้านล่าง

ผมกดปริ้นแล้วมันขึ้นแบบนี้อะครับไฟล์ที่พี่ส่งมา

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

176
ห้อง MS Access / ทำแล้วครับ
« เมื่อ: 06 ก.ค. 64 , 10:37:47 »
เป็น Attachment ครับ ในตัว Form ไม่ได้ใส่ ID ไว้มีแต่ Name ครับ ส่วนใน Report ผมใส่ Field Name อันเดียวกับที่ใช้กับ Form ไว้แล้วครับ ให้ Position อยู่ใต้รูปครับเพราะผมไม่อยากให่มันแสดง


177
สวัสดีครับ ผมไม่ทราบวิธีโค้ด VBA หรือ Macro ในการปริ้นรูปที่เราต้องการ ตอนนี้ผมสร้าง Button ไว้ และ Report ของ field รูปภาพ ตอนเราดูพนักงานคนไหนอยู่ เมื่อกด Button ใต้รูป มันก็จะพิมพ์รูปนั้นๆ ออกมา แต่ผมไม่ทราบวิธีการเขียน VBA หรือ Macro ว่าต้องเขียนยังไง ขอบคุณครับ

รูปภาพ

หน้า: 1 ... 7 8 9 [10]