แสดงกระทู้

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

หน้า: 1 2 3 [4]
55
ถ้าเขียนโปรแกรมเสร็จแล้ว ต้อง Export หรืออะไรก่อนไหมครับก่อนจะนำไปใช้ หรือเปิด Access มาใช้ได้เลยปกติ  :slow:

56
ตอนแรก Icon มันก็ปกติครับ พอทำงานไปสร้างนู้นนี้มันกลายเป็นสไลต์เก่าๆ ไม่ทราบว่าผมกดโดนอะไรหรือเปล่าครับ


57
โปรแกรมผมใช้หลายคนครับ เข้าผ่านไฟล์กลาง(Map drive) โปรแกรมผมรวใ 2 ฝ่ายเข้าในโปรแกรมเดียว จึงอยากทราบว่าเวลาเปิดไฟล์ถ้าหากอีกคนเปิดอยู่มันจะฟ้องว่า Read only เหมือน Word, Excel ไหมครับ


58
ผมสร้างปุ่ม Export to excel จากคนที่สอนใน Youtube  แต่มันสามารถดึงมาจากตารางหรือคิวรี่เท่านั้นซึ่งมันจะมาทั้งหมดเลยครับ เลยอยากสอบถามว่า ถ้าเราจะ Export จากข้อมูลที่เราค้นหามา ไม่ทราบว่าต้องทำอย่างไรครับ




โค้ดปุ่ม Export ครับ

59
สวัสดีครับ Form ผมเป็น continuous form ที่เป็น Sub form ใน Navigation form โค้ดนี้ผมใช้กับ form เดี่ยวๆ ไม่เกิด Error อะไรครับ แต่พอใช้กับ Navigation form มันขึ้น Error แแบบนี้รบกวนช่วยดูให้ทีครับ


์Navigation form



เมื่อกด ปริ้น


ใน Sub ค้นหาผมก็อิง Form แบบนี้ก็ไม่มีปัญหา แต่พอใช้กับปริ้นก็เกิด Error

60
สวัสดีครับ ผมทำช่องค้นหาและ Combobox ดังรูปข้างล่าง



แต่อยากให้ช่องค้นหา สามารถค้นหาได้หลายค่า ตอนแรกโค้ดแบบนี้ครับ
Code : sql = "SELECT * FROM Q_PI WHERE [ID_Card] like '*" & Nz(Me.TextSearch, "*") & "*' AND [Position] like '" & Nz(Me.CmdPosi, "*") & "' AND [Section] like '" & Nz(Me.CmdSec, "*") & "'"
ใช้ได้ปกติตามต้องการครับ

แต่พอเพิ่มตัวนี้มาอีกตัว
sql = "SELECT * FROM Q_PI WHERE [ID_Card] like '*" & Nz(Me.TextSearch, "*") & "*' OR [NameTH] like '*" & Nz(Me.TextSearch, "*") & "*'  AND [Position] like '" & Nz(Me.CmdPosi, "*") & "' AND [Section] like '" & Nz(Me.CmdSec, "*") & "'"
มันทำให้ค้นหาอะไรไม่ได้เลยครับมันเหมือนคำสั่งใช้ไม่ได้ค้นแล้วไม่แสดงค่าที่ค้น ไม่ทราบว่าผมเข้าใจอะไรผิดหรือเปล่าครับ ขอบคุณครับ

61
เรียกรูปภาษาอังกฤษได้ปกติครับ แต่ถ้าเรียกรูปที่เป็นภาษาไทยจะไม่ขึ้น รบกวนชี้แนะหน่อยครับ ขอบคุณครับ




62
สวัสดีครับ ตารางนี้ผม Import มาจาก Excel อีกที พอเอาขึ้นมาแสดงบน Form ทำไมขึ้นแบบนี้ รบกวนผู้รู้ชี้แนะทีครับ






63
โค้ด : IIf([ptts1_Exp]-Date()<90 and IIf([ptts1_Exp]-Date()>30,"หมดอายุภายใน 3 เดือน","-")
เมื่อฟิล ptts1_Exp น้อยกว่า 90 และมากกว่า 30 ให้แสดงว่า "หมดอายุภายใน 3 เดือน", ถ้าไม่ใช่ แสดง "-"
ไม่ทราบต้องใช้ and ยังไงให้ถูกใน VBA ครับ

64
ผมใช้ Combobox ค้นหาแผนกและสถานะบัตร, และ Textbox ค้นหาชื่อ, Button ชื่อ Clear ใช้ล้างข้อมูลค้นหา โดยทั้งหมดนี้ใช้การเรียก Sub SearchCriteria ร่วมกันใช้ได้ปกติครับ แต่พอผมใส่โค้Saveเมื่อกดSaveเท่านั้นเข้าไป อันที่กล่าวไปข้างต้น กลับใช้ไม่ได้ซักอันเลยครับ ลองเอาตัว Sub SearchCriteria ไว้บนสุดล่างสุดแล้ว ก็ไม่หายครับ เลยอยากสอบถามพี่ๆว่า ต้องแก้ยังไงครับ ขอบคณครับ


หน้าตา Error


หน้าตา Form


โค้ดSaveเมื่อกดSaveเท่านั้น


65
จะปริ้นไฟล์ Pdf ครับเก็บโดยใช้การ Path ไฟล์มาใช้ WebBrowser ในการ Display แต่จะทำ Report โดยให้มันลิงค์กันโดยใช้ข้อมูลจากฟิล Path ใช้ Query เป็นตัวกลางในการจำค่า Path ส่งค่าไปยัง Report แต่ใน Report สร้างได้แต่ Textbox ลิงค์กันได้ปกติ แต่ไม่มี WebBrowser ให้ PrintPreview จะทำอย่างไรดีครับ


หน้าตาตัว WebBrowser ครับ








Path มาปกติครับ


66
ผมต้องการให้ ถ้าหากค้นหาไม่เจอในตารางหรือจากข้อมูลที่กรอง ให้ MsgBox ว่า Not found this name ครับ แต่ไม่ทราบว่าโค้ดที่ผมเขียนมันผิดพลาดตรงไหนครับ


อันนี้ Sub ครับ






อันนี้ผลจารการค้นหาชื่อที่ไม่ตรง ก่อนใส่โค้ด MsgBox ครับ

67
เมื่อผมกรองข้อมูลมาแล้วอยากให้มันค้นหาข้อมูลที่กรองเท่านั้นครับไม่ใช่ค้นหาจากตาราง ไม่ทราบว่าต้องเขียน VBA อย่างไรหรอครับ ขอบคุณครับ








โค้ดปุ้ม Search ครับ

68
 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



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

 :question: :question: :question:

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


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

รูปภาพ

หน้า: 1 2 3 [4]