สมัครสมาชิก

แสดงกระทู้

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

หน้า: [1] 2
1
ขอบคุณครับ เดี๋ยวจะขอลองศึกษาดูก่อนนะครับ :yuush:

2
ยินดีครับ ที่จริงมันสามารถ Convert File รูป เป็นรูปแบบที่ต้องการได้ด้วยนะครับ เช่น ต้นฉบับเป็น .BMP จะแปลงเป็น .JPEG หรือ อื่นๆได้ โดยใช้ WIA
แต่จากความต้องการเจ้าของกระทู้ ไม่น่าจะใช้ในส่วนนี้ครับ  :cool: :cool:

อ.ปิ่นณรงค์ ถ้าผมสนใจ function นี้ เพื่อเพื่มความสะดวกแก่ผู้ใช้งานจะได้ไม่ต้องแปลงไฟล์ รบกวน อ.ช่วยทำเป็นตัวอย่างให้หน่อยนะครับ ขอบคุณมากๆครับ :smile: :smile: :smile:

3
ขอบคุณมากๆเลยครับ สุดยอดดังรูปจริงๆ :want: :want: :want:

4
ผมออกแบบไว้ดังนี้ครับ

table ชื่อ picture
ใน table มีฟิล 4 ฟิล ดังนี้
ID (ตั้งเป็น auto) / no /photopath/outputpath

ืno=รหัสของไฟล์ที่แนบ
photopath=ที่อยู่ของไฟล์แนบ
outputpath=ที่อยู่ที่เก็บไฟล์แนบ

