แสดงกระทู้

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

หน้า: [1] 2 3 4 ... 8
1
รบกวนขอสอบถามการ Export file เป็น pdf ใน MS Access ไปไว้ใน Google Drive


จากตัวอย่างโปรแกรมที่แนบมาสามารถ Export file ไปเก็บไว้ใน drive ที่เรากำหนดได้แล้ว ถ้าต้องการให้ไปบันทึกใน Google Drive สามารถทำได้ไหมคะ รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ





2
อ้างถึง
ถ้าเราจะให้บันทึกลงใน google drive ตามลิงค์ที่เรามี สามารถทำได้ไหมคะ รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

แนะนำขึ้นโพสใหม่เลยดีกว่าครับ

ได้ค่ะ ขอบคุณมากๆนะคะ

3
เหมือนมีรูปซ้อนกันสองรูปมีรูปที่เป็นพื้นหลัง 1 และรูปที่เป็นลายเซ็นต์ 1

ผมไม่เห็นภาพครับ อธิบายไม่ถูกเหมือนกัน
หรืออีกวิธีลองคลิกขวาที่รูป โดยที่รูปพื้นหลัง เลือก นำไปไว้ข้างหลังสุด
และ รูปลายเซ็นต์กดเลือกนำไปไว้ข้างหน้าสุด

หรือลองลบรูปที่เป็นพื้นหลังออกไปก่อนครับ ว่าแสดงหรือไม่

ทำได้แล้วค่ะ เป็นกับการเลือกรูปมาวางค่ะ ที่ไม่ได้เพราะวางเป็น ole เลยแก้มาเป็น image รูปแสดงแล้วค่ะ
ขออนุญาตถามอีกข้อนะคะ ถ้าเราจะให้บันทึกลงใน google drive ตามลิงค์ที่เรามี สามารถทำได้ไหมคะ รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

4
ไม่น่าจะไม่แสดงนะครับ จากโค้ดถึงมีรูปในหน้ารายงานก็ต้องแสดงอยู่แล้วครับ
ลองเช็คความถูกต้องของการตั้งค่าการแสดงให้ดีๆครับผิดตรงไหนหรือเปล่า
การกำหนด ให้แสดงด้านหลังสุด หรือ ด้านหน้าสุดก็มีส่วนนะครับ
ลองดูหน้ารายงานในมุมมองเหมือนพิมพ์ ดูหรือลองปริ้นดู กด Ctrl + P ว่าตอนพิมพ์ออกมาลายเซ็นต์แสดงหรือไม่

รายงานในมุมมองเหมือนพิมพ์รูปลายเซ็นต์มาปรกติค่ะ แต่ตอนสั่งบันทึกเป็น pdf รูปไม่มา ต้องไปตั้งค่าการแสดงรูปตรงไหนคะ เหมือนมีรูปซ้อนกันสองรูปมีรูปที่เป็นพื้นหลัง 1 และรูปที่เป็นลายเซ็นต์ 1 รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

5
ในคิวรี่ ฟอแมท ฟิลล์ TrainingEndDate ก่อนนะครับ
เอาโค้ดนี้ไปวางในฟิลล์นะครับ
Dates: Format([TrainingEndDate],'dd/mm/yyyy')



ทำได้แล้วค่ะ แต่ติดปัญหาตอนบันทึกไฟล์ออกมาเป็น pdf รูปลายเซ็นต์ที่ใส่ไว้ในหน้ารายงาน ไม่มาด้วยค่ะ ข้อมูลอื่นมาครบหมด รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

6
ชื่อฟิลล์ผิดครับ
Dates คือฟิลล์  TrainingEndDate อันเดิมของคุณครับ
ที่ผมต้องเปลี่ยนชื่อเป็น Dates เพื่อทำการฟอแมทเป็น Dates: Format([TrainingEndDate],'dd/mm/yyyy')
ลองส่งรูปแสดงชื่อฟิลล์ในคิวรี่ มาดูหน่อย
และโค้ดที่ใส่ไว้ตอน OpenRecord ด้วยครับ

รูปแสดงชื่อฟิลล์ในคิวรี่ค่ะ


และโค้ด
Set rsGroup = CurrentDb.OpenRecordset("SELECT * FROM QueryForReportCertification where Cstr([Dates])='" & CStr(Forms!frmSearchCertificate!txtApplyDate) & "'")

