สมัครสมาชิก

แสดงกระทู้

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.


Topics - aek

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

ขอบคุณครับ

 :prettiness: :prettiness: :prettiness:

2
ขอถามนะครับถ้าจะเอาโค้ด 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


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

4
จากกระทู้นี้ https://www.thai-access.com/index.php?topic=540.0 ครับ

Private Sub Command1_Click()
    Dim strPath As String
    Dim strFile As String
    Dim strTable As String
    Dim StrFileName As string

    strTable = "ชื่อตารางเป้าหมาย"     
    strPath = "d:\โฟลเดอร์ที่เก็บไฟล์ .txt"
    strFile = Dir(strPath & "*.txt")

    Do While strFile <> ""
    StrFileName = strPath & strFile       
    DoCmd.TransferText acImportDelim, "importdata", strTable, StrFileName ,False
           
    strFile = Dir
    Loop
End Sub

คือ strPath จะมีไฟล์ใหม่มาเพิ่มตลอด ต้องการไม่ให้ import ไฟล์เดิมซ้ำ(เพราะทำให้โปรแกรม importนานเกินจำเป็น) และไม่อยากลบไฟล์ต้นฉบับ(ต้องการเปลี่ยนจาก *.txt เป็น *.xxx หลักจาก import แล้ว) ต้องเขียนโค้ดเพิ่มอย่างไรครับ ขอบคุณครับ

5
ห้อง MS Access / ขอสอบถามวิธีการ Append query
« เมื่อ: 10 พ.ย. 61 , 17:56:43 »
ผมลองค้นหาจากกระทู้เก่าๆแล้ว แต่ก็ยังทำไม่ได้ เลยขออนุญาติถามเลยแล้วกันนะครับ :grin: :grin: :grin:

ตาราง data1 มาจาก Query ข้อมูลที่ import เข้ามา

6
รบกวนสอบถามอีกครั้งครับ ผมมีไฟล์ชื่อ 01234.txt   อยู่ใน D  ถ้าผมต้องการ import ไฟล์นี้ โดยการกรอกหมายเลข 1234 ในฟอร์มชื่อ interface แล้วกด Enter (ให้ import ตามหมายเลขที่กรอกลงไปในฟอร์มครับ) ผมต้องพิมพ์.........ว่าอย่างไร
DoCmd.TransferText acImportDelim, "importdata", "import", "d:\..................."
หรืออื่นๆครับ รบกวนด้วยครับ  :prettiness: :prettiness: :prettiness:

7


ผมทำโปรแกรมเก็บข้อมูลผลตรวจ โดยจะมีการแนบรูปควบคู่กันของแต่ละรายการ(อาจจะไม่ได้แนบคู่กันทุกราย) ผมเลยต้องการให้แสดงสัญลักษณ์(ใช้รูปภาพ)ว่ามีข้อมูลรายการใดบ้างที่มีการแนบไฟล์ ในหน้าฟอร์มที่เป็นแบบ Continuous Forms คล้ายๆกับ hotmail ผมต้องทำอย่างไรบ้างครับ ผมเก็บไฟล์รูปแบบ path ตามโค้ด อ.ปิ่นณรงค์

8


ตามรูป คือ export มาแล้ว ส่งไปพิมพ์บาร์โค้ดอัตโนมัติ(เครื่องZebraต่ออยู่กับโปรแกรมอื่น) แต่บาร์โค้ดออกกระดาษเปล่ามาด้วย เพราะไฟล์ text สามารถกด cursor ลงมาได้(เหมือนมี2บรรทัด) ต้องการถามว่าจะทำอย่างไรให้ไฟล์ export เหลือ 1 บรรทัดจากการ export เลย (cursor อยู่ต่อท้ายบรรทัดแรก)ขอบคุณครับ

หน้า: [1]