แสดงกระทู้

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

หน้า: 1 [2] 3 4 5 ... 14
19
ห้อง MS Access / : การใช้ MsgBox
« เมื่อ: 28 มิ.ย. 66 , 10:21:21 »
สมมุติกล่องข้อความ ชื่อ กล่อง1 และกล่อง2
ที่ปุ่มคำสั่ง

Private Sub Command_Click()
    Me.กล่อง1 = ""
    Me.กล่อง2 = ""
    Me.กล่อง1.Setfocus
End Sub

20
ห้อง MS Access / : การใช้ MsgBox
« เมื่อ: 27 มิ.ย. 66 , 17:44:59 »
         Dim RetValue As Variant
                RetValue = MsgBox("กด Yes เมื่อต้องการปิด", vbOKCancel + vbDefaultButton2, "Un")
                Select Case RetValue
                    Case 1
                        DoCmd.close acForm, "ชื่อฟอร์ม"
                    Case Else
                        '''
                 End Select

ประมาณนี้ครับ

21
ห้อง MS Access / : การทำทะเบียนครุภัณฑ์
« เมื่อ: 27 มิ.ย. 66 , 12:11:13 »
ตามแนวกรมบัญชีกลาง ครับ คิดแบบเส้นตรง ครับผม
เค้าก็คิดเป็นเส้นตรงทั้งนั้นแหละ มหาดไทยคิดเป็นวันแล้ว
จากคำถาม อ่านแล้วไม่รู้จะตอบยังงัยนะ

22
ห้อง MS Access / : การทำทะเบียนครุภัณฑ์
« เมื่อ: 27 มิ.ย. 66 , 11:05:20 »
ของมหาดไทย หรือหน่วยอื่นครับ มันคิดไม่เหมือนกัน

23
ห้อง MS Access / : Show รูปบัตรในฟอร์ม
« เมื่อ: 14 มิ.ย. 66 , 09:01:55 »
ที่กล่องรูปภาพหรือ Image Object ตั้ง Data -> Control Source เป็น
โค๊ด: [Select]
="C:\pic\" & [id_card] & ".jpg"
หรือถ้าเวลาย้ายไปใว้ที่อื่นแล้วอยู่คู่กันเสมอก็ใช้เป็น
โค๊ด: [Select]
=[CurrentProject].[Path] & "\pic\" & [id_card] & ".jpg"
เรียบร้อย สวยงาม ขอบคุณครับอาจารย์

24
ห้อง MS Access / Show รูปบัตรในฟอร์ม
« เมื่อ: 13 มิ.ย. 66 , 14:17:40 »
ถ้าเราเก็บไฟล์รูป (.Jpg) ใน Drive C โฟลเดอร์ pic โดยใช้เลข 13 หลักเป็นชื่อไฟล์
C:\pic\xxxxxxxxxxxx1.jpg
C:\pic\xxxxxxxxxxxx2.jpg
C:\pic\xxxxxxxxxxxx3.jpg
C:\pic\xxxxxxxxxxxx4.jpg
เราสร้างฟอร์มแบบต่อเนื่อง โดยในฟอร์มมี
1.กล่องข้อความ ชื่อ id_card แสดงเลข 13 หลัก จากตารางที่เก็บ
2.Image Object ชื่อ Image1
อยากให้เปิดฟอร์มา แล้วรูปที่เราเก็บไว้ใน Drive C โฟลเดอร์ pic
Show ใน Image Object ตามเลข 13 หลัก โดยถ้ามีรูปก็ขึ้นรูป
ถ้าไม่มีก็ไม่ต้องขึ้นรูป


25
เมื่อเช้าอ่านแล้ว ไม่ค่อยเข้าใจ ไม่น่าใช่แบบนี้ แต่เอาไปปรับดูแล้วกันครับ

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

27
ใช้ไฟล์นี้ดึงชื่อไฟล์เข้ามาในฐานข้อมูล แล้วสั่ง Unmatched Query หาไฟล์ที่ชื่อไม่ตรงกันออกมาครับ
ขอบคุณครับอาจารย์ แบบที่ต้องการเลย เอามาปรับปรุงอีกนิดนึง ใช้ได้หลายแบบเลย

28
ลองเอาไปประยุกต์ดูนะครับ
มันก็ไม่ใช่แบบนี้ครับ

เอาง่ายๆ เลย ผมอ้างอิงไฟล์นอกฐานข้อมูลไม่เป็น

29
วน loop อ่านชื่อไฟล์ใน folder แล้วเอาชื่อไฟล์ตัด .txt ออก
จากนั้น ไป count record
count=DCount("*","table","[cid]="' & cid จากชื่อไฟล์ &"'")
if count=0
   msgbox
end if
ทำแบบนี้ผมเข้าใจครับ แต่ผมไม่รู้คำสั่ง ผมไม่ได้เรียนมาโดยตรง ทำได้จากตัวอย่างในเวปนี้แหละครับ

30
ไม่รู้ใช่ป่าวแบบนี้
ยังไม่ใช่ครับอาจารย์

ผมขออธิบายใหม่เลย
ผมใช้โปรแกรมสำเร็จรูปดึงข้อมูลจาก บัตรประชาชน
จะได้ Text ไฟล์ ชื่อเป็นเลข 13 หลัก ดังนี้
C:\temp\1234512345123.txt
ไฟล์อยู่ใน Drive C Folder temp ชื่อไฟล์ 1234512345123.txt
คราวนี้จะมาเขียน Access ให้ กดปุ่ม มันไปอ่ายชื่อไฟล์ 1234512345123
แล้วมาตรวจสอบกับ ฟิลด์ CID ในตาราง Person ว่า
มีเลข 13 หลักนี้รึยัง ถ้ามี ก็ Msgbox ว่ามี ถ้าไม่มี ก็บอกว่าไม่มี
แบบนี้ครับ

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

32
ขอโทษครับมาตอบช้า เลยเข้าใจผิด
ชื่อไฟล์เป็นเลข 13 หลัก มีไฟลด์เดียว
ต้องการคำสั่งไปดูว่า ชื่อไฟล์นั้น
มีอยู่ในฐานเราแล้วรึยัง ถ้ามีขึ้ม msgbox ว่ามี
ประมาณนี้ครับ

33
ผมมี Text File ใช้ชื่อเป็นเลข 13 หลัก (เลขบัตร ปชช)
อยู่ใน Folder C:\temp ตัวอย่าง C:\temp\1234512345123.txt
ผมจะตรวจสอบว่า คนๆ นี้(ชื่อไฟล์) มีอยู่ในฐานข้อมูลรึยัง โดย
ดูจาก  Record ในฟิลด์ ชื่อ CID จากตาราง Person ชนิดข้อมูล เป็น Text
ผมต้องเขียนโค็ตยังงัยครับ ให้ถ้ามี เลข 13 หลักนี้อยู่แล้ว
บอกว่ามีแล้ว ถ้ายังไม่มีบอกว่ายังไม่มี ขอบพระคุณครับ

34
1. ต้องใช้รูป PNG ที่ทำพื้นหลังเป็น Transparent
2. กำหนด Background เป็น Transparent
ได้จริงๆ ด้วยครับ ขอบคุณครับ

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

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

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