แสดงกระทู้

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 5 6 ... 10
33
เป็นเพราะ Format วันที่ ไม่ตรงกันหรือเปล่าครับ
ขอดูฟอแมทวันที่จากฐาน SQL Server มาดูหน่อย
(ผมไม่ได้อยู่ตอบมาอีกทีวันจันทร์นะครับ ไปทริปตกปลาทะเล)

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

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

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

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

35
ลองดูนะครับ
คุณต้องไปสร้าง 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


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

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

ขอบคุณค่ะ








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


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

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


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

39
ห้อง 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 เรียบร้อยก่อน

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


42
เอาโค้ดนี้ไปวางในแต่ละฟิลล์ในคิวรี่ได้เลย

หมู่
โค๊ด: [Select]
qADDRMU: IIf(IsNull([ADDRMU]),"-",Replace(Replace([ADDRMU],"ม.",""),"หมู่ที่ ",""))
ซอย
โค๊ด: [Select]
qADDRSOI: IIf(IsNull([ADDRSOI]),"-",Replace(Replace([ADDRSOI],"ซอย",""),"ตรอก",""))
ถนน
โค๊ด: [Select]
qADDRRD: IIf(IsNull([ADDRRD]),"-",Replace([ADDRRD],"ถนน",""))
ตำบล
โค๊ด: [Select]
qADDRTB:IIF(isnull(ADDRTB),"-",Replace(Replace(Replace(ADDRTB, "ต.", ""), "ตำบล", ""), "แขวง", ""))
อำเภอ
โค๊ด: [Select]
qADDRAP:IIF(isnull(ADDRAP),"-",Replace(Replace(Replace(ADDRAP, "อ.", ""), "อำเภอ", ""), "เขต", ""))
จังหวัด
โค๊ด: [Select]
qADDRCW:IIF(isnull(ADDRCW),"-",Replace(Replace(ADDRCW, "จ.", ""), "จังหวัด", ""))

และโค้ดรวมทุกโค้ดสำหรับ SQL นะครับ

SELECT IIf(IsNull([ADDRSOI]),"-",Replace(Replace([ADDRSOI],"ซอย",""),"ตรอก","")) AS qADDRSOI, IIf(IsNull([ADDRRD]),"-",Replace([ADDRRD],"ถนน","")) AS qADDRRD, IIf(IsNull([ADDRTB]),"-",Replace(Replace(Replace([ADDRTB],"ต.",""),"ตำบล",""),"แขวง","")) AS qADDRTB, IIf(IsNull([ADDRAP]),"-",Replace(Replace(Replace([ADDRAP],"อ.",""),"อำเภอ",""),"เขต","")) AS qADDRAP, IIf(IsNull([ADDRCW]),"-",Replace(Replace([ADDRCW],"จ.",""),"จังหวัด","")) AS qADDRCW FROM [ชื่อตารางหรือคิวรี่];

ถ้าในรายงานละคะ ตอนนี้ติดปัญหา ถ้าส่งออกรายงานเป็น Excel ข้อมูลที่เป็นช่องว่างควรจะแสดงเครื่องหมาย - แต่ไม่แสดงค่ะ




43
เอาโค้ดนี้ไปวางในแต่ละฟิลล์ในคิวรี่ได้เลย

หมู่
โค๊ด: [Select]
qADDRMU: IIf(IsNull([ADDRMU]),"-",Replace(Replace([ADDRMU],"ม.",""),"หมู่ที่ ",""))
ซอย
โค๊ด: [Select]
qADDRSOI: IIf(IsNull([ADDRSOI]),"-",Replace(Replace([ADDRSOI],"ซอย",""),"ตรอก",""))
ถนน
โค๊ด: [Select]
qADDRRD: IIf(IsNull([ADDRRD]),"-",Replace([ADDRRD],"ถนน",""))
ตำบล
โค๊ด: [Select]
qADDRTB:IIF(isnull(ADDRTB),"-",Replace(Replace(Replace(ADDRTB, "ต.", ""), "ตำบล", ""), "แขวง", ""))
อำเภอ
โค๊ด: [Select]
qADDRAP:IIF(isnull(ADDRAP),"-",Replace(Replace(Replace(ADDRAP, "อ.", ""), "อำเภอ", ""), "เขต", ""))
จังหวัด
โค๊ด: [Select]
qADDRCW:IIF(isnull(ADDRCW),"-",Replace(Replace(ADDRCW, "จ.", ""), "จังหวัด", ""))

และโค้ดรวมทุกโค้ดสำหรับ SQL นะครับ

SELECT IIf(IsNull([ADDRSOI]),"-",Replace(Replace([ADDRSOI],"ซอย",""),"ตรอก","")) AS qADDRSOI, IIf(IsNull([ADDRRD]),"-",Replace([ADDRRD],"ถนน","")) AS qADDRRD, IIf(IsNull([ADDRTB]),"-",Replace(Replace(Replace([ADDRTB],"ต.",""),"ตำบล",""),"แขวง","")) AS qADDRTB, IIf(IsNull([ADDRAP]),"-",Replace(Replace(Replace([ADDRAP],"อ.",""),"อำเภอ",""),"เขต","")) AS qADDRAP, IIf(IsNull([ADDRCW]),"-",Replace(Replace([ADDRCW],"จ.",""),"จังหวัด","")) AS qADDRCW FROM [ชื่อตารางหรือคิวรี่];


ขอบคุณมากๆนะคะ ทำได้แล้วค่ะ

44
มีวิธีตัดข้อมูลที่ไฮท์ไลค์นี้ไหมคะ ตอน Query ใน Access

ไม่ต้องการ หมู่ที่ ซอย ตรอก ถนน ต. ตำบล แขวง เขต อ. อำเภอ จังหวัด จ. และถ้าไม่มีข้อมูลให้แสดงเครื่องหมาย - แทนช่องว่าง
รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ


45
แก้ไขปัญหาได้แล้วค่ะ แก้โดย Query คำสั่งใน SQL

46
Print Preview ข้อความที่สร้างด้วย Lable ไม่แสดง ใน MS Access 2016
รบกวนแนะนำด้วยค่ะ

หน้า Design


หน้า Print Preview
ไม่แสดงข้อความที่เขียนใน Lable ส่วนข้อมูลที่ดึงมาจาก Database แสดงปรกติ

47
ห้อง MS Access / ทำบัตรพนักงานใน MS Access
« เมื่อ: 14 ก.ค. 63 , 16:27:29 »
เขียนโปรแกรมใน MS Access 2013
ทำบัตรพนักงานค่ะ ทำใน MS Access 2013 Preview ตัวอย่างได้ 1 บัตรตามนี้





พอเปลี่ยนไปใช้ใน MS Access 2016 ไม่ได้ตั้งค่าอะไร แต่ Preview กลายเป็นแสดง 3 คนต่อ 1 หน้ากระดาษ และขนาดของหน้ากระดาษจากนิ้วเป็น cm ตามรูปนี้





รบกวนแนะนำด้วยค่ะ มีวิธีใช้ใน Access 2016 ให้แสดงเป็นแบบใน Access 2013 ยังไง คือต้องการให้แสดงบัตรพนักงาน 1 ต่อ 1 เลยค่ะ ต้องไปตั้งค่าตรงไหนใน 2016



48
ทำได้แล้วค่ะ ไปโหลดไฟล์ที่ลิงค์นี้มา
https://www.dll4free.com/vbe7.dll.html link

หน้า: 1 2 [3] 4 5 6 ... 10