7
ต้องฟอแมทวันที่ให้ตรงกันกับ textbox ที่ใช้ในการค้นหาก่อนครับ

ที่คิวรี่ปรับฟอแมทเป็นแบบนี้ดูครับ
Dates: Format([TrainingEndDate],'dd/mm/yyyy')

และที่ โค้ดใส่แบบนี้
Set rsGroup = CurrentDb.OpenRecordset("SELECT * FROM QueryForReportCertification where Cstr([Dates])='" & CStr(Forms!frmSearchCertificate!txtApplyDate) & "'")

และแก้ฟิลล์ที่ตัวรายงาน ที่เป็นฟิลล์ TrainingEndDate เป็น Dates ทั้งหมด


ถ้าไม่ได้ คงต้องรีโมทไปตรวจสอบให้แล้วละครับ
เพราะต้องเช็คข้อมูลวันที่ที่แสดงใน access ว่าเป็นแบบไหนจะได้ปรับให้เหมือนกัน

ลองแล้วติด error นี้ค่ะ


รบกวนให้คำแนะนำด้วยนะคะ ขอบคุณค่ะ

8
เป็นเพราะ Format วันที่ ไม่ตรงกันหรือเปล่าครับ
ขอดูฟอแมทวันที่จากฐาน SQL Server มาดูหน่อย
(ผมไม่ได้อยู่ตอบมาอีกทีวันจันทร์นะครับ ไปทริปตกปลาทะเล)

ลองรีเช็คเรืองฟอแมทวันที่ให้ตรงกันนะครับ

วันที่ใน database ค่ะ

9
อ้างถึง
ลองทำในตัวอย่างแล้วใช้ได้ เดี๋ยวจะลองนำไปใช้กับงานจริงดูค่ะ

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

ขอบคุณสำหรับคำชมค่ะ
ลองนำไปใช้กับของจริงที่ลิงค์จาก Database เป็น SQL Server พอกดปุ่ม Export to pdf ไปแล้ว โปรแกรมนิ่ง ไม่มีการ Export ไฟล์มาให้เลยค่ะ
รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

ตัวอย่างโค้ดค่ะ

โค๊ด: [Select]
Private Sub cmdPDF_Click()
Dim rsGroup As DAO.Recordset
  Dim ColumnName As String, myPath As String

  myPath = "\\Servername\h\upload\"    '--------------อยู่บน Host ค่ะ
 
  Set rsGroup = CurrentDb.OpenRecordset("SELECT * FROM QueryForReportCertification where Cstr([dbo_ResultTraining.TrainingEndDate])='" & CStr(Forms!frmSearchCertificate!txtApplyDate) & "'")
 
  Do While Not rsGroup.EOF
  ColumnName = rsGroup!dbo_Reg.EmployeeCode
 
    DoCmd.OpenReport "ReportCertificationNew", acViewPreview, , "dbo_Reg.EmployeeCode='" & ColumnName & "'"
    DoCmd.OutputTo acOutputReport, "ReportCertificationNew", acFormatPDF, _
                            myPath & ColumnName & ".pdf", False
 
DoCmd.Close acReport, "ReportCertificationNew"

 rsGroup.MoveNext
 Loop

 rsGroup.Close
End Sub

10
ลองดูนะครับ
คุณต้องไปสร้าง Floder ชื่อ upload ไว้ Drive C: ก่อนเน้อ
อัพเดทโค้ดให้ใหม่นะครับ ไม่ต้องสร้าง Table เพิ่มและ ลบ Criteria ใน Query ออกไป

โค้ด
โค๊ด: [Select]
Private Sub Command8_Click()
    Dim rsGroup As DAO.Recordset
    Dim ColumnName As String, myPath As String

  myPath = "C:\upload\"
 

  Set rsGroup = CurrentDb.OpenRecordset("SELECT * FROM QueryForReportCertification where Cstr([TrainingEndDate])='" & CStr(Forms!frmSearchCertificate!txtApplyDate) & "'") 
  Do While Not rsGroup.EOF
  ColumnName = rsGroup!EmployeeCode 
    DoCmd.OpenReport "ReportCertificationNew", acViewPreview, , "EmployeeCode='" & ColumnName & "'"
    DoCmd.OutputTo acOutputReport, "ReportCertificationNew", acFormatPDF, _
                            myPath & ColumnName & ".pdf", False 