เวลาใช้งาน ผมใช้ =DLookUp("[OutputPath]","[PICTURE]","[NO]= Forms![RESULT]![NO]"ครับ

5
จากการนำโปรแกรมจากกระทู้ "การ Import ไฟล์รูปภาพ" ไปใช้งานถือว่าดีมากครับ แต่ถ้าเราต้องการให้สามารถแนบรูปได้มากว่า 1 รูป(รูปที่แนบมีหน้า 1 หน้า 2 หน้า3 ประมาณนี้ครับ) และเพิ่มนามสกุลไฟล์จาก JPG เป็นไฟล์รูปภาพอื่นต้องเพิ่มอย่างไรครับ ขอบคูณครับ  :smile: :smile:

6
คือผมมี textbox1=2562และtextbox2=0123456 เมื่อผมเขียนโค๊ด text3= textbox1&textbox2 ต้องการให้ได้ 25620123456 แต่ผลที่เป็น 2562123456 เลข0ที่อยู่นำหน้าหายไป แก้อย่างไรครับ ขอบคุฯครับ :prettiness: :prettiness: :prettiness:

7
ได้แล้วครับ ขอบคุณมากๆ ตอบไม่ช้าหรอกครับ ผมรอได้ครับ :grin: :grin: :grin:

8
ทำได้แล้วครับ แต่ทำให้โปรแกรม import ช้าลงอีก ผู้ใช้งานคงไม่ Happy ขอบคุณครับ

9
อ.ปิ่นณรงค์ ครับขออนุญาติสอบถามเพิ่ม ถ้าต้องการทราบจำนวนไฟล์ที่ *.txt ในโฟล์เดอ strPath ก่อนที่จำทำการ import ว่ามีกีไฟล์ ไม่ทราบว่าจะต้องเขียน code เพิ่มอย่างไรครับ ขอบคุณครับ :prettiness: :prettiness: :prettiness:

11
คือผมใช้ข้อมูลที่ import มาจาก mapdrive ไว้ บ้างที่ drive เป็น disconnect ผู้ใช้จะไม่ทราบ ทำให้คิดว่าไม่มีข้อมูลใหม้เข้ามา อ.ท่านไหน ที่พอมีแนวทางหรือโค้ดตัวอย่างบ้างไหมครับ

ขอบคุณครับ

 :prettiness: :prettiness: :prettiness:

12
ขอถามนะครับถ้าจะเอาโค้ด 1 แทรกลงในโค้ด 2 จะต้องเขียนอย่างไรครับ ขอบคุณครับ  :prettiness:
 
---โค้ด1----
Private Sub import_Click()
    Dim strPath As String
    Dim strFile As String
    Dim strTable As String
    Dim StrFileName As String
    Dim strextensionNew As String

    strTable = "Table1"
    strPath = "D:\textfile\"
    strFile = Dir(strPath & "*.txt")
    If strFile = "" Then
    MsgBox "ไม่พบไฟล์ที่จะ Import !!", vbCritical, "แจ้งเตือน"
    Exit Sub
    End If
    Do While strFile <> ""
    StrFileName = strPath & strFile
    DoCmd.TransferText acImportDelim, "", strTable, StrFileName, False
   
    strextensionNew = Left(StrFileName, InStrRev(StrFileName, ".") - 1) & ".xxx"
   
   
   
    Name StrFileName As strextensionNew
    strFile = Dir
    Loop
End Sub


---โค้ด2---
Option Compare Database
Option Explicit

Dim holdPercComplete As Single

Private Sub UpdateProgress(CurrentItem As Long, TotalItems As Long, taskName As String)
    Dim PercComplete As Single
    Dim intWidth As Integer
   
    Me.lblCurrentTask.Caption = taskName
   
    'Validate data
    If CurrentItem <= 0 Or TotalItems <= 0 Then
        imgProgress.Width = 0
        Exit Sub
    End If
   
    'Calculate the percentage complete
    PercComplete = CurrentItem / TotalItems
    If Int(PercComplete * 100) = Int(holdPercComplete * 100) Then
        Exit Sub
    End If
    'Save it for comparison
    holdPercComplete = PercComplete
   
    'Calculate how wide to make the progress bar
    If (PercComplete * 100) Mod 5 = 0 Then
        intWidth = (BoxProgress.Width * PercComplete)
        imgProgress.Width = intWidth
        DoEvents    'or Me.Repaint
    End If

End Sub


Private Sub Form_Load()
    Call UpdateProgress(0, 0, "Idle")
End Sub

Private Sub cmdStart_Click()
    Dim lngItem As Long
    Const lngTotal As Long = 100000
   
    Do While lngItem <= lngTotal
        lngItem = lngItem + 1
        If lngItem < 50000 Then
            Call UpdateProgress(lngItem, lngTotal, "Starting...")
        ElseIf lngItem < 75000 Then
            Call UpdateProgress(lngItem, lngTotal, "Getting there...")
        Else
            Call UpdateProgress(lngItem, lngTotal, "Almost finished...")
        End If
    Loop
   
    Call UpdateProgress(lngItem, lngTotal, "Task complete")

End Sub


13
ห้อง MS Access / : อยากทำ progress meter
« เมื่อ: 11 ธ.ค. 61 , 00:38:51 »
ขอบคุณ อ.TTT คงจะจริงตามที่ อ.ว่ามา เครื่องต้องทำงานช้าลง คงไม่จำเป็น

14
ห้อง MS Access / อยากทำ progress meter
« เมื่อ: 09 ธ.ค. 61 , 10:34:22 »
เวลา import ข้อมูลเยอะแล้ว จะขึ้นเป็นนาฬิกาทราย ผู้ใช้อาจจะคิดว่า error หรือไม่ทราบว่าต้องรอนานขนาดไหน ถ้าเปลี่ยนนาฬิการทรายเป็น Progress meter น่าจะดีกว่า ต้องทำอย่างไรบ้างครับ :prettiness: :prettiness: :prettiness:
แบบรูปที่แนบมาครับ

15
กำลังอยากได้อยู่พอดี ขอบคุณครับ :grin: :grin: :grin:

16
สุดยอดไปเลย ขอบคุณมากๆครับ ได้ตามที่ต้องการเลยครับ :grin: :grin: :grin:

หน้า: [1] 2