แสดงกระทู้

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 - พีระณัฐ สุขกำเนิด

หน้า: [1] 2
1
ห้อง MS Access / : ปฏิทินตารางนัด
« เมื่อ: 26 พ.ค. 67 , 11:12:23 »
ใช้ command object และระบุ caption ตามวันที่ของเดือนนั้นๆ แล้วคิวรี่ข้อมูลขึ้นมาแสดงครับ

2
มีไฟล์ฐานขอมูลที่ทำเองไว้บ้างแล้วหรือยัง
ทำมาก่อน ติดตรงไหนก็ค่อยให้ช่วยแนะนำครับ
รูปแบบรายงาน Report สติกเกอร์ออกแบบไว้หรือยัง
ฐานข้อมูลมีตารางอะไรแล้วบ้าง ชุดข้อมูลตัวอย่าง
ที่จะโฟกัสคือ ติดคำสั่งไหนที่บนฟอร์มหรือคิวรี่ที่จะให้ช่วย
เพราะที่กล่าวหน้าทั้งหมดเหมือนสั่งงานตามที่รีเควสมา

3
เพื่อไม่ให้มันว่างทำไมไม่ส่งค่าวันที่เครื่องปัจจุบันส่งให้ตัวแปรไปเลยล่ะครับ เป็นค่า default เมื่อ user อยากเปลี่ยนก็ค่อยไปกรอกใหม่ อย่างน้อยก็ช่วยแก้ error ทำให้มันไม่ว่าง
SDate =date
EDate = date

4
ขออนุญาตท่าน OddyWriter เอาไฟล์มาแก้ไขปรับปรุงครับ
ตัวนี้เสร็จเลยผมจำลองฐาน Person ที่มี cid มาให้เลยในตัว
กดปุ่มเดียวนำเข้าตรวจสอบอัพเดต status จบ

5
โปรแกรมสำเร็จรูปที่ว่ามันอ่านทีละคน แล้วมาพักใน c:\temp ซึ่ง Cid จะเปลี่ยนไปเรื่อยๆ
พอเสร็จแล้ว CID นี้จะถูกลบไปไหม หรือมี่ไฟล์อื่นสะสมไปเรื่อยๆ
เพราะเวลาจะเขียนให้ acess กดปุ่มไปอ่านชื่อไฟล์ มันจะรู้ได้ไงว่าจะเช็คไฟล์ไหน
สมมติมีหลายไฟล์ งั้นก็ต้องกดปุ่มเพื่อ Browse ไป select เอาไฟล์นั้น ๆ
after update คือได้ชื่อไฟล์มาวางใน Text box แล้วค่อยส่งไปเช็คในตาราง

6
แอดไลน์ผมมาครับ ID : gerbkeeb จะคุยสะดวกกว่า ผมว่าไม่น่าจะยาก

7
ไม่ได้ตรวจสอบเรื่อยๆ ใช่ไหม ถ้าค้นไฟล์เดียวทำไมไม่เอาไปค้นใน Database โดยตรงเลย
หรือแต่ต้องการ code ในการแก้ปัญหาเฉยๆ เช่น เอา 13 หลักมา Input ใน Textbox แล้วไปค้นหาในฐานเลย หรือยังไง

8
หลักการคร่าวๆ คือผมแนะนำให้สร้าง batch file เพื่อรันคำสั่งนี้
dir /s /b *.txt  > ScanCID.txt
ผลลัพธ์ที่ได้คือ มันจะ scan ชื่อไฟล์นามสกุล .txt ทั้งหมดใน Folder
ไปเขียนลงใน textfile ชื่อ ScanCID.txt จะได้ผลลัพธ์ตามภาพ
จากนั้นเขียน code เพื่อวนลูปอ่าน textfile มาทีละบรรทัดแล้วตัดสตริงเอาเฉพาะ 13 หลัก
เพื่อส่งไปตรวจสอบ cid ในตาราง person ครับ
** พอดีผมมีไฟล์ภาพ อยู่ d:\photo เลยทำเป็นตัวอย่าง **

9
สรุปความต้องการคือ ตรวจสอบ textfile ที่เป็น 13 ทุกไฟล์ใน folder นั้นๆ ไล่ทีละไฟล์ว่ามี cid หรือยังโดยเทียบกับฟิลด์ cid ในตาราง person
เมื่อเช็คแล้วให้อัพเดตฟิลด์ Status ว่ามีหรือไม่มีใช่ไหมครับ
ประเด็นคือจะ Input ทีละไฟล์ไปตรวจสอบ หรือสแกนชื่อไฟล์ทั้งหมดไปตรวจสอบทีเดียว

10
ถ้าถมพื้นหลังเป็นสีขาวเลยได้ไหมครับ หรือว่ามันจะไปบังข้อมูลในฟอร์มส่วนอื่น
ลองใช้ photoshop สร้างฟอร์มพื้นหลังเป็น Transparent วางลายเซ็นต์แล้วตัดพื้นหลังสีขาวออก
แล้ว save as เป็น gif/tiff ดูครับน่าจะได้

11
ใช้ฐานข้อมูลเป็น MySQL แล้วเชื่อมต่อผ่าน ODBC ดีกว่าครับ เพราะสามารถ กำหนด max_connection  ให้สับสนุนการทำงานพร้อมๆกันได้ตามขนาด User ในองค์กร (เครื่อง A ก็ลง Appserve หรือ XAMPP ก็ได้)

12
ช่องว่างอยู่ทุกตำแหน่งไหมครับ หรือแบบ pattern เดียวกันคือปิดท้ายเท่านั้น
ลองใส่ code นี้ดู
Private Sub Command1_Click()
  Dim SpacePos As Integer
            SpacePos = InStr(1, Text0, " ")
            If SpacePos = 0 Then 'ถ้าหาตำแหน่งช่องว่างไม่เจอ
               Text1 = Left(Text0, 12) 'ตัดเอาแค่ด้านซ้ายมา 12 หลัก
            Else 'ถ้าหาตำแหน่งช่องว่างเจอ
                Text1 = Left(Text0, 10) 'ให้ตัดแค่ด้านซ้ายมา 10 หลัก
            End If
End Sub
***หมายเหตุ*** บนฟอร์มกำหนด ค่า text0 เพื่อกรอก  text1 เพื่อแสดงผล/Command1 ใช้คลิกและใส่ code

13
ไม่รู้ว่าตอนเปิดโปรแกรมสั่งให้ไปรัน ฟอร์มไหนหรือคิวรี่อะไรก่อน แต่ดูจาก error เหมือนกับว่า index ที่สร้างไว้ในแต่ละตารางมีการแก้ไข ต้องไล่ดูไฟล์ครับ

14
แก้ไขกรณ๊เลือก folder เพื่อเก็บไฟล์ pdf ผมได้เขียน module เพิ่มเติมในการ Browser ไฟล์ให้ค่อยเอาชื่อไฟล์มาต่อ คิดว่าน่าจะตอบโจทย์

15
แก้ไขกรณ๊เลือก folder เพื่อเก็บไฟล์ pdf ผมได้เขียน module เพิ่มเติมในการ Browser ไฟล์ให้ค่อยเอาชื่อไฟล์มาต่อ คิดว่าน่าจะตอบโจทย์

18
ห้อง MS Access / : Export file to Excel แบบหลายชีท
« เมื่อ: 24 ก.พ. 66 , 16:14:08 »



หน้า: [1] 2