DoCmd.Close acReport, "ReportCertificationNew"
 rsGroup.MoveNext
 Loop
 rsGroup.Close
End Sub


ขอบคุณมากๆนะคะ ลองทำในตัวอย่างแล้วใช้ได้ เดี๋ยวจะลองนำไปใช้กับงานจริงดูค่ะ

11
รบกวนขอสอบถามการ Export file จาก Report เพื่อ Save file เป็น pdf ตามข้อมูลแต่ละหน้าค่ะ คืออยากจะกด Export to pdf แล้วให้บันทึกข้อมูลไฟล์ตามรหัสพนักงานค่ะ เช่น 11111.pdf, 11112.pdf ตามข้อมูลที่เราดึงมาทั้งหมดค่ะ ปรกติจะเซฟเป็น pdf โดยรวมข้อมูลให้ทั้งหมด แต่อยากให้ save ไฟล์เป็น pdf ตามรหัสพนักงานค่ะ เช่นมี 10 คน ก็ให้ save ทีละไฟล์ รบกวนแนะนำวิธีการด้วยค่ะ พร้อมกันนี้ได้แนบไฟล์ตัวอย่างโปรแกรมที่ได้ทำมาด้วย

ขอบคุณค่ะ








12
แก้ไขปัญหาภาษาไทยได้แล้วค่ะ ตามที่แนะนำ ขอบคุณมากๆนะคะ


เหลือตรงอัพโหลดข้อมูลในกรณีข้อมูลซ้ำ ต้องการให้อัพเดตเฉพาะข้อมูลที่มีการเปลี่ยนแปลง เช่น รหัสบัตรประชาชน 1234567890123 เคยอัพโหลดอยู่แล้ว ถ้ามีการอัพโหลดรหัสนี้เข้าไปอีกที ถ้าข้อมูลมีอยู่แล้ว ไม่ต้องอัพโหลด แต่ถ้ามีการเปลี่ยนแปลงข้อมูลอื่น ให้อัพแต่ข้อมูลที่มีการเปลี่ยนแปลงเข้าไป รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

13
อัพโหลดข้อมูลไฟล์ csv ข้อมูลที่เป็นภาษาไทย แสดงข้อมูลเพี้ยนค่ะ รบกวนแนะนำด้วยค่ะ ตามรูป


และอยากตรวจสอบข้อมูลอัพโหลดจากฟิลด์ CardID ด้วยค่ะ ไม่ให้มีการอัพโหลดซ้ำซ้อน แต่ถ้ามีการเปลี่ยนแปลงให้อัพแต่ข้อมูลที่มีการเปลี่ยนแปลง แต่ยึดที่ CardID พร้อมกันนี้ได้แนบไฟล์โปรแกรมและไฟล์ csv ที่ใช้ทดสอบมาด้วยค่ะ รบกวนแนะนำด้วยนะคะ
ขอบคุณค่ะ

14
ห้อง MS Access / : ปิด Subform ใน MS Access
« เมื่อ: 21 ส.ค. 63 , 10:15:18 »
ที่ฟอร์มหลักใน event form open
ใส่โค้ดเพื่อซ่อนซัพฟอร์ม

Private Sub Form_Open(Cancel As Integer)
Me.[ชื่อซัพฟอร์ม].Visible = False
End Sub

หรือ

Form![ชื่อฟอร์มหลัก]![ชื่อซัพฟอร์ม].visible =false

และที่ปุ่มค้นหาเมื่อการค้นหาทำงานก็กำหนดให้
Me.[ชื่อซัพฟอร์ม].visible = True

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

15
ห้อง MS Access / ปิด Subform ใน MS Access
« เมื่อ: 20 ส.ค. 63 , 16:50:00 »
ปิด Subform ใน MS Access ค่ะ ให้ใช้งานก็ต่อเมื่อเราคลิกปุ่มค้นหา ตอนล็อกอินเข้าไปยังไม่ต้องแสดง สามารถทำยังไงได้บ้างคะ รบกวนแนะนำด้วยค่ะ
ตอนนี้ติดปัญหา Subform แสดงตลอดเลย


หน้า: [1] 2 3 4 ... 8